اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. أخي الفاضل أقصد في الجدول الرئيسي يكون رقم الهوية هو المفتاح الأساسي في الجداول الفرعية يكون رقم الهوية موجود لربط البيانات
  2. السلام عليكم الملف كنز مميز وينقصه شيء بسيط وهو أن يتم التنبيه في حال عدم وجود ورق في ملقم الماسح والتنبيه في حال كان الماسح مغلق وشكراً
  3. اولاً لا بد من وجود عامل ربط بين الجداول الفرعية والجدول الرئيسي ويكون فريد (كالرقم الوظيفي - أو رقم الهوية) وذلك لربط البيانات فقم بتعديل جداولك
  4. الاخت الفاضلة ضعي مرفق افضل لسرعة المساعدة
  5. السلام عليكم قمت عمل برنامج بالاكسس وهو عبارة عن قاعدتي بيانات الأولى للجداول موضوعة على الشبكة بين الكمبيوترات الثانية للنماذج والتقارير والإستعلامات وتُعمم بعد الربط على الكمبيوترات ويتم ربط الجداول بين القاعدتين الى هنا الأمور بخير لكن واجهتني مشكلة مؤخراً وهو أن بعض الجداول يتم حذفها تلقائياً بدون سبب مما يسبب تعطل عمل البرنامج قمت بالعمل بنصيحة استاذنا الفاضل ابو خليل بعمل ضغط وإصلاح لقاعدة البيانات وقد حُلت المشكلة ولله الحمد والمنه (حتى كتابة الموضوع لا توجد شكوى على عمل القاعدة). وقمت بعمل حماية على قاعدة الجداول بوضع رقم سري للدخول وكون موقع عملي بعيد عن موقع الفرع الذي به البرنامج فقد علمت أحد الموظفين كيفية عمل نسخة إحتياطية للجداول يدوياً بشكل يومي عن طريق إستيراد الجداول من قاعدة الجداول الى ملف اكسس جديد وبسبب هذه المشكلة فقدنا بعض البيانات التي تم إدخالها في اليوم الذي سبق الخلل المطلوب الأن لتلافي فقد البيانات أو الخروج بأقل الأضرار ان حدث شيئ لا قدر الله كيفية عمل نسخة إحتياطية لقاعدة الجداول بشكل دوري وخلال فترات (ساعة - أو ساعتين) ويتم تسميتها بتاريخ اليوم والوقت الذي تم أخذ النسخة الإحتياطية فيها وهل ستكون النسخة في كل جهاز أم يمكن إختيار جهاز محدد (بواسطة خيار اسم المستخدم مثلاً) ؟ وما هي أنسب صيغة لحفظ النسخة الإحتياطية؟ وشكراً
  6. السلام عليكم اليك المرفق بعد التعديل قرعة متعددة الاختيار.rar
  7. السلام عليكم قمت بدمج كود الأستاذ رمهان وكود الاستاذ ابو ادم وكانت النتيجة في المنزل رائعة (دون الحاجة الى اضافة اسم الماسح في الوحدة النمطية) بقي ان اجرب النتيجة في المكتب على الماسح فإن تيسرت الأمور فسأضع الكود المعدل في هذه المشاركة
  8. السلام عليكم تم إضافة هذا الكود في الزر المسمى (كود لنسخ جميع بيانات موقع الذي تم إدخالة ولسنة مالية محددة) 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
  9. الويندوز ويندوز 7 بروفشنال الأوفيس 2010 الماسح fi7160 #2 الطابعة HP Deskjet 6980 series
  10. السلام عليكم جربت المرفق بدون أي تعديل فقط عدلت اسم الماسح نفس المشكلة
  11. السلام عليكم تم تلوين هذا السطر باللون الأصفر بعد ظهور رسالة الخطاء Set img = ComDialog.ShowTransfer(dev.Items(1), WIA_FORMAT_BMP, True) علماً بأن يظهر رسالة تختفي بسرعة وبعدها تظهر رسالة الخطاء
  12. السلام علبيكم ============== جربت الملف في العمل على الماسح المذكور وكانت النتيجة رسالة الخطاء هذه
×
×
  • اضف...

Important Information