(15/12/2020, 12:08)berduş yazdı: ağ olmadığı için yerel bilgisayarda yaptım
1 - yeni bir VT oluşturun
2 - 3 tablo ekleyin
3 - yeni bir form oluşturup form tablolara bağlı 3 liste kutusu ekleyin
sonrada forma aşağıdaki kodları ekleyin
4 - veri tabanınızı bölünDim htSy As Boolean
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
5 - tabloların olduğu VTyi silin yada adını değiştirin
bağlı tablo olmadığı için çalışması gerek
Yardımınız için çok teşekkürler. Sorun çözülmüştür üstad.