02-11-11, 23:30
|
 | Super Moderator Όνομα: Τολης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-01-2010 Περιοχή: ATHENS-GREECE
Μηνύματα: 180
| |
Αντωνη προσθεσε στην εντολη διαγραφης τον εξης κωδικα:
On Error Resume Next
DoCmd.RunSQL "Delete * From Πίνακας1 Where [id] = " & Me![id] & ";"
DoCmd.RunSQL "Delete * From Πίνακας2 Where [id] = " & Me![id] & ";"
Me.Requery
Καλη συνεχεια...
|