Ukoliko ti je bitno da se provera radi baš u momentu brisanja, mislim da bi ovaj kod odradio posao>
Code:
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
If Forms!PlanF!Check27 = True Then
MsgBox "Plan je verifikovan!" & Chr(10) & "Nije ga moguce menjati - brisati lica!", vbInformation
Cancel = True
End If
End Sub
odnosno, još bolje:
Code:
Private Sub Form_Delete(Cancel As Integer)
If Forms!PlanF!Check27 = True Then
MsgBox " Plan je verifikovan!" & Chr(10) & "Nije ga moguce menjati - brisati lica!", vbInformation
Cancel = True
End If
End Sub
pa se neće dva puta pojavljivati poruka.
[Ovu poruku je menjao DudaD dana 10.01.2016. u 10:32 GMT+1]