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

تفضل هذه طريقة اخرى اعتقد انها اوضح من السابقة UP_Database1.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر0_Click() DoCmd.OpenForm "Z1", , , X1 = 0 Forms!Z1!X1 = 0 End Sub Private Sub أمر1_Click() DoCmd.OpenForm "Z1", , , X1 = 1 Forms!Z1!X1 = 1 End Sub Database1.accdb تحياتي

الحل لهذه المشكلة الا يكون الحقل غير منضم والاعتماد في هذه الحالة عل حقل " تاريخه = odb_Date " فقط وبهذا بمكن التعامل معه مباشرة بدون الحقل الغير منضم واجعله غير قابل للتعديل حتى لا يمكن التعديل على السجلات سواء السابقة او الحالية والاكتفاء بوضع قيمة افتراضية له تاريخ اليوم = date وليس مصدر السجلات تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى اخونا @الحلبي وله الشكر استخدم الكود التالي If Me.NewRecord Then Me.odb_Date = Date End If بدلاً من Me.odb_Date = Date If Me.odb_Date <> Date Then MsgBox "غير مقبول" End If odbBalanceAmir.rar تحياتي

تفضل اخر الكريم التقارير والبيانات.rar تحياتي

بارك الله فيك استاذنا الفاضل البرنامج يعمل جيدا في حالة الحاق البيانات في نفس الجدول لكن لو كان الالحاق بجدول ثاني تظهر اخطاء مثال : هذه جملة Sql منقولة من استعلام الحاق موجود بالفعل INSERT INTO tblOperations ( IdAgents, XDate, X13 ) SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment FROM tblAgents WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=1)); وهذه النتيجة من البرنامج Public Sub Insert_tblOperations ( IdAgents, XDate, X13 ) SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment FROM tblAgents WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType (IdAgents, XDate, X13 ) Dim mySQL As String mySQL = "INSERT INTO tblOperations ( IdAgents, XDate, X13 ) SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment FROM tblAgents WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType " mySQL = mySQL & "(IdAgents, XDate, X13)" mySQL = mySQL & " VALUES " mySQL = mySQL & "('" & IdAgents & "','" & XDate & "','" & X13 & "')" CurrentDb.Execute mySQL End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم التقارير والبيانات.rar ملاحظة : قم بعمل التنسيقات اللازمة لك تحياتي

هل جربت الكود الذي ارفقته لك اعتقدت ان الموضوع متعلق بصلاحيات ويندوز ولكني جربت الكود الآن فلم تظهر مشكلة والحمد لله وتم عمل نسخة احتياطية بنجاح تحياتي

عوداً حميداً استاذنا الفاضل @jjafferr وجزاكم الله خيراً على كل ما تقدمه لإخوانك تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر اولاً لديك مشكلة انك تستخدم حقل باسم date وهذا الاسم محجوز لتاريخ اليوم الا اذا كنت تسخدمه لعرض اليوم الحالي ثانياً جرب الكود التالي dusm("عمود";"جدول";"Format([date1];"yyyy/mm/dd")<=date and date<Format([date2];"yyyy/mm/dd")") تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Combo23_Click() If DLookup("[Id]", "[price]", "[Id] ='" & Me.Combo23.Column(0) & "'") > 0 Then MsgBox "العنصر مضاف من قبل" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT price.*FROM price;") Rs.AddNew Rs("Id") = Me.Combo23.Column(0) Rs("xname") = Me.Combo23.Column(1) Rs.Update Rs.Close Me.pricesub.Requery End If End Sub مكرر.rar تحياتي

متأكد ؟

تفضل اخي الكريم Private Sub Form_Current() On Error GoTo Err: If IsNull(Me.Text79) Then DoCmd.CancelEvent Else X1 = NoSpace(Me.Text79) ' Debug.Print X1 Me.[1].Value = Mid(X1, 1, 1) Me.[2].Value = Mid(X1, 2, 1) Me.[3].Value = Mid(X1, 3, 1) Me.[4].Value = Mid(X1, 4, 1) Me.[5].Value = Mid(X1, 5, 1) Me.[6].Value = Mid(X1, 6, 1) Me.[7].Value = Mid(X1, 7, 1) Me.[8].Value = Mid(X1, 8, 1) Me.[9].Value = Mid(X1, 9, 1) Me.[10].Value = Mid(X1, 10, 1) Me.[11].Value = Mid(X1, 11, 1) Me.[12].Value = Mid(X1, 12, 1) Me.[13].Value = Mid(X1, 13, 1) Me.[14].Value = Mid(X1, 14, 1) Me.[15].Value = Mid(X1, 15, 1) Me.[16].Value = Mid(X1, 16, 1) Me.[17].Value = Mid(X1, 17, 1) Me.[18].Value = Mid(X1, 18, 1) Me.[19].Value = Mid(X1, 19, 1) Me.[20].Value = Mid(X1, 20, 1) Me.[21].Value = Mid(X1, 21, 1) Me.[22].Value = Mid(X1, 22, 1) Me.[23].Value = Mid(X1, 23, 1) Me.[24].Value = Mid(X1, 24, 1) Me.[25].Value = Mid(X1, 25, 1) Me.[26].Value = Mid(X1, 26, 1) Me.[27].Value = Mid(X1, 27, 1) Me.[28].Value = Mid(X1, 28, 1) Me.[29].Value = Mid(X1, 29, 1) Me.[30].Value = Mid(X1, 30, 1) End If Err: End Sub Private Sub Text79_Exit(Cancel As Integer) Call Form_Current End Sub حروف.rar تحياتي وهذه اضافة على ملف استاذنا @kanory kan_001238.rar تحياتي

السلام عليكم تفضل اخي الكريم او استخدم القائمة المختصرة كالتالي تحياتي

وعليكم السلام ورحمة الله وبركاته بما ان هذه الحقول غير موجودة في الجدول الاساسي اذن جرب هذا التعديل _الأقساط __1.mdb تحياتي

وعليكم السلام ورحمة الله وبركاته البرنامج بامتداد accde بمعنى انه لا يمكن الدخول على وضع التصميم للوحدات النمطية والنماذج والتقرير كما البرنامج مصمم على اوفيس 64 بت لذلك لن يعمل على اوفيس 32 بت تحياتي

لماذا المفروض ؟ يمكن ان يكون مصدر التقرير جدول ويتم وضع المعايير المناسبة في كود وهذا مثال اخر لوضع كود لعمل فلتر للتقرير stLinkCriteria = "(" stLinkCriteria = stLinkCriteria & "[txtMovementDateStart] between #" & Format$(Form_frmVehicleDetailes.txtFrom, "yyyy/mm/dd") & "# And # " & Format$(Form_frmVehicleDetailes.txtTo, "yyyy/mm/dd") & "#" stLinkCriteria = stLinkCriteria & " AND " stLinkCriteria = stLinkCriteria & "[Id]=" & [Id] stLinkCriteria = stLinkCriteria & ")" 'Debug.Print stLinkCriteria DoCmd.OpenReport "repVehicleMovement", acViewPreview, , stLinkCriteria تحياتي

المهم انك تستطيع المشاركة وبعدين انت تنور الدنيا كلها يا دكتور تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي DoCmd.OpenReport "repVehicleMovement", acViewNormal, , "[Id]=" & [Id] & " And [txtMovementDateStart] between #" & Format$(Form_frmVehicleDetailes.txtFrom, "yyyy/mm/dd") & "# And # " & Format$(Form_frmVehicleDetailes.txtTo, "yyyy/mm/dd") & "#" تحياتي

تفضل اخي الكريم If [aintiha alsijil] < [nihayat altarkhis] Then ' DoCmd.CancelEvent Me.nihayat_altarkhis = Null MsgBox "عذرا تاريخ نهاية السجل التجاري قبل نهايةالترخيص" ElseIf [nihayat aldaman albankii] < [nihayat altarkhis] Then ' DoCmd.CancelEvent Me.nihayat_altarkhis = Null MsgBox "عذرا تاريخ نهاية الضمان البنكي قبل نهاية الترخيص" End If Database72.accdb تحباتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub nihayat_altarkhis_Exit(Cancel As Integer) If [aintiha alsijil] > [nihayat altarkhis] Then DoCmd.CancelEvent MsgBox "التاريخ اكبر من التاريخ المطلوب" ElseIf [nihayat aldaman albankii] > [nihayat altarkhis] Then DoCmd.CancelEvent MsgBox "التاريخ اكبر من التاريخ المطلوب" End If End Sub Database72.rar تحياتي

السلام عليكم افتح موديول جديد وضع به الكود التالي ووظيفته حذف جميع المسافات بالنص Function NoSpace(X3 As String) As String Dim X5 As String X5 = RTrim(X3) Do While InStr(X5, " ") > 0 X5 = Left(X5, InStr(X5, " ") - 1) & Mid(X5, InStr(X5, " ") + 1) Loop NoSpace = Trim(X5) End Function وفي النموذج اضف مربع نص جديد لكتابة النص به وضع به الكود التالي في حدث عند الخروج On Error GoTo Err: If IsNull(Me.Text79) Then DoCmd.CancelEvent Else X1 = NoSpace(Me.Text79) ' Debug.Print X1 Me.[1].Value = Mid(X1, 1, 1) Me.[2].Value = Mid(X1, 2, 1) Me.[3].Value = Mid(X1, 3, 1) Me.[4].Value = Mid(X1, 4, 1) Me.[5].Value = Mid(X1, 5, 1) Me.[6].Value = Mid(X1, 6, 1) Me.[7].Value = Mid(X1, 7, 1) Me.[8].Value = Mid(X1, 8, 1) Me.[9].Value = Mid(X1, 9, 1) Me.[10].Value = Mid(X1, 10, 1) Me.[11].Value = Mid(X1, 11, 1) Me.[12].Value = Mid(X1, 12, 1) Me.[13].Value = Mid(X1, 13, 1) Me.[14].Value = Mid(X1, 14, 1) Me.[15].Value = Mid(X1, 15, 1) Me.[16].Value = Mid(X1, 16, 1) Me.[17].Value = Mid(X1, 17, 1) Me.[18].Value = Mid(X1, 18, 1) Me.[19].Value = Mid(X1, 19, 1) Me.[20].Value = Mid(X1, 20, 1) Me.[21].Value = Mid(X1, 21, 1) Me.[22].Value = Mid(X1, 22, 1) Me.[23].Value = Mid(X1, 23, 1) Me.[24].Value = Mid(X1, 24, 1) Me.[25].Value = Mid(X1, 25, 1) Me.[26].Value = Mid(X1, 26, 1) Me.[27].Value = Mid(X1, 27, 1) Me.[28].Value = Mid(X1, 28, 1) Me.[29].Value = Mid(X1, 29, 1) Me.[30].Value = Mid(X1, 30, 1) End If Err: حروف.rar تحياتي

الحروف الستة هي امتداد الملف .accdb وليست لها علاقة باسم الملف نفسه لكنك تستخدم امتداد قاعدة البيانات .DB OldFile = CurrentProject.Path & "\DataBe\Data.DB" لذلك تحدث المشكلة على كل حال ان كنت تسخدم قاعة بيانات بامتداد .accdb يكون عدد الحروف 6 واذا كانت .mdb يكون عدد الحروف 4 واذا كانت .DB يكون عدد الحروف 3 تحياتي

السلام عليكم عند الاستيراد اضفط زر استعراض اولاً ثم خدد الملف واضغط زر استيراد وعند التصدير استخدم الكود التالي On Error GoTo err: DoCmd.OutputTo acOutputTable, "tbl_Items", acFormatXLSX, , False MsgBox "أكسس صدر البيانات المطلوبة إلى ملف إكسل بنجاح" err: MsgBox "مشكلة بتصدير الملف" DATA10041.mdb تحياتي

باعتبار انك ستفتح التقرير من النموذج ضع معيار في التقرير في حقل name forms!Form1!Text0 qqwww.accdb تحياتي