22-10-16, 09:08 PM
(آخر تعديل لهذه المشاركة : 23-10-16, 12:26 PM {2} بواسطة saimon.
تعديل السبب: اضافة الكود
)
السلام عليكم ورحمة الله تعالى وبركاته
بسم الله الرحمن الرحيم
اخوتي لدي مشكلتين في قاعدة بيانات مصممة في الاكسس
الأولى : قمت بتصميم نموذج من قاعدة بيانات في الاكسس للبحث والتصفية يعرض البيانات وقمت بتصميم زر وكتابة الاكواد البرمجية صحيحة ولكن لا يعطي النتيجة المرغوبة (يجدر بالزر عرض بيانات بين تاريخين مدخلين من و إلى ).
< والملف في المرفقات .>
acces file.rar (الحجم : 27.16 ك ب / التحميلات : 57)
كود :
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 ك ب / التحميلات : 57)
الثانية : هل يمككني عمل قيمة افتراضية لتاريخ اعتمادا على قيمة حقل اخر في نفس الجدول مثلا لدي ثلاث اعمدة (تاريخ التوقيف ,مدة التوقيف , نهاية التوقيف)تاريخ التوقيف قيمة افتراضية تاريخ اليوم ومدة التوقيف ادخال من المستخدم واريد اضافة مدة التوقيف لتاريخ التوقيف اتوماتيكيا . <المرفقات>
acces file.rar (الحجم : 27.16 ك ب / التحميلات : 57)
acces file.rar (الحجم : 27.16 ك ب / التحميلات : 57)
امل ان يكون شرحي للمشكلة يوصل قصدي
ارجو منكم المساعدة اخواني الاعزاء ولكم مني جزل الشكر
اخوكم / سليمان سام
اخوكم / سليمان سام