Sub Yedekle()
Const BackUpFile As String = "D:\YEDEK\yedek.accdb"
Const tmpBackUpFile As String = "C:\tmpBackUp.accdb"
Dim yol As String
With CurrentDb
For i = 0 To .TableDefs.Count - 1
If Len(Trim(.TableDefs(i).Connect)) > 0 Then
Path = .TableDefs(i).Connect
yol = Mid(Trim(Path), 11)
End If
Next
End With
WinRARX$ = Environ$("ProgramFiles") & "\WinRAR\rar.exe"

'// Yedekleme proseduru..
Yedek_Proc yol, BackUpFile


End Sub


yukardaki kodda dosya yolu
D:\YEDEK\yedek.accdb
olarak görünüyor
dosya yolunu
form1 metin1 kutusundan almasını istiyorum
nasıl yapabilirim acaba[/align]
yardımlarınız için teşekürler...

(07-02-2015, 10:12)hedefkaya demiş ki: dosya yolunu form1 metin1 kutusundan almasını istiyorum

Sn hedefkaya;
Dim BackUpFile As String
BackUpFile = Forms!form1!metin1
ile yapilabilir.

çok teşekürler elinize sağlık