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