عبدالله المجرب

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

نعم إشتغل

السلام عليكم الملف كنز مميز وينقصه شيء بسيط وهو أن يتم التنبيه في حال عدم وجود ورق في ملقم الماسح والتنبيه في حال كان الماسح مغلق وشكراً

للرفع

اولاً لا بد من وجود عامل ربط بين الجداول الفرعية والجدول الرئيسي ويكون فريد (كالرقم الوظيفي - أو رقم الهوية) وذلك لربط البيانات فقم بتعديل جداولك

الاخت الفاضلة ضعي مرفق افضل لسرعة المساعدة

ممكن شرح وافي استاذ جعفر

جربت المرفق لا يعمل مع ملفات على الشبكة

ان شاء الله سأجربه على كمبيوتر العمل ففيه ماسح متعدد وشكراً

السلام عليكم قمت عمل برنامج بالاكسس وهو عبارة عن قاعدتي بيانات الأولى للجداول موضوعة على الشبكة بين الكمبيوترات الثانية للنماذج والتقارير والإستعلامات وتُعمم بعد الربط على الكمبيوترات ويتم ربط الجداول بين القاعدتين الى هنا الأمور بخير لكن واجهتني مشكلة مؤخراً وهو أن بعض الجداول يتم حذفها تلقائياً بدون سبب مما يسبب تعطل عمل البرنامج قمت بالعمل بنصيحة استاذنا الفاضل ابو خليل بعمل ضغط وإصلاح لقاعدة البيانات وقد حُلت المشكلة ولله الحمد والمنه (حتى كتابة الموضوع لا توجد شكوى على عمل القاعدة). وقمت بعمل حماية على قاعدة الجداول بوضع رقم سري للدخول وكون موقع عملي بعيد عن موقع الفرع الذي به البرنامج فقد علمت أحد الموظفين كيفية عمل نسخة إحتياطية للجداول يدوياً بشكل يومي عن طريق إستيراد الجداول من قاعدة الجداول الى ملف اكسس جديد وبسبب هذه المشكلة فقدنا بعض البيانات التي تم إدخالها في اليوم الذي سبق الخلل المطلوب الأن لتلافي فقد البيانات أو الخروج بأقل الأضرار ان حدث شيئ لا قدر الله كيفية عمل نسخة إحتياطية لقاعدة الجداول بشكل دوري وخلال فترات (ساعة - أو ساعتين) ويتم تسميتها بتاريخ اليوم والوقت الذي تم أخذ النسخة الإحتياطية فيها وهل ستكون النسخة في كل جهاز أم يمكن إختيار جهاز محدد (بواسطة خيار اسم المستخدم مثلاً) ؟ وما هي أنسب صيغة لحفظ النسخة الإحتياطية؟ وشكراً

استاذ جعفر عمل رائع سؤال هل يتم سحب أكثر من ورقة

ويبارك فيك

تم تعديل التوقيع

السلام عليكم اليك المرفق بعد التعديل قرعة متعددة الاختيار.rar

السلام عليكم قمت بدمج كود الأستاذ رمهان وكود الاستاذ ابو ادم وكانت النتيجة في المنزل رائعة (دون الحاجة الى اضافة اسم الماسح في الوحدة النمطية) بقي ان اجرب النتيجة في المكتب على الماسح فإن تيسرت الأمور فسأضع الكود المعدل في هذه المشاركة

السلام عليكم تم إضافة هذا الكود في الزر المسمى (كود لنسخ جميع بيانات موقع الذي تم إدخالة ولسنة مالية محددة) Private Sub أمر8_Click() On Error Resume Next Dim MyAr As Variant, I As Integer, Z As Integer MyAr = Array("يناير", "فبراير", "مارس", "إبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") Set db = CurrentDb() sql = "select * from Actions " Set rs = db.OpenRecordset(sql, dbOpenDynaset) For I = 1 To DCount("[NamesHospitals]", "Hospitals") For Z = 1 To 12 rs.AddNew rs("BillTaype") = "رواتب عمالة ومستهلكات" rs("Date1") = Year(Date) rs("Month1") = MyAr(Z - 1) rs("Status") = "لم يصل" rs("idhospitals") = I rs.Update Next Next rs.Close MsgBox "تم التحديث" End Sub جرب المرفق بعد التعديل 1111.rar

الويندوز ويندوز 7 بروفشنال الأوفيس 2010 الماسح fi7160 #2 الطابعة HP Deskjet 6980 series

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

أوفيس 2013

السلام عليكم تم تلوين هذا السطر باللون الأصفر بعد ظهور رسالة الخطاء Set img = ComDialog.ShowTransfer(dev.Items(1), WIA_FORMAT_BMP, True) علماً بأن يظهر رسالة تختفي بسرعة وبعدها تظهر رسالة الخطاء

للرفع

للرفع

الطلب غير مفهوم

جزاك الله خير

السلام علبيكم ============== جربت الملف في العمل على الماسح المذكور وكانت النتيجة رسالة الخطاء هذه