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

وعليكم السلام ورحمة الله وبركاته افضل طريقة لربط الافرع عن بعد يكون باستحدام sql وستجد شروحات كثيرة لعمل ذلك منها : تحياتي

وهذا كود يقوم بعمل حذف لحقل ID الذي هو حقل ترقيم تلقائي ثم اعادة انشاءه CurrentDb.Execute "ALTER TABLE [tbl1] DROP COLUMN [ID] ;" CurrentDb.Execute "ALTER TABLE [tbl1] ADD [Id]AUTOINCREMENT;" تحياتي

يكفي فقط ان تقوم بعمل ضغط واصلاح لقاعدة البيانات وسيبدأ الجدول من جديد في الترقيم التلقائي تحياتي

غير الحدث الى IDS_Change Private Sub IDS_Change() Me.TXT1_S = Me.IDS.Column(1) Me.TXTB_1 = Me.IDS.Column(2) DoCmd.GoToRecord , , acNewRec Me.IDS.SetFocus End Sub aziz1.accdb تحياتي

اخي الكريم الموضوع منذ عام 2014 اي من 7 سنوات ان كان لديك استفسار افتح موضوع جديد ليتمكن الاخوة من مساعدتك تحياتي

تفضل اخي الكريم لاحظ انه يقوم بوضع سعر البيع في حقل سعر البيع وبعد الخروج يتم الانتقال الى سجل جديد aziz1.accdb تحياتي

وعليكم السلام ورحمة الله وبركاته وهذا تعديل بسيط لما تفضل به استاذنا الفاضل @د.كاف يار وله الشكر qqq1: IIf(Nz(DLookUp("qty";"Table1";"ID=" & [ID]);0)>Nz(DLookUp("qty";"Table1";"ID=" & [ID]+1);0);"Yes";"NO") Databaseee1.accdb تحياتي

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

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

تحتاج اكثر من endif لانهاء الشروط تفضل الكود يعمل الان ان شاء الله Private Sub أمر33_Click() If IsNull([نوع العمله]) Then MsgBox ("خانة نوع العمله فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([تاريخ التسديد]) Then MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([التسديد]) Then MsgBox ("خانةالتسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار") DoCmd.CancelEvent Else If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي") DoCmd.CancelEvent Else Dim r r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير") If r = vbYes Then DoCmd.Close acForm, "التسديد" DoCmd.Close acForm, "نموذج1" DoCmd.OpenForm "نموذج1" MsgBox ("تم ادخال المبلغ بنجاح") Else If r = vbNo Then MsgBox ("تم التراجع عن ادخال المبلغ") DoCmd.CancelEvent End If End If End If End If End If End If End If alruan_2.rar طريقة اخرى If IsNull([نوع العمله]) Then MsgBox ("خانة نوع العمله فارغة يرجى املائها") DoCmd.CancelEvent ElseIf IsNull([تاريخ التسديد]) Then MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها") DoCmd.CancelEvent ElseIf IsNull([التسديد]) Then MsgBox ("خانةالتسديد فارغة يرجى املائها") DoCmd.CancelEvent ElseIf [التسديد] > [نص28] And [نوع العمله] = "دولار" Then MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار") DoCmd.CancelEvent ElseIf [التسديد] > [نص30] And [نوع العمله] = "دينار" Then MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي") DoCmd.CancelEvent Else Dim r r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير") If r = vbYes Then DoCmd.Close acForm, "التسديد" DoCmd.Close acForm, "نموذج1" DoCmd.OpenForm "نموذج1" MsgBox ("تم ادخال المبلغ بنجاح") ElseIf r = vbNo Then MsgBox ("تم التراجع عن ادخال المبلغ") DoCmd.CancelEvent End If End If تحياتي

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

تفضل هذه طريقة اخرى Private Sub Command105_Click() With Recordset If Recordset.AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acLast Else DoCmd.GoToRecord , , acNext End If End With End Sub Private Sub Command106_Click() With Recordset If .AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acFirst End If End With End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command105_Click() On Error GoTo Err: DoCmd.GoToRecord , , acNext Err: If Err.Number = 2105 Then Exit Sub End If End Sub Private Sub Command106_Click() On Error GoTo Err: DoCmd.GoToRecord , , acPrevious Err: If Err.Number = 2105 Then Exit Sub End If End Sub thaaer.rar تحياتي

جزاكم الله خيرا وبالتوفيق يا رب تخياتي

وتفضل هذا التفقيط بالدولار والدينار alruan.rar تحياتي

تفضل اخي الكريم في زر الحذف ضع الكود التالي If IsNull(Me.a) Then Exit Sub End If If Me.نص34 <> 0 Or Me.نص35 <> 0 Then MsgBox "لا يمكن حذف الزبون لان عليه ديون" Else If MsgBox("هل تريد بالتأكيد حذف الزبون المحدد", vbYesNo, "تأكيد الحذف") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If End If الديون.rar تحياتي

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

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

تفضل اخي الكريم If Nz(DCount("[invoice]", "[Table1]", "[invoice] =" & Me.qty), 0) > 0 Then MsgBox "رقم الفاتورة مكرر" End If تحياتي

هذا ما قصدته عفواً لم انتبه لعدم كتابة <>0 تحياتي

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

وعليكم السلام ورحمة الله وللاكاته افضل اخي الكريم If DCount("[invoice]", "[Table1]", "[invoice] =" & Me.qty) > 0 Then MsgBox "رقم الفاتورة مكرر" End If تحياتي

وعليكم السلام ورحمة الله وبركاته لمعرفة امتداد الملف استخدم الكود التالي Dim File_Type As String Dim DB_Full_Name As String DB_Full_Name = CurrentProject.Path & "\" & CurrentProject.Name File_Type = Mid(DB_Full_Name, InStrRev(DB_Full_Name, ".") + 1) Debug.Print File_Type ولمعرفة مسار الملف استخدم الكود التالي Debug.Print CurrentProject.Path ولمعرفة اسم قاعدة البيانات CurrentProject.Name ولمعرفة اسم قاعدة البيانات مع المسار كاملا استخدم الكود التالي Debug.Print CurrentProject.Path & "\" & CurrentProject.Name تحياتي

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

تفضل اخي الكرم هذا مثال لـ OpenForm مع تحديد خصائص وشروط DoCmd.OpenForm _ FormName:="Form1", _ WhereCondition:="[ID] = " & Me.ID, _ DataMode:=acFormEdit, _ WindowMode:=acDialog ' FormName اسم النموذج ' FormName:="Form1", _ ' WhereCondition الفلتر او الشروط ' WhereCondition:="[ID] = " & Me.ID, _ ' DataMode وضع التحرير ' DataMode:=acFormEdit, _ ' WindowMode وضع النافذة ' WindowMode:=acDialog تحياتي