ابو ياسين المشولي

اتفضل اخي رمهان AZAZ.accdb بالتوفيق اخي

اتفضل هذا حسب فهمي للسوال Dim d As String If Not IsNull(DLookup("[txtD1]&[txtD2]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ")) Then MsgBox "هذا التاريخ سبق ادخالة في طباعة المسيرات" Me.ID1 = DLookup("[ID1]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ") Me.txtD1 = Null Me.txtD2 = Null Me.txtD1.SetFocus Exit Sub End If AZAZ.rar

من خلال الصورة انه في خطا في الاسم form فهو forms! main ولو ترفق مثال مصغر يكون افضل

للرفع

مثلا لدي في الاستعلام هذا الشرط Like "*" & [ادخل اسم القماش] & "*" كيف اجعل الرساله حق الاستعلام بهذة الداله Trim(InputBox()

بالتوفيق

هكذا يكون الاستعلام بالكود DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate], invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] " & vbCrLf & _ "WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));"

ماهي المشكلة اول الكود استخدم هذا On Error Resume Next

تسلم استاذ صالح قد وجدت الحل كما اشرت اليه في ردي السابق

الحمد لله تم التوصل للحل If GetSetting("talor", "Color", "name") = 1188148 Then

وهذا حسب طلبك حفظ التقرير (1).accdb

افضل طريقه تحفظه بصيغهpdf شوف المرفق حفظ التقرير (1).accdb

ليش ما تعدله في التصميم نفسه هكذا توسيط.accdb

رجاء من لديه ادنى فكرة يقولها لعلي اوصل لحل

للرفع

للرفع

If GetSetting("talor", "Color", "name" = "1188148") Then Forms!Data.Command10.BackColor = Tafseel.BackColor Else Forms!Data.عدد1.BackColor = GetSetting("talor", "Color", "name", Tafseel.BackColor) Forms!Data.عدد3.BackColor = GetSetting("talor", "Color", "name", Tafseel.BackColor) end if وللمعلومه اكثر انا عامل كود بهذا اريد حل للشرط SaveSetting "talor", "Color", "name", Tafseel.BackColor

عملت لها ضغط واصلاح من قاعدة خارجيه

شوف هذا testkera (1).accdb

تسلم اخي Shivan Rekany بارك الله فيك نعم هو هذا السبب شكرا لك الف شكر

مشاركة مع اخي شيفان في حدث بعد التحديث الحالة If Me.الحالة = "تم الدفع" Then Dim SQL As String '==== Insert SQL = "INSERT INTO mad([الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات])" & _ "SELECT [الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات] " & "FROM anas " & _ "WHERE [الرقم] NOT IN (SELECT [الرقم] FROM mad);" DoCmd.SetWarnings False DoCmd.RunSQL SQL DoCmd.SetWarnings True '==== Delete CurrentDb.Execute "DELETE * FROM anas WHERE [الرقم]=" & Me.[الرقم] & "", dbFailOnError '==== Ref Me.Requery '==== InsCmd.Enabled = False End If

تسلم اخي Shivan Rekan نعم كلامك صحيح ميه في الميه تسلم بارك الله فيك كانت المشكلة كما قلت الف الف شكر

تريد استعلام الحاق مع استعلام حذف انا الان انا بالمبايل

للرفع

هذا فيديو للمشكلة وهذا في الاصدار الول مافيه اي مشكلة