jjafferr

تفضل :) 1. احذف الكود في الحقل E: 2. استعمل الكود التالي (على حدث تغيير الايام): Private Sub days_AfterUpdate() On Error GoTo err_days_AfterUpdate Dim E_Temp, i As Integer 'Dim rst As DAO.Recordset If Me.Dirty Then Me.Dirty = False E_Temp = 0 Set rst = Me.Reco…

اخي أشرف ، الظاهر ان في عدم فهم في ملاحظاتي ، فاعتذر منك :( الرجاء استخدام الكود التالي: Private Sub Command82_Click() On Error GoTo Err_Command82_Click 'make a Reference to Microsoft DAO x.xx Object Library Me.Command33.Enabled = True DoCmd.GoToRecord , , acN…

اخوي أشرف ، واللي يرحم والديك ، عطنا معلومات كاملة علشان نقدر نساعدك في أسرع وقت ، ﻻحظ كم مشاركة بس نطلب ايضاحات :( الصورة جدا صغيرة وما اقدر اشوف تفاصيلها ، رجاء ارفق صورة كبيرة. شكرا جعفر

الله ان شاء الله يطول في عمرك اخي اشرف ، اي رسالة خطأ ، لوسمحت اكتبها وعلى اي سطر ؟ لانه في الموضوع هذا اكثر من رسالة خطأ :( واترك DMax ، لانه مجرد جزء من الموضوع ، لما الاصل يُحل ، فالجزء الآخر سيُحل ايضاً. جعفر

اخي ابو علاء :) ياريت تعمل صورة للنموذج وتخبرنا عن الحقول اللي لازم نساعدك فيها (الاسماء لا تكفي) ، لاني ما قدرت اميز بين الحقول في النموذج الرئيسي والحقول في النموذج الفرعي :( جعفر

أي مشكلة فيهم اللي ﻻ تزال موجودة ؟

آسف يا أشرف ، كان ﻻزم أحذف ADODB والنقطة اللي وراها :( و جرب الكود اللي قبله كذلك :) جعفر

ويمكنك انك تجرب هذا الكود كذلك: Private Sub Command82_Click() On Error GoTo Err_Command82_Click 'make a Reference to Microsoft DAO x.xx Object Library Me.Command33.Enabled = True DoCmd.GoToRecord , , acNewRec Dim Previous_Date As Integer Dim myDB As adodb.Data…

آسف ما عندي فكرة :( جرب الكود مثل ما هو ، يمكن ما يحتاج تعمل شئ آخر. جعغر

لوسمحت تحذف كود الحدث السابق واستبدله بهذا ، مع مراعاة انك تكتب قيمة myDB اللي هي اسم قاعدة بياناتك اذا كان اسمها غير: Private Sub Command82_Click() On Error GoTo Err_Command82_Click 'make a Reference to Microsoft DAO x.xx Object Library Me.Command33.Enabled =…

اخي اشرف شكرا على المعلومة ، ورجاء كلما اشتغلت على برنامجك هذا وكان عندك سؤال فيه ، فرجاء توضح انك تستخدم SQL Server كجداول للـ Back End ، وذلك لأن هناك بعض اوامر الاكسس اللي ما تشتغل على SQL Server ، منها Dcount , DSum , Dlookup .... سأعمل لك حل آخر إن شاء ال…

أخي أشرف شو BE اللي تستعمله ، Access او SQL Server جعغر

وعليكم السلام :) اعمل شيئين: 1. في الحدث اعلاه ادخل هذا السطر: Dim previous_Date as string 2. VBA 》MENU BAR Tools 》 References ثم اختر Microsoft DAO3.6 Object Reference سواء 3.6 او اقل منه سيؤدي الغرض :) جعفر

:)

حياك الله :)

حياك الله اخي :) اعمل تقرير جديد من الصفر ، ثم ﻻ تجعل فيه أي كود ، وجرب :) تعليقي السابق عن الكود كان لهذا السبب :) جعفر

حيا الله اخي :) انت من الناس اللي تحب تتعلم ، لهذا انا اترك لك كم سطر تلعب فيهم :) -- To Set The Message ------------- DoEvents Call SysCmd(acSysCmdSetStatus, "HI THERE!! my Name is " & me.fName ) DoEvents -- To Clear The Message ----------- Call SysCmd(acSysC…

حياك الله اخي :) الحمدلله ان مواضيعي منها فائدة :) الكود مفروض يصير: Private Sub Command8_Click() On Error GoTo Err_امر9_Click Dim stDocName As String stDocName = "Beda_Oal_Modah_List_Report" DoCmd.OpenReport stDocName, acPreview Reports!Beda_Oal_Modah_List_Re…

تفضل اخي :) تم تغيير الكود السابق الى الكود الحالي: Private Sub Form_Current() If Len(Me.Invoice & "") <> 0 Then Me.Temp_Invoice = Me.Invoice End If End Sub Private Sub text_AfterUpdate() If Len(Me.text & "") <> 0 And Len(Me.Invoice & "") = 0 Then Me.Invoice =…

الفخر لي أخي الفاضل :) فلو ﻻ انكم سمحتوا لي بالمساعدة ، لكان علم غير نافع :( جعفر