دانلود از دیتا بیس دیگر

[hoshy345]

با سلام خدمت اساتيد گرامی. من میخام با نوشتن اسم دیتا بیس مثلا pos030412 اطلاعات موجود در هر سه جدول که در دیتا بیس pos030412 و در شاخه دانلود قرار داره را در سه جدول این دیتا بیس مادر کپی کند البته با کد vba پیشا پیش از زحمات شما کمال تشکر را دارم

[hoshy345]

ببخشید فایل رو فراموش کردم بزارم این هم فایل اگه دوستان لطف کنن و زحمتشو بکشن

[hoshy345]

ببخشید کسی راه حلی نداره

[Abbas Amiri]

به جدول اضافه شود یا بجای اطلاعات قبلی بنشیند
کدهای زیر را درروال کلیک باتن command12 بنویسید


Private Sub Command2_Click()
Dim strSQL As String, strPath As String
strPath = CurrentProject.Path & "\Download\" & Text0 & ".mdb"
If Dir(strPath) = "" Then
MsgBox "فایل مورد نظر وجود ندارد"
Exit Sub
End If
strSQL = "INSERT INTO Product SELECT * FROM Product IN '" & strPath & "'"
CurrentDb.Execute strSQL
strSQL = "INSERT INTO Purchase SELECT * FROM Purchase IN '" & strPath & "'"
CurrentDb.Execute strSQL
strSQL = "INSERT INTO Sold SELECT * FROM Sold IN '" & strPath & "'"
CurrentDb.Execute strSQL

End Sub