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

استفسار عن طريقة برمجة زر فلترة البيانات باستخدام التواريخ


saimon.91

الردود الموصى بها

السلام عليكم ورحمة الله تعالى وبركاته
 
 
 
بسم الله الرحمن الرحيم
 
 
 
اخوتي لدي مشكلة في قاعدة بيانات مصممة في الاكسس
 

= قمت بتصميم نموذج من قاعدة بيانات في الاكسس للبحث والتصفية يعرض البيانات وقمت بتصميم زر وكتابة الاكواد البرمجية صحيحة ولكن لا يعطي النتيجة المرغوبة (يجدر بالزر عرض بيانات بين تاريخين مدخلين من و إلى )

اكواد زر البحث هل تأثر التسميات العربية للحقول في البرمجة.

Option Compare Database

Private Sub ÃãÑ28_Click()

Call Search

End Sub

Sub Search()
Dim strCriteria, task As String

Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
    MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ÊæÇÑíÎ ÇáÈÍË", vbInformation, "ÎÇäÇÊ ÇáÊæÇÑíÎ ãØáæÈÉ"
    Me.OrderDateFrom.SetFocus
Else
    strCriteria = "([تاريخ التوقيف]>=#" & Me.OrderDateFrom & "# And [تاريخ التوقيف]<=#" & Me.OrderDateTo & "#)"
    task = "select * from ÇáÓÌá where(" & strCriteria & ") order by [تاريخ التوقيف]"
    DoCmd.ApplyFilter task
End If
End Sub

< والملف في المرفقات .>
 
ارجو منكم المساعدة اخواني الاعزاء ولكم مني جزل الشكر
اخوكم / سليمان سام

acces file.rar

acces file.rar

تم تعديل بواسطه saimon.91
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information