Ανανέωση ιστοσελίδας

[Ascinis]

Καλησπέρα σας!
Πως μπορώ να φτιάξω ένα txt πλαίσιο έτσι ώστε να κάνω αναζήτηση για ένα πεδίο το οποίο είναι ο αριθμός απόφασης;

Ευχαριστώ!

[nasos23]

Καλησπέρα σε όλους
Φίλε Γιάννη
Δες στο συνημμένο μια προσαρμογή της πρότασης των φίλων Γιώργου Καπετανόπουλου ή του Νίκου (Μετέωρα)- αν θυμάμαι καλά-
που έχουν ανεβάσει και δεν μπορώ να βρώ αυτή τη στιγμή.

[Ascinis]

Ευχαριστώ πολύ Νάσο!

Αν και αυτό που θέλω είναι απλός να με πηγαίνει στην εγγραφή με βάση το ID, τίποτα άλλο.
Έχω βρει κάτι στο διαδίκτυο αλλά δεν μπορώ να το προσαρμόσω στα δικά μου.

Δηλαδή, αν στο searchbox γράψω 349 τότε να με πάει σε αυτήν την εγγραφή.
Με την Αναζήτηση της Access που έχει έτοιμη δεν μας αρέσει γιατί είναι βαβούρα και δύσχρηστη.

Ευχαριστώ!

[Ascinis]

Λοιπόν, το έλυσα το θέμα που είχα με βάση το παρακάτω κώδικα:

Private Sub txtSearch_AfterUpdate()

'Find record based on contents of txtSearch.
Dim strSearch As String
On Error GoTo errHandler
'Delimited for text search.
'strSearch = "OrderID = " & Chr(39) & Me!txtSearch.Value & Chr(39)
'Delimited for numeric values.
strSearch = "proAA = " & Me!txtSearch.Value
'Find the record.
Me.RecordsetClone.FindFirst strSearch
Me.Bookmark = Me.RecordsetClone.Bookmark
Exit Sub
errHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
End Sub