محمد احمد لطفى

جزاك الله خيرا استاذى موسى

أسأل الله العظيم رب العرش العظيم أن يشفيك من مرضك شفاء لا يغادر سقماً، وأن يلبسك ثوب العافية والصحة.

أستاذى @ابوبسمله جزاك الله كل خيراً عند اخذ الامر ووضعه فى برنامجى ينقضه قوس In (SELECT DISTINCT Table2.id وعند العمل على الكود DELETE Table1.id FROM Table1 WHERE (((Table1.id) In (SELECT DISTINCT Table2.id FROM Table2; ))); يعمل تمام أريد أين الخطأ فى السطر الاول لكى أفهم الكود

كيف يمكن عمل استعلام حذف للسجلات المتكرره فى جدول Table1 و Table2 بحيث نحذف السجلات فى Table1 لو Id موجود فى جدول Table2 يتم حذف السجل فى Table1 الجدولين لا يوجد مفتاح اساسى و ممكن يوجد سجلات متكررة الـ (Id) فى الجدولين Delt.mdb

طب جرب On Error Resume Next 'DoCmd.OutputTo acOutputTable, "Data", acViewPreview DoCmd.SetWarnings False ' EXPORT_TO_EXCEL_01 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _ & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer" MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... " On Error GoTo 1 Application.FollowHyperlink CurrentProject.Path 1: DoCmd.SetWarnings True من موضوع

جرب CurrentDb.Execute "ALTER TABLE your_table_name ADD CONSTRAINT your_pk_name PRIMARY KEY(id1, id2);"

أعتقد أنه له علاقة بامتداد الملف لماذا يعمل اذا كان امتداد الملف accdr ولا يعمل على accdb على الحاسب عندى ويندوذ 10 اوفيس 32 بالتوفيق

للمعرفة والتعلم اذا كان تشغيل الكود من الوحدة النمطية كيف يمكن مناداتها الى الخلايا Me.t1 = oCol.Caption Me.t2 = oCol.Description Me.t3 = oCol.MediaType Me.t4 = oCol.SerialNumber Me.t5 = Int(oCol.Size / 1000000000)

أريد عمل شريط تحميل حتى انتهاء تنفيذ أمر Call GetPCInfo عند الضغط على الزرار بحيث يتم العد الى الانتهاء SystemInfo.rar

هههههههههههههههه الموضع تابع الكود الى هناك لو فيه فلاشة راكبة بيانتها الى بتكون موجودة مش الهارد

أستاذى @Eng.Qassim 640 تقريبا متاخد من نوع الهارد لانه نفس الرقم مكتوب فيه ممكن الملف بعد إذنك

UP

أستاذ @سامي الحداد الصورة على الحاسب و غير موجود خلية Me.Image1

برنامج الوينرير محدث الرسالة

تفضل قمت بتغيير الامتداد فقط من accdb الى accdr (الملف الاصلى ) Zip Folder and CopyLast.rar

عند تغيير الامتداد الى accdr يعمل

مازال الملف المضغوط فارغ

جزاك الله خيراً أستاذى @ابوخليل تم الطباعة بالفعل ولكن الصفحة كبيرة كيف يمكن الطباعة بالغاء Fit Picture to frame أوجعلها Off فى خيارات الطباعة

الملف المضغوط ملف فارغ

فكرة جميلة بس فيه ناس عندها واتس لا تستخدمه خالص يعنى الرسالة بتوصل بس منغير مشاهدة الى الأبد يعنى ( علامتين صح مش منورين)

لم يعمل

1 - تم حلها ShellExecute Me.hwnd, "print", CurrentProject.Path & "\" & "print" & ".jpg", "", "", 1 2 - هل يمكن طباعة الصورة مباشرة

شكرا أستاذى @ابوخليل الكود فعلا من الصفحة المذكورة مفروض النتيجة نوع الهارد و حجمه بالكامل كما بالصورة

1 -فتح الصورة للطباعة مباشرة مثل الصورة و لذلك لضبط الصورة قبل الطباعة من الجهاز 2 - و هل يمكن طباعة الصورة مباشرة print.rar

للعلم الكود بداخل الوحدة النمطية