محمد أبوعبدالله

ضع الكود في حدث قبل التغيير Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("هل تريد حفظ التغيرات الجديدة", vbOKCancel) = vbCancel Then Me.Undo DoCmd.CancelEvent Else End If End Sub 3مثال.rar تحياتي

تم الرد اخي الكريم في المشاركة السابقة تحياتي

تفضل اخي الكريم Me.ItemCode = Me.ItemType.Column(2) & Me.GradName.Column(2) & Me.SerNomber New Microsoft Access Database (3) - Copy.rar تحياتي

السلام عليكم في نموذج مساعد التقرير العام اجعل حقل كود البنك هو المعيار وليس اسم البنك شركة ال حماد اوراق دفع.rar تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =IIf([virusid1]<>"",Nz(DLookup("vxxx", "Qvrm", "virusid1=" & [virusid1] And "[virusid2] ='" & virusid2 & "'"),0),"") تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات.rar مع مراعاة الاسماء المركبة تكون بدون مسافات تحباتب

وعليكم السلام ورجمة الله وبركاته في حقل الفلتر اضف السطر التالي .Filters.Add "Excel Files", "*.*" تحياتي

تفضل اخي الكريم تم اضافة نموذج لاضافة / تعديل المستفيدين وتم اضافة تقرير بالفواتير وتم اضافة تقرير بالسداد الحالي waterbill.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الموضوع سيفيدك ان شاء الله https://www.officena.net/ib/topic/104325-كيفية-ربط-تكست-مع-نموذج-فرعى-للبحث-العام/?do=findComment&comment=627862 تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Database6.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الموضوع سيفيدك باذن الله تخياتي

تفضل اخي الكريم المشكلة كانت في استعلام الالحاق كان يقوم بالحاق البيانات في جدول الغيابات وهذا الجدول غير موجود بهذا الاسم ولكن لديك جدول الغياب البرنامج-.rar تحياتي

البرنامج شكله الحالي يعمل بدون مشاكل لكن هو فعلا يحتاج الى تطوير اكثر كاضافة مشترك - الطباعة ... الخ هو فعلا يحتاج الى تطوير اكثر والبرنامج مفتوح المصدر ويمكنك التعديل عليه بما يناسب احتياجات العمل لديك تحياتي

تم الوضع الكود التالي لحقل ItemType عند حدث عند النقر Me.ItemCode = Me.ItemType.Column(2) تخياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب المرفق التالي New Microsoft Access Database (3) - Copy.rar تحياتي

شرف كبير اخي الحبيب د حسين دمت لاخيك تحياتي

بالتوفيق اخي الكريم تحياتي

بالتوفيق اخي الكريم واعذرني لعدم تفهم الموضوع من البداية تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم التاريخ.rar تحياتي

باذن الله تكون هذه الصيعة النهائية Monthx3: IIf([DATE2]<=#30/08/2016#;0; IIf([DATE1]>=#01/09/2016#;DateDiff("m";[DATE1];[DATE2]);DateDiff("m";#01/09/2016#;[DATE2])) ضريبة.rar تحياتي

محرر الاكواد يفتح بدون مشاكل Private Sub أمر6_Click() On Error GoTo Error_ErrorZ If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then Else DoCmd.SetWarnings False DoCmd.OpenQuery "Query2" DoCmd.SetWarnings True ' MsgBox "Done", vbInformation Forms![عنصر_تحكم_علامة_جدولة0].Form![forma5].Requery Forms![عنصر_تحكم_علامة_جدولة0].Form.Requery DoCmd.RunCommand acCmdRefresh End If Error_ErrorZ: MsgBox "تمت العملية بنجاح", vbInformation End Sub تحياتي

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

في نموذج1 قم بتعديل اسم النموذج الى الاسم الجديد Private Sub عنصر_تحكم_علامة_جدولة0_Click() Me.نموذج2.Requery End Sub تحياتي

استبدل السطر التالي For Each ctl In Me("menu" & i).Controls بهذا For Each ctl In Me("subfrm" & i).Controls مع تغيير اسم النموذج الفرعي subfrm للاسم الذي لديك تحياتي