Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 01-04-12, 16:12
lefterisg Ο χρήστης lefterisg δεν είναι συνδεδεμένος
Όνομα: Λευτέρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-02-2012
Μηνύματα: 20
Προεπιλογή Επιστροφή στην προηγούμενη επιλεγμένη εγγραφή

Καλημέρα σε όλους.
Χρησιμοποιώ στην ΒΔ μου την φόρμα αναζήτησης του Τάσου που υπάρχει ήδη στο φόρουμ.
Θέλω όμως, αφού κάνω αναζήτηση και πατήσω πάνω σε μια εγγραφή, πατώντας την εντολή που δείχνει όλες τις εγγραφές, να συνεχίσει να έχει επιλεγμένη την εγγραφή που έχω ήδη επιλέξει.
Χρησιμοποίησα τον παρακάτω κώδικα αλλά μου βγάζει μήνυμα λάθους.
Private Sub cmdClearSearch_Click()
Dim rs As Object
Dim strBookmark As String

strBookmark = Forms!frmCustomers.ID
Forms!frmCustomers.Requery

Set rs = Me.Recordset.Clone
rs.FindFirst "id ='" & strBookmark & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Me.txtSearch = vbNullString
Me.Filter = vbNullString
Me.FilterOn = False
End Sub

Παρακαλώ για την βοήθειά σας.
Ανεβάζω συνημμένα την ΒΔ.
Σας ευχαριστώ εκ των προτέρων.
Λευτέρης
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb accSearchFormTasos.mdb (284,0 KB, 19 εμφανίσεις)
Απάντηση με παράθεση