أبوبسمله

وعليكم السلام ورحمه الله وبركاته اتفضل على قدر فهمى للسؤال اخى @AboBahaa ان شاء الله يكون ما تريد Private Sub cmdPrint_Click() If Len(Me.f_Print & "") = 0 Then DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" Else DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val([number of print])+1 " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" End If End Sub Database (naser)_1.accdb

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

الف مبروك اخى @Moosak تستاهل كل خير وربنا يعينك ع خدمه اخوانك والعطاء المستمر

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

احسنت اخى ومعلمعى العزيز خالد وجزاك الله عنا كل خير تحياتى لكم اخوانى ومعلمينى الافاضل واسال الله لكم العفو والعافيه فى الدنيا والاخره

عقدنى انا كمان ونسانى وضع المرفق 😀

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

الف سلامه عليك اخى ومعلمى العزيز جعفر شفاك الله وعافاك ربنا ينعم عليك بالصحه والعافيه 💐 كان لديك خطا فى اسم الاستعلام لجرجس الصحيح G_RASED بدل من GRASED وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه If Forms!password!un = "مريم" Then Me.Code_snf.RowSource = "RASED" Else 'If Forms!password!un = "" Then Me.Code_snf.RowSource = "G_RASED" End If بالتوفيق

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

الف مبروك اخى @Ahmed_J واعانك الله ع طلبات اخوانك

لا يوجد اسف بين الاخوان اخى ابوالبشر وانت اخ عزيز علينا وفيك بارك الله اخى هل شاهدت الفيديو ؟ واياكم اخى وشغال معايا تمام معلمنا العزيز جعفر وجزاك الله عنا كل خير اخى ومعلمى 💐 ولكن اصل السؤال لاخى ابوالبشر 👇 فهل قام احد الاخوه بتجربه المثال لان المثال لم يعمل مع اخى ابو البشر ولا اعلم اين المشكله

وعلام الاسف اخى ابو البشر ليس هناك ما يستدعى الاسف بارك الله فيك اطلع ع الفيديو لان لا يوجد عندى برامج للصور المتحركه الان بالتوفيق اخى Video_2023-01-28_2.rar

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

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

انضم لاخى ابو البشر بالنسبه لى قمت بالتجربه ويندوز 7 اوفيس 2019 الجميع 32 بت فظهر لى الخطأ رقم 3270 وبحثت بعدها فوجدت بانه لايجد الخاصيه لاضافتها فقمت باضافه الخواص Private Sub أمر0_Click() On Error GoTo Error_Handler Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = CurrentProject.Path & "\a.accdb" Set acc = New Access.Application Set db = acc.DBEngine.OpenDatabase(strDbName, False, False) acc.OpenCurrentDatabase strDbName Set Property = acc.CurrentDb.CreateProperty("StartUpForm", 10, "frm_2", True) Call acc.CurrentDb.Properties.Append(Property) ' acc.DoCmd.OpenForm "frm_2" Error_Handler_Exit: Exit Sub Error_Handler: If Err.Number = 3367 Then Resume Error_Handler_Exit End If db.Close Set db = Nothing End Sub New folder.rar

هذا من فضل الله علينا بان انعم علينا ان نتعلم على ايدى اخوان لم يبخلوا علينا بما فضلهم الله علينا فجزاهم الله عنا كل خير والاحلى هو مشاركتكم معنا شيخنا الجليل ابوخليل 💐

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى واساتذتى افتح النموذج frmleave واطلع على مصدر السسجلات بعدالتعديل zofdate: werEjaza(Nz([strdate];#01/01/1900#);Nz([enddate];#01/01/1900#)) بالتوفيق fmmm2.accdb

ما عرفت مين ؟ دايما كلامك غريب ومو مفهوم معرفش ليه ع كل بالتوفيق

هههههههههه من روك جان ل عزرائيل مره واحده ياللهول اهلا بك مجددا يا عزريل واعتقد نطقها كده مظبوط مو عزرائيل 😀

يعمل بكفائه جزاك الله خيرا معلمنا وشيخنا الجليل ابوخليل

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

اللهم آمين واياكم معلمنا العزيز وشيخنا الجليل بارك الله لنا فيكم وبارك الله لكم فى اهليكم وبارك لك فى اهلك ومالك وولدك وكل من تحب

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير وواحده واحده هتتعلم من اخواننا واساتذتنا جزاهم الله عنا كل خير اما منى فانا مثلك طالب علم يحبو عالطريق لاتعلم معكم اللهم آمين واياكم اتفضل التعديل ده اختصارا للتعديلات السابقه التى تمت Private Sub productname_DblClick(Cancel As Integer) Dim stLinkCriteria As String stLinkCriteria = Me![idproduct] DoCmd.OpenForm "fautt" Forms!fautt!autot!idproduct = stLinkCriteria Call Form_autot.idproduct_AfterUpdate End Sub تقبل تحياتى وبالتوفيق اخى معدل _6.rar

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @مالك الحرايزة ان كان هذا ما تريد شرحت لك التعديلات التى تمت وان لم يكن فوضح لنا بارك الله فيك ما تريد بشئ من التفصيل بالتوفيق معدل _5.rar