(14/12/2020, 17:25)berduş yazdı: Option Compare Database satırının altına

Dim htSy As Boolean

satırını ekleyip
kodu aşağıdaki gibi düzenler misiniz?

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = 0



If DataErr = 3024 And htSy = False Then

  MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"

End If

htSy = True

End Sub

Üstad bu şekilde hiç hata vermiyor. Bağlanılamasa bile msgbox veya sistem uyarısı yok.