kaser906

حاولت افتح القاعدة المرفقة تتوقف عن التشغيل ويتم اغلاقها في ورقة الخصائص للحقل ضع هذا الكود عند النقر المزدوج لفتح النموذج على تقويم أم القرى' =Open_Cal([ActiveControl];2) وهذا للهجري =Open_Cal([ActiveControl];1) وهذا للميلادي =Open_Cal([ActiveControl];0)

تفضل جرب الآن Me.[Nd] = UmFormat(UmDateAdd("d", Val(Me.Md) - 1, Me.[Bd]), Nd.Format) Me.[Ad] = UmFormat(UmDateAdd("d", Val(Me.Md), Me.[Bd]), Ad.Format) ejazat_hejri_mdb1.rar

حاولت اطبق على المرفق لكن فشلت عندي نفس العملية لكن يجب ان تكون قاعدة البيانات مقسمة وأريد تطبيق طريقتك بحيث يشير لمكان الملف والصورة سواء كان قاعدة البيانات مقسمة ام مضمنة مع الاخذ بالاعتبار ان اغلب الصور والملفات موجود على جهاز خادم ويتم فتحها من قبل جهاز مستخدم للوهلة الأولى من نظرتك للمرفق ستعرف ان طريقة عرض ملف pdf هي من افكارك النيرة امل منك التطبيق لعرض ملف pdf وصورة jpg والتعديل على زري الامر بحيث لو كان المجلد EmpPdf.File موجود بمجلد قاعدة البيانات يتم إضافة ملف Pdf بنفس رقم الحقل PcDigt بالنموذج وان كان الملف موجود تظهر رسالة هل تريد الاستبدال وان لم يكن المجلد موجود يتم انشائة داخل مجلد قاعدة البيانات ويتم إضافة الملف الية ونفس الشي بالنسبة للصورة بحيث يكون اسم المجلد Empjpg.File وان كانت موجودة تظهر رسالة هل تريد الاستبدال Addpdf.rar

راجعة المرفق وهو يعمل بشكل صحيح اذا كان هناك مشكلة نأمل التفصيل أنظر الصورة المرفقة

وضحت الصورة الله يعطيك العافية استاذ

هل المقصود مثلا اعطائي قيمة = me. text.column(3) ويجفظها بالجدول بدل قيمة me.text.column(0)

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

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

تفضل Accounts 2008.rar

لايوجد مرفق

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

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

يا سلام عليك شغل محترفين رحم الله والديك

صراحة شغل مرتب ربي يعطيك الصحة والعافية حبيت استفسر عن هذي criti هل هي دالة أو ايش وماهي وظائفها وبعدين لاتنسى موضوع تفكيك جملة SQL وتحويلها الى كود ترى ما زلت انتظر الشرح

السلام عليكم ورحمة الله وبركاتة كتبت هذا الكود لعد سجلات Me.peoplev = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]And[service] =1 or [Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 7 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 8 )and[Independent_Facilities]=1 or[Independent_Facilities]=2 or[Independent_Facilities]=3") Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", "([Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]And[service] =1 or [Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 7 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 8 )and[Independent_Facilities]=1 or[Independent_Facilities]=2 or[Independent_Facilities]=3") حيث اني اريد عد السجلات التي تكون فيها قيمة الحقل service = 1 or 2 or 3 or or 6 or 7 or 8 ويستثني الرقم 4 و 5 وتكون قيمة الحقل Independent_Facilities 1 or 2 or 3 ويستثني الرقم 4 ويكون حقل Num_brnamge = حقل Num_brnamge في النموذج لكن الكوديين السابقين لايعطيني نتيجة صحيحة امل التعديل Dcoun.rar

شوكرا لك استاذ

نفس الشي أستاذ شفان بعد النقر على زر إيقاف لايمكن التعديل على سجل ولا يمكن إضافة سجل جديد أعتقد أن سأكتفي باقتراحك الأول Private Sub cmdenbld_Click() ' للاخفاء Me.NavigationButtons = False End Sub Private Sub cmdenbld1_Click() ' للاظهار Me.NavigationButtons = True End Sub

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

الله يعطيكم العافية اساتذتي

جميل الآن استطيع أن أطرح السؤال الأخر هل يمكن إيقاف عمل الأزرار بعد النقر على زر أمر بمعنى لو نقرة على زر التالي لايستجيب وعند النقر على زر السابق لايستجب وعند النقر على زر السجل الأول وعند النقر على زر السجل الأخير نفس الشي

إلى الآن الإجابة مش واضحة اريد إجابة غير دبلماسية أما نعم أو لا

اخي بحسب الشرح الذي بالصورة يعني ان هناك تعليمة برمجية موجودة ولذلك يبقى السؤال هل يمكن الوصول لهذه التعليمة وتوظيفها حسب المطلوب هنا السؤال ؟؟؟ الذي يحتاج إجابة الخبراء

يعطيك العافيه أستاذ شفان هذا ليس المطلوب اريد فقط تجميد الازرار بدون اخفائها ليس هذا هو المطلوب