كود يفيد ان تاريخ البداية اكبر من تاريخ النهاية

اخي الفاضل

استخدم هذا الكود في حدث عند فقدان التركيز لمربع النص الثاني ( نهاية التاريخ )

Private Sub txtEndDate_LostFocus()
    If Me.txtEndDate < Me.txtStartDate Then
        MsgBox "أخي الكريم ... تاريخ النهاية اصغر من تاريخ البدابة"
        Me.txtStartDate.SetFocus
    End If
End Sub

بالتوفيق

شكرا جزيلا اخت زهرة

zahrah كتب:

اخي الفاضل

استخدم هذا الكود في حدث عند فقدان التركيز لمربع النص الثاني ( نهاية التاريخ )

Private Sub txtEndDate_LostFocus()
    If Me.txtEndDate < Me.txtStartDate Then
        MsgBox "أخي الكريم ... تاريخ النهاية اصغر من تاريخ البدابة"
        Me.txtStartDate.SetFocus
    End If
End Sub

بالتوفيق

الاخت زهرة نفعنا الله بعلمك

هل من الممكن التركيز على نفس الخلية بعد تنفيذ الحدث

ebraheem-w كتب:

الاخت زهرة نفعنا الله بعلمك

هل من الممكن التركيز على نفس الخلية بعد تنفيذ الحدث

Private Sub txtEndDate_LostFocus()
    If Me.txtEndDate < Me.txtStartDate Then
        MsgBox "أخي الكريم ... تاريخ النهاية اصغر من تاريخ البدابة"
        Me.txtEndDate.SetFocus
    End If
End Sub

بالتوفيق

zahrah كتب:

Private Sub txtEndDate_LostFocus()
    If Me.txtEndDate < Me.txtStartDate Then
        MsgBox "أخي الكريم ... تاريخ النهاية اصغر من تاريخ البدابة"
        Me.txtEndDate.SetFocus
    End If
End Sub

بالتوفيق

اشكرك اخت زهرة على سرعة التجاوب

لكني حاولت ان تنفيذ الكود على برنامجي لكنها لم تنجح

هذا رابط البرنامج

اشكرك مرة اخرى ام العهود على مساعدتك

هذا هو رابط البرنامج

/index.php?showtopic=264163

ebraheem-w كتب:

اشكرك اخت زهرة على سرعة التجاوب

لكني حاولت ان تنفيذ الكود على برنامجي لكنها لم تنجح

هذا رابط البرنامج

اشكرك مرة اخرى ام العهود على مساعدتك

هذا هو رابط البرنامج

/index.php?showtopic=264163

اخي الفاضل : ابراهيم

الكود يعمل بشكل سليم ور يوجد به اي خطأ

فعند ادخال تاريخ البداية اكبر من تاريخ النهاية ثم الإنتقال الى اي حقل آخر في النموذج فإنه سيتم ظهور الرسالة التنبيهية ومن ثم التركيز على حقل تاريخ البداية

بالتوفيق

عذرا سيدتي ام العهود

ياريت تتحملوني لاني مبتدا

بالنسبة لكافة خيارات البحث اذا ادخلت بيانات يتأكد الكود من التاريخ (اذا كان التاريخ البداية اكبر من النهاية) ينتقل مباشرة الى تاريخ البداية

ولكن اذا ادخلت في خانة تاريخ البداية (وكان التاريخ البداية اكبر من النهاية) فإن التركيز لايبقى بنفس الحقل او اني لااراه في وضع تحرير نفس الخلية

شاكر تعاونكم واهتمامكم

ebraheem-w كتب:

عذرا سيدتي ام العهود

ياريت تتحملوني لاني مبتدا

بالنسبة لكافة خيارات البحث اذا ادخلت بيانات يتأكد الكود من التاريخ (اذا كان التاريخ البداية اكبر من النهاية) ينتقل مباشرة الى تاريخ البداية

ولكن اذا ادخلت في خانة تاريخ البداية (وكان التاريخ البداية اكبر من النهاية) فإن التركيز لايبقى بنفس الحقل او اني لااراه في وضع تحرير نفس الخلية

شاكر تعاونكم واهتمامكم

لا يوجد مشكلة اخي الكريم : ابراهيم

الآن عند فتح النموذج سيكون تاريخ البداية وتاريخ النهاية متساوين في التاريخ لآن القيمة الإفتراضية لهما هي Date .

عندما تقوم بتعديل تاريخ البداية الى تاريخ أكبر من تاريخ النهاية وتقوم بالضغط على زر الأمر ( بحث ) ستظهر لك الرسالة وبعد ضغط ( موافق ) في الرسالة سيتم نقل التركيز الى حقل تاريخ البداية مع تضليل الحقل بالكامل

za-الوارد والصادر.rar

بالتوفيق

الان ارتحت بعدما اقتنعت بالاجابة

اشكرك جزيل الشكر اخت ام العهود على مساعدتي