Selamlar
kapat düğmesinin kodunu bu şekilde ayalarsanız kapanmaz
Private Sub Komut15_Click()
On Error GoTo Err_Komut15_Click
If telefon & tcno & Adısoyadı <> "" Then
If IsNull(Adısoyadı) Or Adısoyadı = "" Then
GoTo eksikBilgi
End If
If IsNull(tcno) Or tcno = "" Then
GoTo eksikBilgi
End If
If IsNull(telefon) Or telefon = "" Then
GoTo eksikBilgi
End If
End If
DoCmd.Close
Exit_Komut15_Click:
Exit Sub
Err_Komut15_Click:
MsgBox Err.Description
Resume Exit_Komut15_Click
eksikBilgi:
MsgBox "Eksik bilgi mevcut"
End Sub
Hayatta listbox kullanmam..