Skip to main content

AccessTr.neT


Bağlı Tablo Verisi İçeren Listbox Hatası

Bağlı Tablo Verisi İçeren Listbox Hatası

#7
(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
Son Düzenleme: 14/12/2020, 12:14, Düzenleyen: sipuasfaf. (Sebep: .)
Cevapla
#8
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
Cevapla
#9
(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.
Cevapla
#10
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
Cevapla
#11
(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
Cevapla
#12
Ü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
Son Düzenleme: 15/12/2020, 12:02, Düzenleyen: sipuasfaf. (Sebep: .)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task