15-05-21, 09:28
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 443
| |
Καλημέρα Μάρω.
Δοκίμασε το παρακάτω: Κώδικας: Private Sub Completed_BeforeUpdate(Cancel As Integer)
Dim x As String
x = DCount("Completed", "TblTaskStepsByClient", _
"Completed=0 and ClientTaskID=" & Me.IdClientTask & "")
If x > 0 Then
MsgBox IIf(x > 1, "Δεν έχουν ολοκληρωθεί " & x & " βήματα!", _
"Δεν έχει ολοκληρωθεί " & x & " βήμα!"), vbInformation, "Προσοχή!!"
Me.Undo
Cancel = True
End If
End Sub
|