Ayrıca,
Bağlı tablonun yolu zaten MSysObjects e kaydediliyor. Aşağıdaki kod ile bağlı tablo yolunu MSysObjects tablosundan alabilirsin.
DLookup("Database", "MSysObjects", "[Type] = 6")
Sayın sledgeab;
verilen linkteki uygulamada ReLink fonksiyonu yok
sn herdogan,
Bağlı Tablo Denetleme
Function ReLink, linkteki uygulamada bulunan Form1 isimli formda bulunuyor. bu fonksiyonu önceki mesajımda yazdığım fonksiyon ile değiştirecksiniz.
Sayın Sledgeab;
söylediğiniz şekilde değiştirdim. Kilitlenip kalıyor.
sn herdogan, örnekteki kodların tamamını kullandınız mı?
mesela eklediğiniz uygulamada aşağıdaki kod yok.
Kod:
Private Sub Form_Timer()
Dim I As Integer
For I = 1 To 1000
ProgressBar1.Value = (I / 1000) * 100
Next I
Call Aktar
DoCmd.Close acForm, "FORM1"
End Sub