Exporting mdb file

[hiran3727]

Hi,
In the project i want to implement export utility. when i click export, it should ask the file to be exported and to which folder. Please send me some example codes for this.

regards
Hiran

[shakti5385]

Just Wait 4 Few Minute

[Simply Me]

Hi,
In the project i want to implement export utility. when i click export, it should ask the file to be exported and to which folder. Please send me some example codes for this.

regards
Hiran

Do you mean copy a file and have it save in a certain folder? If it is then you can use Filecopy and use a commondialog.

[shakti5385]

Dim Fs
 
Private Sub CMDeXPORT_Click()
Set Fs = CreateObject("SCRIPTING.FileSystemOBJECT")
    FILENAME1 = App.Path & "\database\Salary_SYS.mdb" 'This Is Ur Database path
 
    Fs.COPYFILE Text1.Text, FILENAME1, 1
    MsgBox "Database is Restored successfully ", vbInformation
    End If
End Sub
 
Private Sub Command1_Click()
'Add a commondialog control onur form
CommonDialog1.Filter = "Microsoft Access Databases (*.mdb)"
CommonDialog1.DefaultExt = "Microsoft Access Databases (*.mdb)"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

[Simply Me]

or you can visit this thread