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

qathi

04 عضو فضي
  • Posts

    996
  • تاريخ الانضمام

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

  • Days Won

    1

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

  1. أشكرك أستاذي الغالي @sandanet على سعة صدرك لي قمت بتجربت الملفين الأخيرين على برنامجي المقسم جداول وواجهات ونفس المشاكل - بالنسبة للملف قبل الاخير تظهر الرسالة هذه الاختلاف في الرسالة مسار القاعدة في القرص D - وبالنسبة للملف الاخير يقوم باغلاق البرنامج ولا يقوم بتشغيلة مرة أخرى طبعا أضع أمر أعادة التشغيل بعد أمر الضغط والاصلاح
  2. أهلاً بعودتك لنا أستاذنا @رمهان كيف اخبارك .. طولت الغيبة علينا .. سعدنا بعودتك
  3. حفظك الله أستاذي الغالي @sandanet كلماتي تعجز عن شكرك على ماتبذله من مجهود لمساعدتي بارك الله فيك .. وجزاك الله كل خير بعد تجربة الملف الاخير فانه يعمل تمام .. ماعدى ضهور هذة الرسالة عند عمل الكود بعد اغلاق البرنامج وفتحة من جديد والسبب في ظهورها أنه يتطلب وقت أكبر لعملية الضغط والاصلاح لأن البرنامج كبير نسبيا واذا تم ضغط زر موافق فأن البرنامج يعمل فهل يمكن ألغاء هذة الرسالة أو عمل مؤقت زمني بحيث لا يقوم بالفتح ألا بعد عمل ضغط واصلاح
  4. أشكرك أستاذي الغالي @sandanet على ردك .. بارك الله فيك بعد تجربة الملف الاخير .. مازلت المشكلة قائمة
  5. أستاذي الغالي @sandanet أعود لك من جديد .. بعد تجربة الكود كثيرا قمت بوضع كود اعادة التشغيل بعد كود الضغط واصلاح فلم يعمل واذا كان غير ذلك فانه يعمل 'كود الضغط واصلاح Application.SetOption "Auto compact", True 'كود اعادة تشغيل البرنامج Utilities.Restart Compact:=Nz(ckCompact, False) فما حل المشكلة ؟؟؟
  6. شكرا لك أستاذنا @SEMO.Pa3x على ماتقدمة لنا قمت بتعديل بسيط حتى يكون اللون ثابت عند تحميل النموذج .. فتم بنجاح Me.SEMO.BackColor = HEX2OLE("#00838F") بارك الله فيك .. وجزاك الله خيرا
  7. مبارك عليكما أستاذي @sandanet وكذلك @محمد ابوعبدالله بالتوفيق
  8. أستاذي @kaser906 قبل أي شيء .. كلاماتي تعجز عن شكرك لم أنتبه لردك ألا بالامس .. فقمت بتحميل الملف وقمت بتجربته بشكل سريع وأول ماقمت به رفعت أكفي بالدعاء لك ولولديك ولذريتك ... كما أدعو لنفسي .. وكما تعلم أنه يوم الجمعة ولعلها تكون ساعة أستجابة أن شاء الله فجزاك الله عني خيرا سأقوم بتجربته أكثر على أكثر من شاشة وأوافيك بالنتائج أرجو أن يسع صدرك لي لدي ملاحضتين: اولاً - بعض النماذج يتم توسيطها تماما والبعض لا هل يتطلب امر اخر غير هذ الكود Me.KeyPreview = True Set frmResize = New FormResize Set frmResize.Form = Me ثانياً: - في النماذج الذي عند فتحه يوجد كود docmd.Maximize .. مع الاكواد السابقة .. لكن يكون النموذج مائل ليمين الشاشة للاعلى بالرغم تنسيق اتجاة من اليسار إلى اليمين .. هل هناك حل لذلك أم أن عليا جعلة من نمط الحدود مربع حوار والغي docmd.Maximize أستاذي الكاسر قلت في المشاركة السابقة هل تقصد اضبط قياسات جميع الكائنات من ازرار والحقول وووو .....الخ في النموذج .. هذا مرهق جدا جدا لأن لديا عدد النماذج تفوق المائة هل ممكن توضع أكثر .. أو لديك مثال للذي تقصد نموذج فيه الكائنات والاكود أستاذي @sandanet كلامك صحيح ياريت يكون في مديول واحد او اثنين فقط
  9. أشكرك أستاذي @sandanet على هذا المثال .. هكذا تعودتنا بعطائك وخيرك الذي لا ينقطع بارك الله فيك .. وجزاك الله عني خير
  10. أخواني وأساتذتي الأفاضل .. هل يوجد كود تحت زر يقوم بأعادة تشغيل ملف أكسس الحالي ؟؟؟
  11. أخي وأستاذي @kaser906 أشكرك على ردك و ومجهود .. أستاذي @ابا جودى شكرا لك على ردك سعدت جداً بذلك نفس المشكلة لم تتغير بالنسبة لملف test استاذي ابا جود وملفك استاذي الكاسر فأنهما غير مضبوطان السبب يقوم باقتصاص الجزء السفلي للنموذج .. ومازالت النماذج تميل لأسفل الشاشة بالرغم الأقتصاص النموذج أما ملف test2 فانه يختفي الجزء السفلي للنموذج خلف شريط المهام حتى أقرب المسأله لكم : أساتذتي هل لديكم مسطرة تقومان باخذ قياس الشاشة .. حتى تعرفو كم الفرق من راس النموذج الى نهايت الشاشة بالاعلى وكذلك من اسفل النموذج الى حدود مستطيل شريط المهام عندي يظهر الفارق في عرض النموذج في ملف ابا جود test كالتالي: - راس النموذج الى نهايت الشاشة بالاعلى 3.2 سنتي متر - اسفل النموذج الى حدود مستطيل شريط المهام 2.3 سنتي متر ستلاحظون أن الفارق 1 سنتي متر تقريباً
  12. أعتذر منك أستاذي لكن سأحاول معرفة سبب المشكلة الليلة وأذا لم أتمكن .. حينها أرجو أن يكون لديك وقت معي في بالتواصل ببرنامج بالتيم غدا بأذن الله فما رائيك ؟؟
  13. أخي وأستاذي @kaser906 أشكرك كل الشكر على ردك ... مقدار فرحتي لا توصف عندما رايت ردك بارك الله فيك وجزاك الله عني خير .. كما أخلت عليا السعادة بردك .. أسأل الله أن يدخل عليك السعادة يوم أن تلقاه أستاذي حاولت ونقلت الكائنات اكسس الى برنامج كالتالي: جدول UsystblUsefulData مايكرو autoexec مديول modUtilities ونسخت الكود عند الفتح نموذج شاشة الدخول Me.KeyPreview = True Call CenterFrm(Me) وعند مفتاح الى اسفل If Shift = acAltMask And KeyCode = vbKeyF11 Then KeyCode = 0 End If وقمت بتغير اسم النموذج في المايكرو بالنموذج شاشة الدخول الذي عندي لكن عند تشغيل الملف تظهر هذه الرسالتين وبعد الضغط على موافق تظهر هذه الرسالة فما سبب المشكلة ؟؟؟
  14. هل أرضخ للأمر الواقع بعدم أمكانية تعديل المديول وبفشله في تحقيق المطلوب .. ؟؟؟ أرجوا من استذتي الخبراء أعطائي تأكيد بذلك
  15. ما شاء الله استاذي @sandanet لا تنفك أن تقوم بتطوير الحماية بشكل افضل .. تعتبر أنت كنز ثمين لمنتدانا الشامخ .. فجزاك الله عنا كل خير .. ساقوم بالتجربة بأذن الله .. بعد التحميل أكثر من مرة ظهرت رسالة تلف الملف هل ممكن أعادة رفع الملف
  16. أخواني وأساتذتي الأفاضل أرجو المساعدة في التالي: دقة الشاشة عندي 1366x768 بالمرفق يوجد فية المديول الماخوذ من ملف استاذنا @ابا جودى سبب أن يتم أختفاء الجزء السفلي للنموذج خلف شريط المهام .. كما أن جميع النماذج تضهر مائلة بالاتجاة السفلي وتبقى مساحة في الجزء العلوي من الشاشة - أتمنى التعديل بأن تكون جميع النماذج مرتفعة فوق شريط المهام .. وأن يحتسب الاطار الخاص بشريط المهام في التوسيط النماذج في الشاشة قست ارتفاع شريط المهام عندي وكان 1 سنتي متر أو أرجوا حسب خبرتكم بنصحي بطريقة مثلى وأفضل .. بدون التلاعب بسطح المكتب المستخدم بتعديل دقة الشاشة مرفق الملف للتعديل Database1.rar
  17. أستاذي @أبو عبدالله الحلوانى أشكرك .. حفظك الله ورعاك تم حل المشكلة من قبل أستاذي @ابو ياسين المشولي وذلك بأبقاء المديول كما هو وبوضع كود الاستدعاء Call Create_Record_For_Every_Item2 تحت زر بدل حدث بعد التحديث .. فتم الأمر بنجاح بارك الله فيكم جميعاً .. وجزاكم الله عني خير .. ورزقكم الله الصلاح والفلاح في الدنياء والأخرة
×
×
  • اضف...

Important Information