Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Αναζήτηση (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4922-anazitisi.html)

Ascinis 11-06-18 12:32

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

Ευχαριστώ!

nasos23 11-06-18 15:01

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

Ascinis 12-06-18 09:12

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

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

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

Ευχαριστώ!

Ascinis 12-06-18 10:49

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

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


Η ώρα είναι 18:25.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2