Dim silineceksilinecek = Liste34If MsgBox("Listede seçili olan giriş, Kayıtlardan " & "(" & silinecek & ") " & _"silinecek. Emin misiniz?", vbYesNo) = vbYes ThenCurrentDb.Execute "Delete From TBL_GIRIS Where KOD= " & silincekListe34.RequeryEnd If
Dim a AS INTEGERa = Me.TcKimlikNoDim sayac1 AS INTEGERsayac1 = DCount("TcKimlikNo", "tblPersonel", "TcKimlikNo=" & "a")Dim msg AS INTEGERmsg = MsgBox(sayac1, vbOKOnly, "Hata")