aboeyad2007

صحيح معك حق اخي هذا المرفق تفضل عياب.accdb

السلام عليكم اخواني الافاضل عندي نموذج قمت بعمل فلترة بين تاريخين عن طريق مربعي نص ولكن المشكلة في التاريخ الهجري لاتعمل الفلترة والنموذج يظهر فارغ وعند تحويل القاعدة الى التاريخ الميلادي كل شي يعمل تمام هذا الكود المستعمل وهو يعمل بشكل ممتاز في التواريخ الميلادية فقط ،، هل من الممكن التعديل عليه لكي يعمل مع التاريخ الهجري Private Sub ÃãÑ73_Click() On Error GoTo ErrHandler DoCmd.OpenReport ReportName:="ÛíÇÈ", View:=acViewPreview, _ WhereCondition:="[ÛíÇÈ_ÇáØÇáÈ] Between #" & Format(Me.ÛíÇÈ_ÇáØÇáÈ, "dd/mm/yyyy") & _ "# And #" & Format(Me.to, "dd/mm/yyyy") & "#" Exit Sub ErrHandler: If Err <> 2501 Then MsgBox Err.Description, vbExclamation End If End Sub شكري وتقدري مقدما للجميع .. للتعقيب فقط مشكلة اخرى اواجهها وهي الكود كما ترون اعلاه الكلمات العربية عند النسخ تصبح نصوص غريبة ولا اعلم السبب علما اني غيرت الخط في اعدادت محرر الفيجوال بيسك ولكنها ليست بهذا القدر من الازعاج ،، يهمني فقط الكود ان امكن التعديل عليه ليعمل ..

بارك الله فيك دكتورنا الغالي وجزيت عنا خير الجزاء

ارى لديك سجلات موظفين ماترغب تحفظ الصورة لكل موظف على حده؟ باسمه او برقم المعرف ،، او مجلد منفصل لكل موظف

ماشاء الله تبارك الله ،، زادك الله علما ورفعة يادكتورنا .. نعم هو المطلوب بالضبط ولي طمع في كرمك ان سمحت لي بسؤالك عن الأشياء اللي ممكن تتأثر بنقل الفورم والماكرو الى مشروعي ،، هل له علاقة بترتيب الاعمدة في الجدول لإن رقم الجلوس هنا موجود في العمود السابع من اليمين فهل التزم بهذا الترتيب ام يكفي مجرد اسم العمود يكون مطابق ؟ وشكرا لك مقدما على كل ماتبذله وجزيت عنا خير الجزاء

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

اخواني الاعزاء في هذا الصرح الكبير اهنكم بحلول شهر الرحمات وادعو للجميع على كل ماتقدموه من دعم ونشر للعلم جزاكم الله خير الجزاء انا في الحقيقة مبتدئ الى حد ما في قواعد البيانات وعندي تصميم بسيط للمدرسة التي اعمل بها وقرأت واستفدت من عمالقة هذا المنتدى الكثير جدا ،، ولكن تبقى بعض المعلومات التي لاينفع معها البحث ولاينفع معها الا انسان خبير في هذا لمجال ،، عندي حقل يحتوى على ارقام الجلوس للمراحل الدراسية العليا بالمرحلة الابتدائية ، الرابع ، الخامس ، السادس طبعا بداية الحقل يكون ترقيم يدوي مثلا الصف الرابع به سته فصول كل فصل يبدأ بما يناسبه من رقم واخترت الطريقة التالية / مثلا : رابع 1 رقم الجلوس يبدا ب 4101 وينتهي ب 4199 لم احدد النهاية ولكن لن نصل لهذا العدد من الطلاب ،، الصف الرابع 2 يبدا ب 4201 وهكذا بقية الفصول وبقية الصفوف مثلا خامس 1 يكون 5101 بحيث ان الرقم يمثل الصف والفصل ورقم الطالب ، في النموذج المرفق addstud استطعت بفضل الله وبمساعدتكم في المواضيع المنشورة ان اجد امر ترقيم يقوم بحجز اخر رقم للطالب الجديد حسب "صفه " وفصله " + 1 If Me.txcls = "الرابع" Then Me.txset = dmax("[رقم_الجلوس]", "[stud]", "[الصف]='" & Me![txcls] & "' AND [الفصل]=" & _ Me!txrom & "") + 1 بحيث يتم اخذ القيم للصف والفصل من النموذج وبعدها يثم الترقيم حسب الصف والفصل المطلوب ولكن الذي لم اجد له حل انه في حال حذف طالب لن يحل مكانه اي طالب جديد فسوف يحدف الطالب بكامل سجله ويبقى رقمه شاغرا ،، لإن الامر اعلاه يضيف الى اخر قيمة دون البحث في النطاق المراد ترقيمة ولايعمل عملية احلال او ازاحة لا اعلم لها تسمية صراحة فانتم اعلم مني بهذا الشي ارجو مساعدتي علما اني بحثت كثيرا في هذا المنتدى ولم اجد اشياء مشابهة... شكرا للجميع من القلب شكرا مقدما orwahSch.mdb