If Not dosyavarmi("********.accdb") = True And htSy = False Then
MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"
End If
htSy = True
Response = 0
Üstad tekrar denedim, yine olmadı . Fakat If DataErr = 3024 yerine dosya yolu ve htsy ile koşul denediğimde 1 kez verip kapandı. Sanırım hata kodunda bir sorun vardı. Bu şekilde çözmüş olduk. Yardım için teşekkür ederim.
Son Düzenleme: 15/12/2020, 12:02, Düzenleyen: sipuasfaf.
(Sebep: .)