عمل Export مع شرط عدم وجود السجلات المتشابهه

بصراحه لا اعرف كود الاستيراد

ضعه هنا او ارفق مثال وساحاول التعديل عليه ان شاء الله

Magnom كتب:

بصراحه لا اعرف كود الاستيراد

ضعه هنا او ارفق مثال وساحاول التعديل عليه ان شاء الله

لدي فورم استيراد فيه commandbotom عدد 3 و label عدد واحد , commondilog واحد

في كوماند ال browse لدي الكود التالي

[

Private Sub Command1_Click()
CommonDialog1.Filter = "Backup files (*.bck) |*.bck|"
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
End Sub

في كوماند الاستيراد لدي الكود التالي

Private Sub Command2_Click()
FileCopy Trim(Label1.Caption), App.Path + "\db1.MDB"
MsgBox "ÊãÊ ÇÓÊÚÇÏÉ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbOKOnly + vbInformation, "Restart"
Dim x As String
x = MsgBox("íÌÈ ÇÛáÇÞ ÇáÈÑäÇãÌ áíÊã ÊÍÏíË ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbOKOnly, "")
If x = vbOK Then
End
End If
End Sub

ما هو الملف الذي امتداده bck ؟

وأرجو استبدال الكلام العربي بالانجليزي لأنه غير مفهوم

هل هذه العملية هي استبدال القاعدة الحالية بالقاعدة الجديدة؟؟

أفضل طريقة باعتقادي هو أن تقوم بنسخ البيانات من داخل القاعدة الجديدة الى داخل القاعدة الحالية

يعني نفس فكرة الكود التالي

نفرض أن rs1 يشير الى table1

وأن rs2 يشير الى table2

ونفرض انك تريد ان تنسخ من rs1 الى rs2

rs1.movefirst
do while not rs1.eof
    x=0
    rs2.movefirst
    do while not rs2.eof
        if rs1("no") = rs2("no") and rs1("name) = rs2("name") then x=1
        rs2.movenext
    loop
    if x = 0 then
      rs2.addnew
      rs2("no") = rs1("no")
      rs2("name") = rs1("name")
      rs2.update
    end if
    rs1.movenext
loop

هذا الكود طلع معي الان و انا بفكر

جربه و ان شاء الله يزبط معك

موفق