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

بالتوفيق

هكذا يكون الاستعلام بالكود 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 نعم كلامك صحيح ميه في الميه تسلم بارك الله فيك كانت المشكلة كما قلت الف الف شكر

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

للرفع

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

السلام عليكم اخواني الكرام اليوم اتفاجات بحاجات كثيرة عندما استوردت نماذج من 2003 الى 2010 اولا البحث ما ييشتغل عندي وعملت موضوع بهذا الان اتفاجاء الالحاق ما يشتغل يعطيني خطاء وكمان في بحث تحرير وسرد كنت اكتب اول كلمه ويكمل الباقي والان اتوقف من لديه خبرة لا يبخل علينا هذا كود الالحاق Dim strSQL1 As String strSQL1 = "insert INTO حركات (user,دائن, [تاريخ الحركة], البيان, الاسم,[نوع السند]) VALUES ([Forms].[login]![a],[نص259], snddate ,""دخل""&[supplier], ""الخزينه"",""دخـل"")" DoCmd.RunSQL strSQL1

للرفع

Database17.accdb

اخواني الاعزاء كان لدي نموذج مصمم 2003 اكسس وعند نقله الى 2010 لم يعمل الكود وكان الكود هكذا DoCmd.ApplyFilter "", "left([rakm],10)+Left(Nz([goal],0),10)+Left([name],50) Like '*' & [Forms]![selectCustomer]![which2] & '*'" DoCmd.GoToControl ("SupplierName") If txtCount = 0 Then Dim rs ' As DAO.Recordset Dim Xsearch As String 'الاسم يجب وضعه If IsNull(which2) = True Then Exit Sub 'بحث لسجل قي الجدول Set rs = CurrentDb.OpenRecordset("data1", dbOpenDynaset) 'البحث بالاسم المدخل في مربع النص Xsearch = "[name] = '" & Me![which2] & "'" rs.FindFirst (Xsearch) If rs.NoMatch Then Beep MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا يـو جـد عـمـيـل بـهـذا الإسـم : " & Me.which2, , DLookup(" [الاسم_التجاري] ", "بيانات_الشركه") & Space(5) & " : خـطـاء " cancel = True 'Else ' فتح النموذج اذا وجد الاسم 'DoCmd.OpenForm "data", , , "[name] = '" & Me.which2 & "'" End If Set rs = Nothing End If

راجع هذا لعله كما طلبك https://www.officena.net/ib/topic/85516-مؤشر-تحميل-لاستخدمه-بفتح-التقارير/