Kapalı dosya bağlantısı hata verince MsgBox

[sakiogluo]

Merhaba, Userform da kapalı .mdb dosyasına bağlantım var. Eğer bağlantı hatası olursa "On runtime Error "veriyor. Bunun yerine önce MsgBox ile uyarı çıksın, tamam butonuna basınca Userformu kapatsın istiyorum. Aşağıdaki şekilde oldu, ancak bu kez her şekilde MsgBox çıkıyor, çözemedim yardımcı olan olursa sevinirim.

Private baglan As Object, RS As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
If baglan = True Then
#If VBA7 And Win64 Then
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=\\server\VERIDATA.mdb", True
#Else
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=\\server\VERIDATA.mdb", True
Else
  MsgBox "Veritabanı Dosyası Bulunamadı !" & vbLf & " - " & vbLf & "Program kapatılacaktır.", vbOKOnly + vbInformation, "H A T A !"
End
Unload Me
#End If
End If
End Sub

 

[Haluk]

Denemedim ama, aşağıdaki gibi bir kod işinize yarayabilir ....

Sub baglanti()
    myDB = "\\server\VERIDATA.mdb"
    If Dir(myDB) = "" Then
        MsgBox "Veritabanı Dosyası Bulunamadı !" & vbLf & " - " & vbLf & "Program kapatılacaktır.", vbOKOnly + vbInformation, "H A T A !"
        Unload Me
        Exit Sub
    End If
    
    Set baglan = CreateObject("adodb.connection")
    
    #If VBA7 And Win64 Then
        baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & myDB, True
    #Else
        baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & myDB, True
    #End If
End Sub

.

 

[sakiogluo]

Haluk Bey, maalesef hata verdi:

Run-time error '-2147217843 (80040e4d)':
Uygulamanız başlatılamıyor. Çalışma grubu bilgi dosyası eksik veya
başka bir kullanıcı tarafından özel kullanımda açık durumda.

Kodun normalde çalışan hali şöyle:

Private baglan As Object, RS As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=\\server\VERIDATA.mdb"
#Else
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=\\server\VERIDATA.mdb"
#End If
End Sub

 

[Haluk]

Hangi satırda hata veriyor belirtmemişiniz....

Ayrıca; benim yazdığım kod sizinkinden çok farklı değil. Sadece, kodun başlangıcında; söz konusu MDB dosyasının belirtilen dizinde olup olmadığını kontrol ediyor, eğer yoksa mesaj veriyor. MDB dosyasını belirtilen dizinde buluyorsa, devam ediyor.

.

 

[sakiogluo]

Hata satırı:

   baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & myDB, True

 

[Haluk]

Birşeyleri yanlış yapıyorsunuz ..... buradan görmem mümkün değil.

Bağlantıyı kapatıp, kodu ondan sonra deneyin.

.

 

[sakiogluo]

Defalarca denedim ama maalesef aynı hatayı veriyor.