رمهان

السلام عليكم اولا اعتذر من الاستاذ ابا خليل وتطفلت بان حاولت اطبق فكرته وقد يكون الواقع والذي في باله غير ذلك وهذه ضحايا الموانة الزايدة اخي جمال شكرا واعتقد انك تستحق خبير من الان ومن خلال قرائتي لمشاركاتك اخي الزهراني جرب الاستعلام التالي وكمصدر للنموذج : اي اذهب لمصدر النموذج والصق هذا الاستعلام بديلا لمصدر السابق ثم اذهب لعرض التصميم للاستعلام لتختبر المحاولة وهل هي لما تريد وتقصد SELECT Table1.ID, Table1.User, Table1.Section, Table1.Status FROM Table1 WHERE (((IIf(IsNull([forms]![Form1]![SectionSearch]),1,InStr(1,[Section],[Forms]![Form1]![SectionSearch])))>0) AND ((IIf(IsNull([forms]![form1]![UserSearch]),1,InStr(1,[user],[Forms]![Form1]![UserSearch])))>0) AND ((IIf(IsNull([forms]![form1]![StatusSearch]),1,InStr(1,[status],[Forms]![Form1]![StatusSearch])))>0)); بالتوفيق

الكود مطبق على مثالك المرفق السابق . وهو جدول اما كسؤال جديد فلا يفرق سواء مصدر التقرير جدول ام استعلام المهم تطابق اسماء الاعمدة بين النموذج والتقرير بالتوفيق

هذا تطبيق لحل الاستاذ ابا خليل بالتوفيق

عزيزي لو ترفع مرفق بسيط به المشكلة افضل تحياتي

عزيزي هذا الكود للمطلوب وعند النقر المزدوج على عنصر البحث Private Sub txt_Search_DblClick(Cancel As Integer) DoCmd.OpenReport "report", acViewPreview, , Me.Filter End Sub ولكن اسمحولي براي هنا ادارة المنتدى تسعى جاهدة لتقليل المواضع المكرره خصوصا في فترات متقاربة . هنا العتب اكثر على الاساتذة حيث هم اولى بالاشارة الى الموضوع وخصوصا لو اصبح في فتره متقاربة جدا فهنا نفس الموضوع بالتمام تحياتي

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

جرب استخدام الدرايفر الاخير sql native client ومع الاصدار 2013 واعطنا النتائج تحياتي

تمام اذاً سيصبح كود زر فتح التقرير هكذا Private Sub Command27_Click() DoCmd.OpenReport "tblEmployee", acPreview, , Me.fsubEmployee.Form.Filter End Sub بالتوفيق

اخي ابو عبدالله جرب اعادة الربط . لماذا انسب datetime لانه نفس الحجم بالاكسس 8 بايت وسيخزت التريخ كامل وليس كتنسيق فقط . وهنا يمكن استخدام دالة cdate لتحويل وفي اسوأ الحالات واذا لم تزبط لدي استفسارين 1. اصدار الاكسس لديك والويندوز 2. ماهي الدرايفرز الخاصاة بال odbc لديك . المسروده كما بالصورة التالية تحياتي

هل سياخذ كل مكرر لون مختلف ام ان جميع الارقام تصبح بلون واحد ؟

تم الرد هنا بالتوفيق

يمكن ان العميل يدخل على تصميم الجدول ويغير نوع البيانات ؟ هل تضمن عدم ذلك @ام ناصر لكنك صراحة ماذا ؟ الصراحة مشاركاتك لها طعم خاص اخي @sandanet تحياتي للجميع

شكرا ستاذ محمد نجار على مشاركاتك تفضل اخي @الصوصي لاحظ تعديل بسيط على مصدر سجلات مربع التحرير حيث تم تغيير نوع مصدر السجلات الى قائمة حقول ومصدر السجلات اسم الجدول هنا سيتم سرد سماء الحقول تلقائي ولا داعي لكتابتهم كمصدر قيم بالتوفيق FindAsUType.rar

الاخ علي اطلعت على المرفق ويحتاج تعديلات خلينا نعمل البحث اول فزر البحث لا يعمل وهنا سنطبق فكرة الاستاذ كامل السابقة ضع الكود التالي بديلا لكود البحث السابق لديم وسيصبح الكود بالشكل التالي وهي تطبيق لفكرة الاستاذ كامل Private Sub cmdSearch_Click() Me.fsubEmployee.Form.Filter = "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#" Me.fsubEmployee.Form.FilterOn = True End Sub لما تخبرنا ان التجربة تمت بنجاح لزر البحث ننتقل لطباعة نتائج البحث بالتوفيق

السلام عليكم ومشاركة مع الاستاذ المميز شيفان تعتمد الاجابة على الاحابة على التالي 1. ماهو نوع البيانات في الاس كيو ال datetime او date او ماذا ؟ 2. ماهي طريقة الربط لديك او بمعنى اصح ماهو الدرايفر لديك ؟ هل هو odbc العادي ام native sql client ؟ هذا ومبدئيا يمكن ان يكون ان تجرب ان تضع وتتاكد نوع البيانات في الاس كيو ال = DateTime تحياتي

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

عزيزي هناك دالة getimagefolder يمكنك استخدامها ولكن حيث انني لا استطيع التجربة على مثالك حيث الحاجة لتسجيل الاداة ويمكن تجربة الكود التالي بديلا لما تفضل به اخي اوس وهو مشتق من حله مشكورا Kill currentproject.path & "\images\" & EmpPIC.Value بالتوفيق

لهذه الجزئية من خلال خصائص جزء التفصيل للتقرير ومن تبويب تنسيق يوجد خاصية لون الخلفية البديل alternative back color بالتوفيق

لا تظهر المشكلة فعرض المربع يزداد مع عرض التفصيل

مشاركة مع الاستاذ صالح وللاثراء لبداية الشهر اكتب التعبير في المربع الاول بداية اشهر =DateSerial(Year([m5s1]),Month([m5s1]),1) ولنهاية الشهر =DateSerial(Year([m5s1]),Month([m5s1])+1,0) بالتوفيق

السلام عليكم استاذ @عبد الفتاح كيرة هذا تطبيق على المثال اعلاه وكاستعلام تحديث بدون اكواد وعذرا على التاخر فرمضان كريم UPDATE t1 SET t1.taq = DLookUp("taqq","t2","yy=" & Nz(DMax("yy","t2","empid=" & [id]),0) & " and empid=" & [id]), t1.t3am = DLookUp("yy","t2","yy=" & Nz(DMax("yy","t2","empid=" & [id]),0) & " and empid=" & [id]), t1.taq2 = DLookUp("taqq","t2","yy=" & Nz(DMax("yy","t2","empid=" & [id] & " and yy<>" & DMax("yy","t2","empid=" & [id])),0) & " and empid=" & [id]), t1.t3am2 = DLookUp("yy","t2","yy=" & Nz(DMax("yy","t2","empid=" & [id] & " and yy<>" & DMax("yy","t2","empid=" & [id])),0) & " and empid=" & [id]); تحياتي

كيفك استاذ @أ / محمد صالح سعداء بعودتك ومشاركتك هذه الفترة وشرف كبير لنا جربت ان وضعت الخيار الهجري وقبل التاريخ اعلاه 29/02/1438 ! ام تقصد تاريخ اخر تحياتي

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

شكرا لك على التنبيه والذي لم انتبه له من قبل .. اكرر شكري وتقديري

بارك الله لكم جميعا