البحث بالتاريخ الهجري

جرب تعديل هذا السطر

strWhere = strWhere & "([DateTranc] <= " & Format(Me.txtEndDate, conJetDate) & ") AND "

شكرا لك اخي الكريم

لكن ما هو التعديل الذي قصدته

السلام عليكم

يا طمطم انت وأنا في الهوى سوا

عجيب !! دخلت المنتدى من أجل هذه المشكلة ، ولكني احمل معي مثالي :

فعن نفسي ونيابة عن اخي طمطم

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

نأمل من الاخوان المساعدة جزاكم الله خيرا .

Search.rar

وعليكم السلام ورحمة الله وبركاته...

جرب التعديل التالي في الكود:

Private Sub Command22_Click()
    Dim strWhere As String                  'The criteria string.
    Dim lngLen As Long                      'Length of the criteria string to append to.
    Dim numbers As Long


 Calendar = vbCalGreg

    Const conJetDate = "\#mm\/dd\/yyyy\#"   'The format expected for dates in a JET query string.
              If Not IsNull(Me.txtStartDate) Then
        strWhere = strWhere & "([date1] >= " & Format(Me.txtStartDate, conJetDate) & ") AND "
    End If
        If Not IsNull(Me.txtEndDate) Then   'Less than the next day.
        strWhere = strWhere & "([date1] < " & Format(Me.txtEndDate + 1, conJetDate) & ") AND "
    End If
           lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strWhere = Left$(strWhere, lngLen)
              Me.Filter = strWhere
        Me.FilterOn = True
    End If
End Sub

هناك سطر واحد مصاف فقط، والهدف من التعديل هو التغيير إلى التقويم الميلادي عند استخدام الكود فقط.

والله أعلم...

مشكور اخي أحمد يسر الله دربك ورزقك من حيث لا تحتسب

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

وهنا يتبادر سؤال :

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

الف شكر لكل من شارك في هذا الموضوع

وبالفعل نجح ما ذكره الاخ احمد مبارك

واضافة الى الموضوع

يمكن استخدام الكود التالي لإختبار نوع التقويم لديك هل هو هجري ام ميلادي

 If CmbCalendar1 = 0 Then

MsgBox "نظام التقويم المستخدم ميلادي"

Else

MsgBox "نظام التقويم المستخدم هجري"

End If

حيث القيمة صفر خاصة بالميلادي

والقيمة 1- خاصة بالهجري

والله الموفق