عند عمل استعلام لنقل السجلات من جدول الى اخر تظهر مشكلة كون احد السجلات فيه اختيار من متعدد

[عبد اللطيف سلوم]

السلام عليكم 

صممت برنامج ادارة العقارات والشقق

وكان شرط صاحب البرنامج ان يكون المستأجر للشقة اكثر من واحد في نفس الوقت 

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

فان استعلام الاضافة والحذف لا تعمل في وجود  حقل متعدد القيم

مرفق مثال 

ارجو المساعدة يا غوالي

ask officna.accdb

[kanory]

ضع هذا الكود تحت حدث الزر

On Error GoTo Err_أمر0_Click

Dim X
X = CurrentProject.Path & "\" & CurrentProject.Name
DoCmd.TransferDatabase acExport, "Microsoft Access", X, acTable, "تأجير شقة", "نسخة من  تأجير شقة", False
    MsgBox "تم نسخ الجدول ", vbOKOnly, "تأكيد"


Exit_أمر0_Click:
    Exit Sub

Err_أمر0_Click:
    
    Resume Next

 

تم تعديل نوفمبر 10, 2020 بواسطه kanory

[عبد اللطيف سلوم]

في ١٠‏/١١‏/٢٠٢٠ at 06:18, kanory said:

ضع هذا الكود تحت حدث الزر

On Error GoTo Err_أمر0_Click

Dim X
X = CurrentProject.Path & "\" & CurrentProject.Name
DoCmd.TransferDatabase acExport, "Microsoft Access", X, acTable, "تأجير شقة", "نسخة من  تأجير شقة", False
    MsgBox "تم نسخ الجدول ", vbOKOnly, "تأكيد"


Exit_أمر0_Click:
    Exit Sub

Err_أمر0_Click:
    
    Resume Next

 

كل المحبة والاحترام

[kanory]

الحمد لله رب العالمين .... حياك الله