27-09-10, 22:35
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Δοκίμασε τον ακόλουθο κώδικα: Παράθεση:
Private Sub ShowRecord_Click()
Dim rst As DAO.Recordset
DoCmd.OpenForm "pinakas100"
Set rst = Forms!pinakas100.RecordsetClone
rst.FindFirst "id =" & Λίστα15.Column(2)
Forms!pinakas100.Recordset.Bookmark = rst.Bookmark
DoCmd.Close acForm, "GoToRecordDialog"
End Sub
| |