أبوبسمله

وعليكم السلام استاذ @ازهر عبد العزيز مجرد فكره ربما تنفعك بالتوفيق qm.accdb

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

جزاك الله خيرا معلمنا العزيز جعفر 😇 راضى معلمى العزيز 😀 بارك الله لنا فيكم اخوانى واساتذتى وجزاكم الله عنا كل خير

وعليكم السلام اخى ابومحمد وفيك بارك الله ورحم الله والديك وجميع اخوانى واساتذتى جزاهم الله عنا كل خير بالنسبه لسؤالك فانت تدخل التاريخ فقط لان علامه اكبر من مكتوبه بالكود فالسطر التالى If rs("DAT") > dDate Then بالتوفيق

واياكم ولا حول ولا قوه الا بالله العلى العظيم اترك الاستعلام اللى مزعلك وقارفك ده على جنب فانما وضعته للتوضيح وكيفيه الاستدعاء كما وضحت تجربه الكود اسفل الموديول كالتالى ?updateData(5,#1/1/2010#) جرب استدعائه بالنموذج او التقرير ووافنا بالنتيجه بارك الله فيك بالتوفيق

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

السلام عليكم اخى @ابو محمد 316 مشاركه مع اخوانى واساتذتى الافاضل @ابا جودى و @ابوخليل جزاهم الله كل خير وتاكيدا على كلامهم فهم السؤال نصف الاجابه وكان يجب عليك التوضيح اكثر من البدايه اتفضل حاجه على قد حالى ربما تكون ما تريد Function updateData(num As Integer, dDate As Date) On Error GoTo HandleError Dim db As DAO.Database Dim rs As DAO.Recordset ' Dim dDate As Date ' Dim num As Integer strSQL = "SELECT Tbl1.N, Tbl1.ID, Tbl1.DAT FROM Tbl1;" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) ' num = 4 ' dDate = #1/1/2010# If DCount("[ID]", "Tbl1") > num Then MsgBox "ÚÏÏ ÇáÓÌáÇÊ ÃßÈÑ ãä " & num Do While Not rs.NoMatch If rs("DAT") > dDate Then rs.Edit rs!id = Replace(rs!id, "111", "3") rs.Update End If rs.MoveNext Loop End If rs.Close Set rs = Nothing HandleExit: Exit Function HandleError: ' MsgBox Err.Description Resume HandleExit End Function بالتوفيق Database66.accdb

اتفضل استاذ @haniameen تم انشاء موديول كالتالى Public Function GetCountKind(strCode As Integer, strMale As Integer) As Integer 'لعدد الذكور والاناث GetCountKind = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_male]=" & strMale) End Function Public Function GetCountReligion(strCode As Integer, strReligion As Integer) As Integer 'لعدد المسلمين والمسيحين GetCountReligion = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_moslem]=" & strReligion) End Function Public Function GetCounTotal(strCode As Integer) As Integer 'للاجمالى GetCounTotal = DCount("*", "sheet", "[dept_code] = " & strCode) End Function وتم استدعائه بالاستعلام شوف الاستعلام qryCount والتقرير rpt_qryCount بالتوفيق sheet_hani_1.mdb

هل قمت بتشغيل الاستعلام وانت مازلت فالجدول وبالتحديد لم تنتقل من هذا السجل الجديد ؟

وعليكم السلام اتفضل ان شاء الله يكون ما تريد بالتوفيق New LastDate.accdb

وعليكم السلام استاذ ازهر اتفضل ان شاء الله يكون ما تريد Private Sub Form_BeforeUpdate(Cancel As Integer) L = Nz(DLast("unit2", "TBaction", "idexperience=" & Me.idexperience & "and [namemetal]='" & Me.namemetal & "'"), 0) If DCount("*", "TBaction", "idexperience=" & Me.idexperience & "and namemetal='" & Me.namemetal & "'") > 0 Then Dim stry As String stry = Me.namemetal Me.Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[namemetal] = '" & stry & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.unit2 = L + 0.6 End If End Sub بالتوفيق M1 (1).accdb

وعليكم السلام مشاركه مع أخي العزيز بيسكرا جرب وضع DoCmd.RunCommand acCmdSaveRecord قبل end sub

وعليكم السلام ومشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير اضع لك رابط للاطلاع بالتوفيق

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

جزاكم الله خيرا معلمينا الأعزاء @jjafferr و @ابوخليل 💐

اتفضل لعلى قد فهمت ما تريد Private Sub txt_AfterUpdate() x = Me.txt.Column(0) 'Me.rmb.SetFocus 'DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt.DefaultValue = x End Sub بالتوفيق t1.accdb

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

وعليكم السلام استاذ ازهر اتفضل ان شاء الله يكون ما تريد Private Sub txt_AfterUpdate() x = Me.txt.Column(0) Me.rmb.SetFocus DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt = x End Sub بالتوفيق t1.accdb

اللهم آمين واياكم اخى خالد وجميع اخوانى واساتذتى

اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق a21.accdb

السلام عليكم اخى اوس الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا والحمدلله انى قدرت اساعدك بشئ بالامس كنت مشغول شويه ولاننى لا علم لى بماذكرته عن Deftype statement فتركت التعليق حتى اقوم بالبحث والفهم فقمت بالبحث ووجدت التالى ع موقع ميكروسوفت الرابط A Deftype statement affects only the module where it is used. For example, a DefInt statement in one module affects only the default data type of variables, arguments passed to procedures, and the return type for Function and Property Get procedures declared in that module; the default data type of variables, arguments, and return types in other modules is unaffected. If not explicitly declared with a Deftype statement, the default data type for all variables, all arguments, all Function procedures, and all Property Get procedures is Variant. اتفضل تعديل فى وجود Deftype statement ولعلك وجدت الحل فى ظل وجوده Option Compare Database DefLng A-Z Private Sub Command25_Click() Dim mydb As Variant, mydac As Variant Dim strSQL As String mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#") strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")") CurrentDb.Execute strSQL, dbFailOnError subfrm.Requery MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه" End Sub بالتوفيق اخى example(1).accdb

بالنسبه لليوزر اسم المستخدم فى اول صفحة فقط تم لااعلم ان كانت هتنفع او لا ان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق 1311_11.DATA12.mdb

وعليكم السلام اخى @abouelhassan اتفضل شوف التقرير هل هذا ما تريد ؟ واعطنى اسم يوزر وباسورد للاطلاع ع ما تريد بالتوفيق 1311.11.DATA12.rar

وعليكم السلام اخى واستاذى @sandanet اتفضل ان شاء الله يكون ما تريد Private Sub Command25_Click() Dim mydb, mydac Dim strSQL As String mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#") strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")") CurrentDb.Execute strSQL, dbFailOnError subfrm.Requery MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه" End Sub بالتوفيق اخى example(1).accdb

السلام عليكم اخوانى محاولتى على قدر معرفتى وان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا قمت بانشاء استعلام ثم قمت بادراج المعادلات التى بحقلى مكعب وجمله بداخل الاستعلام وقمت بتصفيه الاستعلام بناء على رقم الفاتوره ثم قمت باستخدام دوال التجميع dcount للعدد و Dsum للاجمالايات a1.accdb