Yanıtı sizden bir önceki yoruma yazmıştım.
Sn.Mehmet DEMİR, 3DEVAMSIZLIK-Güncelleştirme Sorasında ki kodu;
Private Sub Ctl3_DEVAMSIZLIK_AfterUpdate()
If Dlookup ("[3 DEVAMSIZLIK]", "Sorgu4", "[3 DEVAMSIZLIK]") Then
MsgBox ("Bu Elemanın devamsızlığı 3 oldu!"), vbExclamation, "UYARI"
End If
End Sub
ile değiştiriniz.
"Oyun bitince şah ve piyon aynı kutuya atılır "