(14/12/2020, 10:29)berduş yazdı: Ilgili formun olduğu çalışmanızı ekleyin inceleyelim?
Kodun tamamını görmeden bir şey söylemem zor. 3. mesajınızda tek liste için kontrol var, bu haliyle diğerleri için uyarı vermemesi gerek. Herbir liste icin ayri ayri yazdıysanız birlestirip tek kontrol dongusune sokmaniz yeterli olabilir
İlgili dosya kişisel veriler içerdiğiden ekleyemiyorum. Fakat satır kaynağı silme işini iptal ettim. Sadece response=0 ile sistemin verdiği hatayı kapatabiliyorum. Bu tabloya bağlı 3 listbox olduğu için herbiri adına hata veriyor. 1 kez vermesi benim için yeterli. İlk hatadan sonra "hata durumunda" denetiminin çalışmasını nasıl durdurabilirim? Bu da bir çözüm olacaktır diye düşünüyorum.
Kodun güncel hali;
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If Not dosyavarmi("********.accdb") = True Then
MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"
Response = 0
End If
End Sub
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
(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.
az önce yine denedim 1 defa hata verdi kapandı.
kapatıp açtım dosyayı tekrar bağladım, bağlı olan VT adını değiştirdim
bağlıyken uyarı vermedi, dosyayı bulamayınca 3 liste kutusu olmasına rağmen 1 defa verdi
(14/12/2020, 17:51)berduş yazdı: az önce yine denedim 1 defa hata verdi kapandı.
kapatıp açtım dosyayı tekrar bağladım, bağlı olan VT adını değiştirdim
bağlıyken uyarı vermedi, dosyayı bulamayınca 3 liste kutusu olmasına rağmen 1 defa verdi
Tekrar deneyeceğim sabah üstad
Ü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.
If Not dosyavarmi("********.accdb") = True And htSy = False Then
MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"
End If
htSy = True
Response = 0