04-11-11, 13:10
|
 | Super Moderator Όνομα: Τολης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-01-2010 Περιοχή: ATHENS-GREECE
Μηνύματα: 180
| |
Κανε δεξι κλικ πανω στην φορμα "Πινακας1" και κλικαρε την εντολη "Προβολη Σχεδιασης".
Στην φορμα "Πινακας1" υπαρχει ενα κουμπι εντολης που γραφει "Διαγραφη εγγραφης".
Ο Κωδικας πισω απο το κομπι εντολης θα πρεπει να γινει ετσι:
Private Sub Εντολή9_Click()
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From Πίνακας1 Where [id] = " & Me![id] & ";"
DoCmd.RunSQL "Delete * From Πίνακας2 Where [id] = " & Me![id] & ";"
DoCmd.SetWarnings true
Me.Requery
End Sub
|