Form üzerindeki Adı Soyadı alanın ad özelliğien AdıSoyati yazmışnısınız. Kod tarafında AdıSoyadı olarak kullanmışsınız.
FaturaSil butonun kodunu aşağıdaki ile değiştirip denermisiniz?
Birde FaturaSil_LostFocus() kod bloğundaki
DoCmd.GoToRecord , , acNewRec
kodunu kaldırın.
Yada başına tırnak " ' " işareti koyun
İyi çalışmalar.
On Error GoTo Err_FaturaSil_Click
If IsNull(Me.AdıSoyati) Then MsgBox "<<<< LÜTFEN SİLMEK İSTEDİĞİNİZ MÜŞTERİYİ SEÇİNİZ >>>>", 48, "Kayıt İşlemi": Me.AdıSoyati.SetFocus: Exit Sub '''''
'Exit Sub
Dim Sifre As String
Sifre = "1"
If InputBox("Lütfen Silme Şifresini Giriniz") <> Sifre Then
MsgBox ("hatali sifre")
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FaturaID FROM FaturaBilgisi WHERE (((FaturaID)=" & Me.FaturaID & "));"
DoCmd.RunSQL "DELETE FaturaID FROM FaturaDetay WHERE (((FaturaID)=" & Me.FaturaID & "));"
DoCmd.SetWarnings True
MsgBox "silindi"
Me.Liste.Requery
Exit_FaturaSil_Click:
Exit Sub
Err_FaturaSil_Click:
MsgBox Err.Description
Resume Exit_FaturaSil_Click
'Form.AllowDeletions = False
Exit Sub
End If
