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

احسنت كان خطاء مطبعي مني New Microsoft Access قاعدة بيانات (3) (1).accdb

كلامك صح وهذا حسب طلب السائل If Me.t1.Caption <> BFEBFBFF000406E3 Then MsgBox "يوجد خطاء", vbInformation, "تنبيه" DoCmd.Quit End If New Microsoft Access قاعدة بيانات (3) (1).accdb

حاول تصغر تقرير الطباعه حسب المقاس

افتح الاستعلام بطريقه التصميم وافتح سكويل وانسخ السكويل وبعدها اعمل استعلام جديد والصق السكويل انا استخدم 2010 وما بعرف استيراد 2003 واظن استيراد الاستعلام نفس استيراد الجدول

جرب هذا Dim sql As String On Error GoTo MsgErr If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 Then sql = "UPDATE InvoiceTT SET InvoiceTT.QCB = [InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] " & vbCrLf & _ "WHERE (([InvoiceTT]![QCB]<=[InvoiceTT]![QSold]) AND ((InvoiceTT.InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND ((InvoiceTT.ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql1 = "UPDATE [InvoiceTT] SET [InvoiceTT].Total1 = [InvoiceTT]![Total1]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![Total1] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql2 = "UPDATE [InvoiceTT] SET [InvoiceTT].OppB = [InvoiceTT]![OppB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![OppB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql5 = "UPDATE [ItemsT] SET [ItemsT].QAvilable = [ItemsT]![QAvilable]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([ItemsT].ItemId)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"

جرب هذا التحديث بالكود الاول فيه شرط انه مايتعدا كمية البيع لعلعه المطلوب Dim sql As String On Error GoTo MsgErr If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 Then sql = "UPDATE InvoiceTT SET InvoiceTT.QCB = [InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] " & vbCrLf & _ "WHERE (([InvoiceTT]![QCB]<=[InvoiceTT]![QSold]) AND ((InvoiceTT.InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND ((InvoiceTT.ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql1 = "UPDATE [InvoiceTT] SET [InvoiceTT].Total1 = [InvoiceTT]![Total1]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![Total1] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql2 = "UPDATE [InvoiceTT] SET [InvoiceTT].OppB = [InvoiceTT]![OppB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![OppB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));" sql5 = "UPDATE [ItemsT] SET [ItemsT].QAvilable = [ItemsT]![QAvilable]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([ItemsT].ItemId)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"

ليش مايكون هكذا بدل المية If Rcount > 37 And Rcount < 46 Then

بصراحه لم افهم الطلب لكن محاولة مني لعله يكون صح شوف المرفق قاعدة البيانات1.accdb

بالتوفيق

😁😁

تسلم اخي ابا جودي بالتوفيق اخي عبداللطيف

اخي ابا جودى قد حليناه نيابه عنك بنحتاجك بالكبار هههههههههه

اتفضل sar: Sum(Nz([فواتير المبيعات_تفاصيل]![سعر_البيع]*[Quantity]))

بارك الله فيك

برغم اني ما نزلت المرفق لاني استخدم المبيايل الا اني متشوق لاراء ابداعات اخونا ابا جودي

Me.اسم الحقل.Enadbled=false اعذرني لاني بالمبيايل

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

اخي ابو عارف طريقة حلوة لكن لم تدخل في الجمع

اعتذر عن المشاركة

اعمل قاعده جديده واستور كل شي الى الجديد او حاول تعمل ضغط واصلاح

وهذة طريقة اخرى ادراج الصور بعد 5 (1) (1).rar

شوف هذا لعله طلبك ادراج الصور بعد 5 (1).rar

بالنوفيق

اتفضل حسب مافهمت INSERT INTO Teb2 ( a1, a2, a3, a4, a5 ) SELECT ورقة1.a1, ورقة1.a2, ورقة1.a3, ورقة1.a4, ورقة1.a5 FROM ورقة1 WHERE (((ورقة1.a1) Not In (SELECT Teb2.a1 FROM Teb2;))); AA (1).rar

محاولة ExamُُE.accdb