ابوحمود

أخ طلال انسخ لي الكود كاملاً هنا . بنفس الموجود لديك لا تغير شيء . ولك تحياتي .

لو وضحت أكثر : لديك ثلاثة جداول الأول أسماء الموظفين والثاني مافمهت ومامعنى عداد للسجلات للموظف ؟ كأني فمهت أنك ترغب في تسجل عدد الموظفين في جدول الإحصائية وعدد الموظفين موجود لديك في جدول . هل ما فمهته صحيح ؟ ولك تحياتي

الأخ طلال لقد عملت تعليق أمام عبارة 'DoCmd.RunMacro "اسم الماكرو" فإذا كنت لم تغير الألوان الافتراضية في محرر الفيوجل بيسك فستظهر هذه العبارة باللون الأخضر أزل الفاصلة العلوية في بداية السطر أو أنسخ السطر التالي : DoCmd.RunMacro "اسم الماكرو" وغير اسم الماكرو …

Private Sub Form_Open(Cancel As Integer) 10 If التأكد_من_كلمة_المرور = False Then If MsgBox("كلمة المرور التي أدخلتها غير صحيحة ." & vbCrLf _ & "هل ترغب في إعادة المحاولة ؟", vbCritical + vbMsgBoxRight _ + vbMsgBoxRtlReading + vbOKCancel, "كلمة مرور غير صالحة"…

يجب تغيير اسم الماكرو الذي وضعته أنا بأسم الماكرو لديك . لاحظ أن أول مرة في التشغيل لا يظهر شيء وأما بعد ذلك فتظهر لك رسالة Msgbox عن تخيير المستخدم بين تكرار التشغيل مرة أخرى . وإذا لم يشتغل فهل تظهر رسالة أو شي . أخبرني من أين تشغل هذا الكود . ولك تحياتي

ما ذكرته واضح وكان الأفضل أن تطلبه من البداية . اليك الإجابة : Public Function التأكد_من_التاريخ() On Error Resume Next Dim checkDate As Variant checkDate = GetSetting("ApplicationName", "اسم النموذج", "تاريخ_التشغيل_الأخير") If IsNull(checkDate) Or checkDate …

افتح النموذج في وضع التصميم انقر على الزر انقر على زر خصائص في شريط الأدوات في حدث عند النقر اكتب =التأكد_من_التاريخ() فقط هذا هو المطلوب اخبرني إذا عمل معك . ولك تحياتي .

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

الكود التالي يقوم بنسخ جميع العناوين الموجودة في المفضلة بحيث تظهر في حقل عنوان الرابط اسم العنوان وحقل المجلد اسم المجلد الموجود فيه وحقل الرابط عنوان الموقع . و يلزم إنشاء جدول بثلاثة حقول : عنوان الرابط ونوعه رابط تشعبي المجلد ونوعه نص حجمه لا يقل عم 100 ال…

توضيح أبو بشاير لا يحتاج إلى استعلام بل تعمل ذلك في نفس النموذج .

ضع الكود في وحدة نمطية عامة . وإذا كنت سابقاً تستدعي الماكرو بزر أمر فاستبدل به الاستدعاء التالي : =التأكد_من_التاريخ() وأما اسم النموذج فهو اسم النموذج الذي تشغل الماكرو سابقاً منه . وتاريخ التشغيل الأخير هو آخر تاريخ قمت بتشغيل الماكرو فيه . أرجو أن تكون الم…

أخي الكريم عذراً فقط أخطأت بسبب عدم المراجعة المتأنية . ما كتبته : Between Forms![اسم النموذج]![شهر بداية] and Forms![شهر نهاية] والصحيح : Between Forms![اسم النموذج]![شهر بداية] and Forms![اسم النموذج]![شهر نهاية] هذا بالنسبة للشهر ويجب عليك تغيير (اسم النموذ…

اكتبها في نفس الوحدة ولا يؤثر ذلك في شيء . ولك تحياتي .

بالنسبة للسؤال الأول الخطوط العمومية التي تأتي مع الوندوز فطبعا ستجدها على كل جهاز يستخدم الوندوز ، وإذا رغبت في غيرها فوزعها مع البرنامج . وأما التأكد فلا يحتاج الأمر إلى تأكد فجهاز لا يوجد فيه نفس الخط من أين يأتي به البرنامج والغالب أنه سيستبدل به أحد الخطو…

هذه طريقة لحفظ التاريخ في سجل وندوز أما إذا كنت تعمل بالبرنامج على أكثر من جهاز فيجب حفظ تاريخ التشغيل الأخير في جدول : Public Function التأكد_من_التاريخ() On Error Resume Next Dim checkDate As Variant checkDate = GetSetting("ApplicationName", "اسم النموذج", "…

بخصوص عدم وجود بيانات في الاستعلام فأبسط أسلوب لذلك استخدم : If DCount("[أحد حقول الاستعلام]", "[اسم الاستعلام]") = 0 Then فإذا كانت القيمة صفر فمعناه لا يوجد بيانات . أما النموذج فكما قال ابو دانية وإذا كنت ترغب في جعل النموذج مفتوحاً ولكن لا ترغب في ظهوره أم…

استخدم هذا الكود في حدث عند الخروج If InStr([حقل الصف], "/") > 0 Then Dim Mystr1, Mystr2 Mystr = [حقل الصف] Mystr2 = InStr([حقل الصف], "/") Mid(Mystr, InStr([حقل الصف], "/"), 2) = " /" & Mystr2 [حقل الصف] = Mystr & Mystr2 End If ولك تحياتي

نعم في حدث التحميل . وغير اسم الملف والمسار . وإذا وجدت أن تحميله يؤخر فتح النموذج فضعه في حدث المؤقت .

جرب أن تقسم نتيجة الحقلين على مائة لتظهر النتيجة بشكل صحيح . ولك تحياتي .

لم تعمل الروابط . هل ترغب في حفظ كلمة المرور في سجل وندوز أم في جدول وضح المطلوب .