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ün5 - tabloların olduğu VTyi silin yada adını değiştirin
bağlı tablo olmadığı için çalışması gerek