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

DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO FTORA_HRKA ( ID_RJMJID, NWHA, ID_SNF, RJM_SLA, SNF, WSF, KMIA, TRIH, NAM_MRKZ ) " & vbCrLf & _ "SELECT HRR.ID_RJMJID, HRR.NWHA, HRR.ID_SNF, HRR.RJM_SLA, HRR.SNF, HRR.WSF, HRR.KMIA, HRR.TRIH, HRR.NAM_MRKZ " & vbCrLf & _ "FROM HRR;" ' DoCmd.OpenQuery "الحاق" DoCmd.SetWarnings True

اخي ابو زاهر جدول HRR فاضي فكيف نعرف انه تم النقل ام لا DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO FTORA_HRKA ( ID_RJMJID, NWHA, ID_SNF, RJM_SLA, SNF, WSF, KMIA, TRIH, NAM_MRKZ ) " & vbCrLf & _ "SELECT HRR.ID_RJMJID, HRR.NWHA, HRR.ID_SNF, HRR.RJM_SLA, HRR.SNF, HRR.WSF, HRR.KMIA, HRR.TRIH, HRR.NAM_MRKZ " & vbCrLf & _ "FROM HRR;" ' DoCmd.OpenQuery "الحاق" DoCmd.SetWarnings Tru

العفو اخي بارك الله فيك

اتفضل If Me.نص2 = "123" Then DoCmd.OpenForm "نموذج2" DoCmd.Close acForm, "نموذج1" Else If MsgBox(" كلمه السر غير صحيبحه " & vbCrLf & "هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbYes Then DoCmd.Quit End If End If New تطبيق Microsoft Office Access (1).mdb

القي نظرة الى هذا لعله يفيدك

شكرا لك اخي على الملف انا الان ليس مشكله بالملف المشكله بالاكواد كيف اطبقها على موقع الرسايل

الحمد لله الذي بفضله تتم الصالحات بالتوفيق اخي

هو المطلوب ربط الموقع بالاكسس

اتفضل اتمنى يكون المطلوب SeashError & rpt.accdb

بالتوفيق اخي كنت اريدك تدخل اكثر من اسم عميل واسم مورد لاني شاكك في داله دولكب انها تختار اخر اسم اريدك تجرب اكثر من زبون واكثر من مورد

انا المفروض كنت احذفه انا اصلا اشنغلت على الاستعلام كي اعمله في التقرير الاستعلام اصبح وجوده مثل عدمه

بارك الله فيك ورحم والديك جعلت مصدر التقرير هكذا SELECT InvoiceTT.InvoiceNum, InvoiceTT.Movement, ItemsT.ItemName, InvoiceTT.OutDate, InvoiceTT.QuantityS, InvoiceTT.priceu, InvoiceTT.Total, InvoiceTT.Times, ItemsABT.ItemABName, IIf([Movement]="بيع",DLookUp("[CustomerName]","[CustomersT]"),IIf([Movement]="شراء",DLookUp("[SupplierName]","[SuppliersT]"))) AS Expr5 FROM ItemsABT INNER JOIN (ItemsT INNER JOIN InvoiceTT ON ItemsT.ItemID = InvoiceTT.ItemId) ON ItemsABT.ItemABID = ItemsT.ItemABID; وعملت شرط عند فتحت التقرير هكذا If [Forms]![ItemsKashf_F]![k2] = "شراء" Then Me.txetCustom.Caption = "اسم المورد?" End If If IsNull([Forms]![ItemsKashf_F]![k2]) Then Me.txetCustom.Caption = "عميل أو مورد" End If

للرفع أبو إبراهيم الغامدي

اتفضل هذا طلبك ب3 شروط SeashError & rpt.rar

انا عملت في التقرير عند الفتح If [Forms]![ItemsKashf_F]![k2] = "شراء" Then Me.تسمية59.Caption = "اسم المورد" End If

انت لم تلاحظ انه اذا بيع يكون الاسم اسم الزبون زاذا شراء يتغير الاسم الى اسم المورد

=IIf([Forms]![ItemsKashf_F]![k2]="بيع";[Forms]![ItemsKashf_F]![itemsKashf_Sub].[Form]![CustomerNum];IIf([Forms]![ItemsKashf_F]![k2]="شراء";[Forms]![ItemsKashf_F]![itemsKashf_Sub].[Form]![SuppliersNum])) لم اشوف ملفك الاخير ولكن شوف هذا اظنك تريد توصل الى هذا جرب واعطيني خبر SeashError & rpt.rar

جرب هذا =[Forms]![ItemsKashf_F]![itemsKashf_Sub].[Form]![CustomerNum]

بارك الله فيك وزاد علم فوق علمك

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

اخي Shivan Rekany ما قمت به هو نفس النتيجه ما قمت به انا وهو ليس الملوب اعمل 30 30 80 وتحت 100 بتلاقي يعمل شرط 30 وهو يريده يعمل شرط 80

ممكن ترفق ما توصل اليه مع شرح المطلوب

جرب هذا =IIf([k2]<=[rx] And [k2]<[rx2];[rx]*[k2];IIf([k2]>[fx] And [k2]<[rx3];[rx2]*[k2];IIf([k2]>=[fx3];[rx3]*[k2])))

=IIf([k2]<=[fx];[rx]*[k2];IIf([k2]>=[fx2];[k2]*[rx2];[rx3]*[k2])) حاول تضيف قبل الاخير if

انا الان في المبايل جرب اضافهif