19-11-10, 18:50
|
 | Super Moderator Όνομα: Τολης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-01-2010 Περιοχή: ATHENS-GREECE
Μηνύματα: 180
| |
Αλλη μια παρομοια λυση:
Private Sub cmdRequery_Click()
Dim RS As Object
Dim lngBookmark As Long
lngBookmark = Me.CODE
Me.Requery
Set RS = Me.RecordsetClone
RS.FindFirst "CODE = " & lngBookmark
Me.Bookmark = RS.Bookmark
Set RS = Nothing
End Sub
|