jjafferr

وعليكم السلام 🙂 لقد قام اخي اباجودي مشكورا بهذا العمل (شكرا يا ابو احمد 🙂 ) ، في هذه المشاركة: جعفر

ايه يا باشا ، انتو سنتكم غير عننا وإلا ايه جعفر

آه نسيت !! الفاصلة المنقوطة بدل الفاصلة 🙂 شكرا يا شباب ، استاذ محمد واستاذ خالد 🙂 جعفر

السلام عليكم 🙂 الاستاذ خالد اعطاك الجواب 🙂 وانا استغل الفرصة ، واستعمل جوابه ، ولكن احذف المسافة الفارغة الموجودة في الحقول ، بإستخدام الامر Trim : للمادة M2: Trim(Left([subname],Len([subname])-9)) والشعبة S2: Trim(Right([subname],9)) جعفر

وعليكم السلام 🙂 من مكتبتي ، رسائل التنبيه ، تم مناقشتها هنا 🙂 . . . . . جعفر

وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !! فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂 اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂 جعفر

تفضل 🙂 Private Sub K_id_BeforeUpdate(Cancel As Integer) If Left(Me.K_id, 1) <> 2 Then Cancel = True MsgBox "يجب ان يبدأ هذا الحقل بالرقم 2" Exit Sub End If End Sub جعفر

السلام عليكم 🙂 هذا المنتدى ولله الحمد ، به الخير الكثير ، والخبراء يسطعون بعطائهم مميزين بعطائهم 🙂 اخي الكريم @ابوآمنة ومحمد البرناوي @Barna ، لنا الشرف انظمامكم لفريق الخبراء 🙂 ولازلنا نبحث بين الاجابات على المتميزين 🙂 جعفر

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

عذرا ، لم الحظ هذا الكود !! اعمل بحث واستبدال بدل Me.Text40 استعمل Me.iDate جعفر

السلام عليكم اخوي ابوعلي 🙂 سؤالك يحتاج ان نرى برنامجك ، رجاء ارفق هذه الجزئية ، ورجاء ، المرفق يجب ان يكون فيه بيانات حتى نستطيع ان نجربه. ورجاء ان تخبرنا من المرفق ، اسم التقرير ، واسماء الحقول اللي فيها المشكلة 🙂 جعفر

وعليكم السلام 🙂 قمت بتغيير اسم حقل التاريخ الى iDate ، و زر الاضافه ، اصبح كوده (يتأكد من ادخال بيانات اليوم والحصة والتاريخ ، واذا ما اردت اي منهم ، يمكنك الغاءه/حذفه من الكود) : Private Sub Command42_Click() 'التأكد من ان الحقول مملوءه قبل السماح بإضافة سجل If Len(Me.iDay & "") = 0 Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.iDay.SetFocus Exit Sub ElseIf Len(Me.iA1 & "") = 0 Then 'الحصة MsgBox "فضلا أدخل الحصة" Me.iA1.SetFocus Exit Sub ElseIf Len(Me.iDate & "") = 0 Then 'التاريخ MsgBox "فضلا أدخل تاريخ اليوم" Me.iDate.SetFocus Exit Sub End If If DCount("[MainId]", "qryCheckRepeat") = 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into subst(mainid,type,TDate,Day,A1)values (' " & Me.StId & " ',' " & Me.Combo36 & " ',' " & Me.Text40 & " ',' " & Me.iDay & " ','" & Me.iA1 & "')" DoCmd.SetWarnings True Me.iStName.Requery Me.SubSt.Requery Else MsgBox "لقد تم تحضير الطالب من قبل" Exit Sub End If End Sub جعفر 1126.(02) متابعة غياب طلاب الفراغات.mdb.zip

السلام عليكم 🙂 اخي @Gamor شو المشكلة؟ في تاريخ 28 / 10 اخونا محمد عبد الله اعطاك طريقتين للحل ، في الاستعلام وفي النموذج: فكل اللي عليك فعله ، هو نسخ الكود اعلاه ، الى برنامجك ، سواء في الاستعلام او في النموذج ، مع تغيير اسماء الحقول. جعفر

السلام عليكم 🙂 اخي عبد الله ، موضوع مميز كصاحبه ، دائما 🙂 هذا صحيح ، وبسبب ان بعض الاعضاء الجدد يفضلون اللجوء الى الخاص ، بينما وُجد المنتدى حتى يستفيد الجميع ، فلما تصل مشاركات الجديد الى 100 مشاركة ، فتلقائيا يستطيع استعمال الرسائل الخاصة 🙂 تفضل ، هذا الموضوع فيه طلبك 🙂 جعفر

تفضل 🙂 تصحيح فني ، ولا علاقة له بالموضوع: هذه الطريقة خطأ Option Compare Database Dim UserRS As Recordset Option Explicit Public UsN Public UsM والطريقة الصحيحة Option Compare Database Option Explicit Dim UserRS As Recordset Public UsN Public UsM . والخطأ كان في هذا السطر: Set UserRS = DB.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ولكنك لم تخبر البرنامج ما هو المتغير DB ، لهذا السبب يمكننا تغيير الكود الى التالي: Set UserRS = CurrentDb.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ويمكن اختصاره الى Set UserRS = CurrentDb.OpenRecordset(" SELECT * FROM tbl_User WHERE user_name ='" & UsN & "' AND City='" & UsM & "';", dbOpenDynaset) . جعفر

تفضل 🙂 Private Sub TabCtl0_Change() 'page name Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).Name 'OR 'page caption Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).caption End Sub جعفر

الحمدلله على السلامة اخوي ابو خليل 🙂 ويا محلى هذه الاطلالة في هذا الموضوع المميز 🙂 اعذرني اخي الفاضل السيد جمال واخي حسنين ، فقد قمت بعملية تصفية ، وإبقاء الصافي 🙂 جعفر

السلام عليكم 🙂 تفضل 🙂 'FileCopy varFile, destpath Name varFile As destpath جعفر

السلام عليكم 🙂 اخي إمام ، قوانين المنتدى تقول ، سؤال واحد لكل موضوع ، وقد تمت الاجابة على سؤالك ، فرجاء عمل موضوع جديد لسؤالك الاخير 🙂 يُغلق. جعفر

وعليكم السلام 🙂 اخي بلال ، رجاء تخبرنا بالتفصيل ، عن الخطأ والمشكلة ، وفي اي مكان في برنامجك!! جعفر

السلام عليكم 🙂 اخي إمام ، قوانين المنتدى تقول ، سؤال واحد لكل موضوع ، وقد تمت الاجابة على سؤالك ، فرجاء عمل موضوع جديد لسؤالك الاخير 🙂 يُغلق. جعفر

وعليكم السلام 🙂 بالبيانات الموجودة في المرفق ، لم استطع معرفة المطلوب !! ياريت تدخل بيانات اكثر وترفق البرنامج من جديد ، ومن واقع بياناتك تخبرنا خطوة بخطوة الذي تريده 🙂 جعفر

وعليكم السلام 🙂 ضع هذا الكود في وحدة نمطية ، بغض النظر عن الطرق اعلاه ، ثم اعمل ماكرو ينادي هذه الوحدة النمطية. جعفر

وعليكم السلام 🙂 يمكنك فتح نموذج في برنامج آخر ، هكذا : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "sfrm_Family" appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ويمكن ان نفتح النموذج اعلاه للقراءة فقط: Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "sfrm_Family", , , , acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . كما يمكن ان نفتح النموذج اعلاه للقراءة فقط ، مع تصفية : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) myWhere = "[Full_Name]='" & Me.frm_1_All!Full_Name & "'" myWhere = myWhere & " And [Relation]<>'زوجة'" myWhere = myWhere & " And [Relation]<>'زوج'" appAccess.DoCmd.OpenForm "sfrm_Family", , , myWhere, acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

اخي امام 🙂 رجاء ، لازم تعطي توضيح اكثر. فإرفاق قاعدة بيانات ، واحنا اللي لازم نفكر ، وين ، ومتى ، وكيف !! ما يصير. جعفر