saimon.91

وجدت الاداه في احد مشاركات الاعضاء وهذا هو الرابط رابط المشاركة

يعطيك العافية اخي كنت ابحث عنها ووجدتها عندك جزيت خيرا

لدي ملف اكسس من عملي عند فتحه يظهر تحذير امان كل مره ويطلب تمكين المحتوى كيف يمكنني حل هذه المشكلة والثقة بالمحتويات بطريقة دائمة

اعتذارات اخ شفان نعم تمت التجربة واعطت النتائج المطلوبة وشكرا جزيلا على تعبك معي بس ممكن طلب اخير اخ شفان معليش اعذرني طلباتي كثيره هل يمكنك ان تخبرني عن الطريقة عمل هذا التغير في الحقول وشكرا مقدما

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

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

مساء الخير تسلم حسام على مجهودك معي وجاري تجربه الكود

شكرا جزيلا اخي العزيز على جهدك وتعبك مع ولكن تاتيني رسالة خطاء عند فتح الملف (لا يمكن التعرف على تنسيق قاعدة البيانات ) مع العلم انا استخدم اكسس 2007

اخي سوف ارفق لك كود لزر البحث عند انشاء حدث قم بتجربته واعلامي بالنتائج لأنني قمت ببرمجته ولكن الفلتره عندي لا تعطيني اي نتيجة 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 & ") " DoCmd.ApplyFilter task End If End Sub

يعطيك العافية على الرد اخوي اريد اضافت مدة التوقيف لتاريخ التوقيف وحفظ القيمة الجديدة في حقل تاريخ انتهاء التوقيف

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

تم تعديل الموضوع واضافة المرفقات وشكرا لك اخي الكريم على الرد

السلام عليكم ورحمة الله تعالى وبركاته بسم الله الرحمن الرحيم اخوتي لدي مشكلة في قاعدة بيانات مصممة في الاكسس = قمت بتصميم نموذج من قاعدة بيانات في الاكسس للبحث والتصفية يعرض البيانات وقمت بتصميم زر وكتابة الاكواد البرمجية صحيحة ولكن لا يعطي النتيجة المرغوبة (يجدر بالزر عرض بيانات بين تاريخين مدخلين من و إلى ) اكواد زر البحث هل تأثر التسميات العربية للحقول في البرمجة. 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