10-07-21, 10:52
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 443
| |
Καλημέρα Μάρω.
Δοκίμασε: Κώδικας: Private Sub Completed_BeforeUpdate(Cancel As Integer)
If DLookup("Completed", "TblClientTasks", "Completed<>null and" _
& " IdClientTask = " & Me.ClientTaskID & "") = True Then
MsgBox "Δεν μπορείτε να κάνετε αλλαγές αν δεν αποεπιλέξετε " _
& "το πεδίο Ολοκλήρωση της φόρμας Έργα!!", vbInformation, "Προσοχή!!"
Me.Undo
Cancel = True
End If
End Sub
Τελευταία επεξεργασία από το χρήστη nasos23 : 10-07-21 στις 22:41.
|