أبوبسمله

للاسف استاذى حاولت افهم مايريده لكن وصلت لما فهمته انت ايضا وتوقفت للمتابعه منكم استاذى العزيز وما قمت بعمله هو اضافه عدد سجلات فارغه فقط ولكنه يريد ادخال الاسم والحساب ايضا ضمن هذه السجلات وهنا توقفت لانى لم ارى اى اساس لهذه الادخالات بهذا العدد واذا فرضت انى ساقوم بادخال الحساب وهم عدد 11 سجل بجدول tbl_Pages يتبقى الاسم ولم ارى له اساس فالادخال بارك الله فيك وفى عملك ووقتك وكل ما تحب استاذى العزيز جعفر

ماشاء الله بارك الله فيك معلمنا العزيز جعفر 💐

السلام عليكم مشاركة مع الاستاذ هاوى جزاه الله خيرا حاجه ع قد حالى m1Replace: Replace(Left([m1];Len([m1])-3);".";",") & "." & Right([m1];2) بالتوفيق

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

صحيح ما ذكرت معلمنا العزيز @jjafferr انه ذكر بعد الفرز ولكن النموذج والتقرير تم انشائهما عالجدول مباشرة وهو يريد فتح التقرير بعد التصفيه عالسجلات المصفاه فالامر تصفيه وليس فرز تحياتى معلمنا الغالى 💐

اتفضل تحت زر التقرير Private Sub أمر1_Click() DoCmd.OpenReport "ur", acViewReport, , Forms!form3!form1.Form.Filter End Sub بالتوفيق ur.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير ولا يهمك بالتوفيق

مشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير قمت بادراج استعلام واصبح النموذج والتقرير يتم تصفيتهم بناء عالكمبوبوكس ur(1).accdb

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

السلام عليكم اخى @محمد القدسي اتفضل محاوله اخرى منى لعلها تكون موفقه الى ان يشاركنا اخواننا واساتذتنا بما لديهم ان شاء الله Function strFind() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim strSQL As String Dim strSQL1 As String strSQL = "SELECT tablesnadat.firstnosanad ,tablesnadat.namemandop,tablesnadat.endnosanad " & _ "FROM tablesnadat " Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Set rs1 = db.OpenRecordset("tableestelame") For i = 0 To rs1.RecordCount - 1 rs.MoveLast: rs.MoveFirst For ii = 0 To rs.RecordCount - 1 If rs1.Fields(2) >= rs.Fields(0) And rs1.Fields(2) <= rs.Fields(2) Then rs1.Edit rs1.Fields(3) = rs.Fields(0) rs1.Fields(1) = rs.Fields(1) rs1.Update End If rs.MoveNext Next rs1.MoveNext Next rs.Close Set rs = Nothing Set db = Nothing End Function exambledata-1.accdb

قمت بالتعديل على المثال الذى ارفقه الاخ الفاضل ابوحوده ان شاء الله يكون ما تريد 11(1).accdb

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

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

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

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

السلام عليكم ورحمة الله وبركاته بسم الله والحمدلله والصلاه والسلام على من لا نبى بعده سيدنا وامامنا وقائدنا وشفيعنا محمد صل الله عليه وعلى آله وصحبه وسلم تسليما كثيرا درس اليوم بسيط جدا ومهم وقد اتعبنى هذا الفرق كثيرا الى ان رايت هذا الفيديو واردت مشاركتكم المعلومه للاستفاده والاستذاده من اخوانى واساتذتى جزاهم الله عنا كل خير وانول بهذا دعوه صالحه لى ولجميع اخوانى واساتذتى جزاهم الله خيرا وحتى لا اكون ممن كتم علما هذا الدرس لايضاح الفرق فى استخدام النقطه . و علامة التعجب ! ومرفق مثال للتوضيح اكثر مثلا الكود التالى سوف يعرض رساله وبها اسم النموذج Private Sub btnNFrm_Click() MsgBox Me.name End Sub وهذا الكود سوف يعرض القيمه بالحقل Private Sub btnName_Click() MsgBox Me!name End Sub والفيديو تقبلوا تحياتى new.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا هذا الكود موضوع فى وحده نمطيه وتم استدعائها فى الاستعلام كالتالى Expr2: Horizontal("[اذونات التوريد]";"[اسم الموظف]";"[اكتشاف مخالفات]";[اسم الموظف]) بالتوفيق

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا تم اضافه وحده نمطيه تعلمتها من اسخى @kanory جزاه الله خيرا ان شاء الله يكون ما تريد Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB As dao.Database, rs As dao.Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = rs(Feld2) Else Horizontal = Horizontal & ", " & rs(Feld2) End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function بالتوفيق الدمج عند الاستعلام.accdb

قم بازاله أفضل اجابه طالما تنتظر اجابه أخرى لأن معظم الاخوه والأساتذة لا ينظرون إلى المواضيع المجابه

تبع البريد المصرى ولا شركه خاصه ؟ لا تكون تبعنا بوسطجى زيي ههههههههههه انا من رايى بان يوجد جدول خاص بالمناديب ببياناته وجدول خاص بارقام الدفاتر وممكن تكتفى في جدول الدفاتر ببدايه الرقم وفى النماذج تعمل شروط اذا كان الدفتر 50 ايصال مثلا وهتضيف حقل رقم المندوب فى جدول الدفاتر للربط مع جدول الدفاتر وحقل تاريخ لاثبات تاريخ استلامه للدفتر وان شاء الله يشاركنا اخواننا واساتذتنا بما لديهم

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

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

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

غريبه هذه الرساله اول مره أراها سوف احاول فيها مره اخرى عند عودتي من العمل بإذن الله أو يساعدنا احد اخواننا واساتذتنا ويمكنك ازاله علامه الصح مؤقتا كما أشار عليك الأخ الفاضل

يا استاذ @أكسس وبس بدل ما ترفع صوره ارفع مثالك او ملفك افضل واسرع