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

برغم الاخ القاضي لم يرد الى الان هذا اخر تعديل واظنه هو الافضل ولن اجد غير هذا تحياتي InvoiceSale_83.accdb

العفو وبالتوفيق

بعد تفكير واخذ وعطاء عرفت المشكله انه لايمكن ان يعمل 2 اكواد بنفس الوقت وهو كود الحذف والتحديث والسبب هو كود تجاوز الاخطاء وهو On Error Resume Next وهذا خطاء من اخونا القاضي ونحن لم نتبه له ''On Error Resume Next On Error GoTo Err_Delete_Click If IsNull([ItemID]) Then MsgBox "لا يـوجـد صـنـف لـحـذفـة", vbInformation, "تنبيـــــة تحقق " ElseIf IsNull([QuantityS]) Or [QuantityS] = Null Or [QuantityS] = "" Or [QuantityS] = 0 Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Else If Not IsNull([ItemID]) Then If MsgBox(" هـــل تـــريـــد حـذف الصـنـف ( " & ([ItemName]) & " ) ؟ " & vbCrLf & " " & vbCrLf & " انت على وشك الحذف " & vbCrLf & " لا يمكنك التراجع اذا ضغطت نعم ", vbYesNo, "تأكــــــــــــيـد الحذف") = vbYes Then Me.balance2 = Nz(Me.QuantityA) + Nz(Me.QuantityS) Me.qd = Nz(Me.ItemID) DoCmd.SetWarnings False DoCmd.OpenQuery "BackItemsSale_Q" Dim objAcc As Access.Application Set objAcc = GetObject(CurrentDb().Name) objAcc.DoCmd.OpenTable "InvoiceTT", acViewNormal objAcc.DoCmd.GoToRecord acDataTable, "InvoiceTT", acGoTo, 1 objAcc.DoCmd.RunCommand acCmdSelectRecord objAcc.DoCmd.RunCommand acCmdDeleteRecord ' هنا المشكلة الكود لا يقوم بحذف السجل DoCmd.Close acTable, "InvoiceTT", acSaveYes Set objAcc = Nothing DoCmd.Requery Exit_Delete_Click: Exit Sub Err_Delete_Click: MsgBox Err.Description Resume Exit_Delete_Click DoCmd.SetWarnings True End If End If End If Me.Refresh SysCmd acSysCmdClearStatus InvoiceSale_82.accdb

العفو نحن في الخدمه

هذا للكل test2 (1) (1).accdb

اتفضل test2 (1).accdb

وهذه طريقه اخرى اي تضيف بجدول الاصناف حقل للمصرف وحقل تحمله محسوب الوارد - المنصرف شوف المرفق InvoiceSale_88.accdb

MP3_WAV_Player_SEMO_Pa3x(3).accdb

اخي kaser906 اظن والله اعلم اني بعرف ماهو قصد الاخ qathi هو اصلا عامل استعلام التحديث واما بالنسبه بالكود فهو لازم يكون الحذف قبل التحديث اظن مايرده هو اذا حذف يرجع الرصيد الى ما قبل اي البيع اللي يحذفه يضاف للفاتورة وهذا خطا منه في الاستعلام لاحظ الصور المفروض يعمل + لكنه لم ينتبه لها InvoiceSale_9.accdb

من خصائص تفصيل في التقرير خلي لون اسود بديل اختار بلا لون اخي وصديقي kanory سبقتني جزاك الله خير

كما قال لك اخي حلبي اتفضل هذا بدون ضغط فقط اضف مجلد بجوار الملف واجعل اسمه StPic Database3 (1).accdb

اتفضل Desktop.rar

هذا الاخير اظنه قريب لطلبك MP3_WAV_Player_SEMO_Pa3x(3).accdb

جرب هذا هذا ماتوصل اليه بعد كل المحاولات MP3_WAV_Player_SEMO_Pa3x (2).accdb

بالفعل اخي kaser906 يوجد 3 جداول مرتبطه وهذا هو اكبر مشكلة

DoCmd.RunSQL "DELETE data.*, InvoiceTT.InvoiceNum, InvoiceTT.ItemId, InvoiceTT.Movement " & vbCrLf & _ "FROM InvoiceTT " & vbCrLf & _ "WHERE (((InvoiceTT.InvoiceNum)=[forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![InvoiceNum]) AND ((InvoiceTT.ItemId)=[forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![ItemId]) AND ((InvoiceTT.Movement)=[forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![Movement]));" DoCmd.Requery جرب هذا InvoiceSale_8.accdb

MP3_WAV_Player_SEMO_Pa3x.accdb

مشاركة مع الاخوة برغم اني لم اشوف ماكان جوابهم لعل الافكار تختلف إخفاء أو إظهار التقرير.accdb

فبل التحديث If Len(رقم_الجوال) <> 10 Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' cancel = True Me.رقم_الجوال.Undo End If عند الضغط على مفتاح Dim Chkstr As String Chkstr = "0123456789" If KeyAscii > 26 Then 'اي ان المفتاح الذي تم نقره ليس من ضمن مفاتيح التحكم مثل Ctrl If InStr(1, Chkstr, Chr(KeyAscii)) = 0 Then KeyAscii = 0 MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " End If End If

MP3_WAV_Player_SEMO_Pa3x.accdb

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

راجع هذا الموضوع

مرورك الاجمل اخي حسين

اتفضل DoCmd.OpenForm "Teb22", , , "[a1] = '" & Me.a1 & "'" & "And [a2] = '" & Me.a2 & "'" ماشاء الله كلنا بتوقيت واحد هههههههههههههه

جرب هذا او افتح موضوع جديد وارفق ملف نص DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] ='" & "'" & Me.Nem_1 & "'" And "[Nem_2] ='" & "'" & Me.Nem_2 & "'" رقم DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] = & " & Me.Nem_1 & " " And "[Nem_2] = & " & Me.Nem_2 & ""