abouelhassan قام بنشر فبراير 7, 2021 الكاتب مشاركة قام بنشر فبراير 7, 2021 الله ينور استاذى حبيبى استاذ جعفر بس عا يز كمان التاريخ والمخزن والرقم يتم مسحهم بارك الله فيك اخى الحبيب رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر فبراير 7, 2021 أفضل إجابة مشاركة قام بنشر فبراير 7, 2021 تفضل ، ووضعت كود (في الواقع هو لأخي احمد 🙂 ) يوقف تجديد/تحديث الشاشة ، ويقوم بتصفية النموذج والحقول ، ثم يُفعل تجديد/تحديث الشاشة ، فلا ترى ما يحدث 🙂 Me.Painting = False Me.DataEntry = False Me.DataEntry = True Me.Main_iDate = Null Me.Main_iBill_Number = Null Me.Main_iStore_Number = Null Me.Painting = True جعفر 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 7, 2021 الكاتب مشاركة قام بنشر فبراير 7, 2021 سلمت وسلمت يمينك استاذى حبيبى جعفرالكود يعمل ممتاز جداااااااااا حضرتك ربنا ما يحرمنى منك اغرقتنى والاستاذ ابو خليل بالجمايل وساعدتنى وصممت لى البرنامج وربنا ما يحرمنى منك ابدااااااااااااااا ربنا يحفظكم ويخليكم يارب ويديم الصحة والعافية عليكم يارب رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 7, 2021 مشاركة قام بنشر فبراير 7, 2021 🙂 حياك الله 🙂 1 رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 7, 2021 مشاركة قام بنشر فبراير 7, 2021 جزاك الله خيرا معلمنا العزيز @jjafferr وبارك الله لنا فيك 💐 1 رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 7, 2021 مشاركة قام بنشر فبراير 7, 2021 مرفق الملف بعد التعديل لمعلمى العزيز جعفر جزاه الله كل خير واول مره ارى هذا الكود Me.Painting = False فجزاه الله عنى كل خير وتعديل بسيط فكود التكرار Private Sub btnInsert_Click() Dim intNum As Integer Dim i As Integer intNum = txtNum For i = 0 To intNum - 1 DoCmd.SetWarnings False DoCmd.OpenQuery "qry_InsertIpage" DoCmd.SetWarnings True Next DoCmd.RunCommand acCmdSaveRecord Me.Requery Me.Filter = "iBill_Number ='" & Main_iBill_Number & "'" Me.FilterOn = True End Sub DATA11(1).mdb 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 8, 2021 مشاركة قام بنشر فبراير 8, 2021 7 ساعات مضت, احمد الفلاحجي said: واول مره ارى هذا الكود Me.Painting = False ليه انت ما سمعتش عن الموضوع ده : جعفر 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان