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

Dim 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

4 - veri tabanınızı bölün
5 - tabloların olduğu VTyi silin yada adını değiştirin
bağlı tablo olmadığı için çalışması gerek

(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

Dim 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

4 - veri tabanınızı bölün
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.

sizde olmamasının sebebini buldunuz mu?

Sorun yaşadığım pc üzerinde düzelmedi. Fakat farklı pc üzerinde sizin kodu denediğimde oldu. Sanırım 3 kez hata veren pc üzerinde kurulu olan office programında bir sorun var üstad.

Maalesef ara ara ofisi sıfırdan kurmak gerekiyor galiba.
Kolay gelsin.

(17/12/2020, 11:39)berduş yazdı: Maalesef ara ara ofisi sıfırdan kurmak gerekiyor galiba.
Kolay gelsin.

Muhtemelen öyle bir sorun yaşıyorum. Çok teşekkür ederim. Size de kolay gelsin.