تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس
#1
Sad 
السلام عليكم ورحمة الله تعالى وبركاته



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



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

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

كود :
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

< والملف في المرفقات .>
.rar   acces file.rar (الحجم : 27.16 ك ب / التحميلات : 57)




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

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



ارجو منكم المساعدة اخواني الاعزاء ولكم مني جزل الشكر
اخوكم / سليمان سام
الرد }}}
تم الشكر بواسطة:
#2
مافي اي واحد عرف مشكلتي يا اخوان
الرد }}}
تم الشكر بواسطة:
#3
يا أخي لما نظرت للكود لقيت اسماء عربية للجدول والحقول
هذذا اول وأكبر خطأ
وما ادرى عن المرفق ربما تجد المساعدة فيه من أحد الاخوة
نصيحتي لا تستخدم اللغة العربية في تسمية الجداول والحقول ولا قواعد البيانات نهائيا لتتجنب المشاكل
وبالنسبة للبحث بين تاريخين هذا الامر يعتبر من المعضلات في قواعد البيانات ليس مستجيلا ولكن لكل حالة علاج خاص فقط
وانت تريديد ان تبحث بين تاريخين ولم تستخدم Between
?
حتى ولو بين رقمين استخدمها
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: saimon
#4
اولا اخي شكرا جزيلا لاعطائي من وقتك والرد على استفساري

strCriteria = "([ÊÇÑíÎ ÇáãÎÇáÝÉ]>=#" & Me.OrderDateFrom & "# And [ÊÇÑíÎ ÇáãÎÇáÝÉ]<=#" & Me.OrderDateTo & "#)"
task = "select * from ÇáÓÌá where(" & strCriteria & ") "
هذا هو كود زر البحث طبعا الرموز الظاهرة كلمات عربية سوف احاول تغير اسماء الحقول إلى الانجليزية واجرب
سؤال هل يمكنني تسمية الحقول لتظهر باللغة العربية ولكن استخدم مسميات انجليزية في البرمجة مثلا تاريخ البداية يظهر كأسم حقل ولكن في قاعدة البيانات تكون مسمى انجليزي
الرد }}}
تم الشكر بواسطة:
#5
ابو عمر شكرا لجهد معي
تم ايجاد حل لمشكلة البحث بين تاريخين من فيديو في اليوتيوب وسوف اضع الرابط لمن يريد الاسفاده منه
الفيديو موجود في اخر الصفحة في هذا الرابط
[url=http://et3lmonline.com/2013/09/%D8%AA%D8%B5%D9%81%D9%8A%D8%A9-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-query-%D9%88%D9%81%D9%82%D8%A7%D9%8B-%D9%84%D9%85%D8%AF%D8%AE%D9%84%D8%A7%D8%AA-form-%D8%A3%D9%83%D8%B3%D8%B3/][/url]
واورجو مساعدتي في مشكلتي الاخرى
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم