[ Φόρμες ] Σύνδεση δύο υποφορμών

[nasos23]

Καλημέρα Μάρω.
Δοκίμασε:

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