
01-04-12, 16:12
|
| Όνομα: Λευτέρης Έκδοση λογισμικού 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
Παρακαλώ για την βοήθειά σας.
Ανεβάζω συνημμένα την ΒΔ.
Σας ευχαριστώ εκ των προτέρων.
Λευτέρης
|