01-04-12, 17:38
|
| Όνομα: Θανάσης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-02-2012
Μηνύματα: 238
| |
Γειά σε όλους
Private Sub cmdClearSearch_Click()
Dim rs As Object
Dim strBookmark As integer
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
Επειδή το ID είναι αριθμός
Θανάσης Π
Τελευταία επεξεργασία από το χρήστη Meteora : 01-04-12 στις 18:53.
|