[saimon]

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

بسم الله الرحمن الرحيم

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

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

كود :

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 (الحجم : 27.16 ك ب / التحميلات : 64)

الثانية : هل يمككني عمل قيمة افتراضية لتاريخ اعتمادا على قيمة حقل اخر في نفس الجدول مثلا لدي ثلاث اعمدة (تاريخ التوقيف ,مدة التوقيف , نهاية التوقيف)تاريخ التوقيف قيمة افتراضية تاريخ اليوم ومدة التوقيف ادخال من المستخدم واريد اضافة مدة التوقيف لتاريخ التوقيف اتوماتيكيا . <المرفقات>
  acces file.rar (الحجم : 27.16 ك ب / التحميلات : 64)

امل ان يكون شرحي للمشكلة يوصل قصدي

ارجو منكم المساعدة اخواني الاعزاء ولكم مني جزل الشكر
اخوكم / سليمان سام