در این کد فایلی که ساخته می شود بنام test است که آن را نیز میتوان سئوالی نمود
میدانیم مشکلی که در bakup فایها وجود دارد همنام بودن انها و محلی که باید کپی شود میباشد اگر از قبل محل و نام را مشخص کنیم اشتباه است چون کپی حدید روی کپی قدیم می خورد لذا بهتر است از کاربر محل و آدرس ونام فایل جدید سئوال و یا نام را رندم انتخاب کنیم
در کد ذیل اول نام تیبل را می پرسد و بعد مسیر و نام dbرا
البته نمیدانم چرا کدها از راست نوشته میشود!
مثال برای مسیرc:\access\db1
Private Sub Command3_Click()
Dim makedb As Database
Dim namedir As String
Dim namefile As String
Dim strSQL As String
namefile = InputBox("äÇã ÌÏæá")
namedir = InputBox("ãÓíÑ ÏÇíÑ˜Êæ&Nti lde;í æ ÏíÊÇÈí&Oacu te;")
namedir = namedir & ".mdb"
Set ap = Application.FileSearch
ap.lookin = namedir
ap.filename = namefile
If ap.Execute = 0 Then
'strsql="SELECT nameshahr.CARD_NO INTO nameshahr IN 'D:\access\db1.mdb' from nameshahr;"
strSQL = "SELECT " & namefile & ".* INTO test IN '" & namedir & "' from " & namefile & ";"
DoCmd.RunSQL strSQL
Else
Exit Sub
End If
End Sub