اذهب الي المحتوي
أوفيسنا

kaser906

الخبراء
  • Posts

    1,411
  • تاريخ الانضمام

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

  • Days Won

    23

كل منشورات العضو kaser906

  1. لعلك تحاول اضافة صورة الى نموذج فرع بخاصية ورقة بيانات
  2. حاولت على 2010 مع الأسف لازال طلب اصدار احدث لفتحه
  3. لن تستطسع فتح الملف باصدار 2010 قم بفتح الملف عن طريق اصدار 2016 بعد ذلك قم بعمل نسخه عن طريق حفظ باسم واختر الاصدار من القائمة التي ستظهر لك ::بالتوفيق::
  4. الغالبية هناتعمل على اصدار اوفيس 2007 و 2010 قم بعمل نسخه بصيغة 2007 أو 2010 ليتم النظر بطلبك وبعد ذلك يمكنك تطبيق الحل على نسختك ::بالتوفيق::
  5. أنظر هذا المثال لأستاذنا ابو أدم فهو مثال متكامل ورائع ويحقق طلبك ::بالتوفيق::
  6. السلام عليكم جربو هذا الكود فهو يفرغ مربعات النص والكمبو بوكس التي تحتوي على علامة الناج "En" مع اسثناء الحقول التي لا تحمل العلامة فالمفترض حقل الترقيم التلقائي لا يجب وضع علامة التاج اليه Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "En" Then ctl = Null End If Next ::بالتوفيق::
  7. نحتاج لمثل هذه المواضيع شكرا لك استاذ صالح 🌹
  8. ارجع الى موضضوع الاستاذ محمد عصام أنقر هنا ::بالتوفيق::
  9. المواضيع كثرة بالمنتدى انظر هذا المثال للأخ محمد عصام أنقر هنا ::بالتوفيق::
  10. اسهل حل هو حذف قاعدة البيانات الخلفية السابقة و وضع النسخه الاحتياطية مكانها مع إعادة تسميتها بنفس الاسم ونفس الباسورد الحل الثاني حذف الجداول من القاعدة الخلفية واستيرادها من القاعدة الاحتياطية الحل الثالث عمل استعلام الحاق في القاعدة الاحتياطية واختيار جدول الوجهة من قاعدة أخرى واختيار القاعدة الخلفية ::بالتوفيق::
  11. ممكن توضيح اخي القاضي هل قاعدة البيانات محذوفة وتريد استراجعها أم انك نسيت الباسورد؟ ماهي صيغة الملف ؟ اذا لم تكن محذوفة هل القاعدة حاليا مرتبطه بالواجهة أم لا ::بالتوفيق::
  12. ممتاز فقط واجهة خطأ برقم 2501 عندما يكون خيار تأكيد الاستعلامات الأجرائية مفعل وعند ظهور رسالة التأكيد والنقر على زر لا اعتقد يمكن التغلب عليها بوضع رسالة تأكيد التوزيع وإلغاء الأجراء شكرا لك استاذ 🌹
  13. يستحسن وضع كود أخفاء اطار الاكسس في حدث عند الفتح ::بالتوفيق::
  14. أستخدم هذا الكود On Error GoTo Err_Form_Open ChangeProperty "AllowBypassKey", 1, 0 fAccessWindow acHide, False, False With New Access.Application Dim strDbName As String strDbName = CurrentProject.Path & "\Start.accdb" .UserControl = True .RunCommand acCmdAppMaximize DoCmd.RunCommand acCmdAppMaximize .OpenCurrentDatabase strDbName, , "K@serwww$0ficena%9o6" End With Application.Quit Exit_Form_Open: Exit Sub Err_Form_Open: MsgBox "خطأً " & " " & vbCr & vbCr & " تم حذف البرنامج أو تم أعادة تسميته ", 0 + 16 + 1572864, "بدأ التشغيل" Application.Quit Resume Exit_Form_Open ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
  15. أخي قاضي لازم تحط في بالك عملية حجم النموذج عند تصميمه فلا يمكن عمل نموذج أطول أو أعرض من الشاشة وعند عرضه تريده يكون ملائم لحجم الشاشة فالواقع لم يمر علي مثال كهذا حتى الآن ولكي تتضح لك الصورة اكثر ارجع الى موضوعك طلب توسيط النماذج في مختلف قياسات الشاشات وأنظر الى المثال الذي وضعته لك هذا المثال يقوم باعادة تحجيم النموذج حسب مقاسات الشاشة عند فتحه بوضع docmd.Maximize ولكن يجب عليك اولا ضبط المقاسات حسب الشاشة لديك قبل استخدام كود إعادة التحجيم وبعد ذلك سوف يفتح على جميع مقاسات الشاشات بنفس الشكل ملاحظة : تأكد أن كرت الشاشة تم تعريفه على جهاز الحاسب لديك بشكل صحيح ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
  16. نعم إستاذ @sandanet هذا من أفضل الأمثلة التي تعيد تحجيم النموذج عند فتحه بملئ الشاشة وليس هذا فقط بل يقوم على اظهار عناصر النموذج ف اماكنها ولا يقوم بازاحتها الى اليمين أو اليسار ,اعلى وأسفل وقد جربته على خمس شاشات مختلفة المقاسات وكانت النتائج ممتازه جدا ولكن توجد ملاحظة للحصول على أفضل نتيجة دائما اجعل اتجاه النموذج من اليسار إلى اليمين ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
  17. هذا الملف لازم تغير صيغته إلى accde بعدها جرب تغيير اسم الملف الاساس أو انقله من محله وشوف النتيجة ::بالتوفيق::
  18. قمت باستيراد الكائنات الى قاعدة بيانات جديده وعملت نموذج بنفس أسم النموذج اللي عندك واشتغل بدون مشاكل جرب اعمل ضغط وأصلاح وإذا ما نفع جرب طبق الطريقة بالرابط
  19. جرب المرفق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم Database2.rar
  20. وعليكم السلام شوف هذا المثال اضغط هنا ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيده فلا تنسى التقييم
×
×
  • اضف...

Important Information