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

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

هذا للكل 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 & ""

اظن عندما عندما تسنخ اسم العضوء ثم تكتب فتلقائي يتلون

المعذرة اخي د.كاف يار لم اشوفك ردك

الكلي =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]"))) المورد المحدد =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]";"[Cus_id]=[Forms]![صرف شيكات]![txtcom]");0))