ابو جودي

اتفضل المرفق وجرب الاكسل تبعى انا اسم الملف : Template2.csv ImportExcel 2.zip

للعلم فى مشكلة فى ملفات الاكسل تبعك استبدل الكود على زر الامر الخاص بالإستيرد بالكود الاتى On Error GoTo Err_MyProc Dim strTable As String Dim FSO As New FileSystemObject If Nz(Me.txtFileName, "") = "" Then MsgBox "Please select a file!" Exit Sub End If If FSO.FileExists(Nz(Me.txtFileName, "")) Then strTable = "tblJudy" 'Table Name DoCmd.DeleteObject acTable, strTable DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True MsgBox "Transfer Complete!" Else MsgBox "File not found!" End If Err_MyProc: 'Error handler here. Resume Next

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

أحبك الذى أحببتني له

فضلا وكرما اختيار عنوان للموضوع يناسب السؤال اتفضل Database4 -2.accdb

تم عمل استعلام اضافة باسم qryAppendData وفى الحدث عند اغلاق نموذج اضافة الاصناف نضع الكود الاتى DoCmd.SetWarnings False DoCmd.OpenQuery "qryAppendData" DoCmd.SetWarnings True

حضرتك متأكد انك بتضيف سجل جديد للعلم الكود يعمل على اضافة كل البيانات بمجرد اغلاق النموذج الخاص بالاصناف ولكن ...... يعمل فقط على الاضافات الجديدة وليس التعديل على سجلات سابقة

اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا المنتدى منور بأهله الكرام وبحضراتكم جميعا

اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا اعتذر لانقطاعي

نموذج منبثق - Pop-up Popup.mdb

وهذا بدون تدخل من المستخدم المحل نسخة تجريبية-2.accdb

ده بيحصل بسبب البرامج المضادة للفيروسات احيانا الحل اعمل باسورد على محرر الاكواد

اتفضل اولا جرب من خلال زر الامر اضافة لجدول جرد الفواتير وبعد كده نشوف موضوع المحل نسخة تجريبية.accdb

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

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

حضرتك تريد اخفاء كل الصفوف ان كانت القيمة فى الحقل Total =0 او كانت فارغة لو انا قدرت افهم صح اتفضل DatabaseX.accdb

ممكن مرفق حضرتك

بخصوص المشكلة التى حدثت معكم مع الكود iif([BillTayp]="مرجوعات";([ItemBuy]*-1);[ItemBuy]) ان هناك اكثر من جدول يحتوى على حقل ينفس الاسم BillTayp

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

طيب غير جملة الاستعلام كلها بالجملة دى SELECT [header- bill].SupplierID, Supplier.SupplierName, [header- bill].BillID, [header- bill].BillSupplier, [header- bill].BillDate, [header- bill].BillTayp, [header- bill].BillMoney, Details_Bill.Quantity, Details_Bill.ItemBuy, [ItemBuy]*[Quantity] AS Expr1, Items.ItemName, [header- bill].BillTayp AS BillTayp2, IIf([BillTayp2]="مرجوعات",([ItemBuy]*-1),[ItemBuy]) AS ItemBuy2 FROM Supplier INNER JOIN (Items INNER JOIN (([header- bill] INNER JOIN Details_Bill ON [header- bill].BillID = Details_Bill.Bill_ID) INNER JOIN Price ON [header- bill].BillID = Price.BillID) ON Items.ItemID = Details_Bill.ItemID) ON Supplier.Supplier_ID = [header- bill].SupplierID WHERE ((([header- bill].SupplierID) Like "*" & [Forms]![التقارير]![ser_name1] & "*") AND (([header- bill].BillDate) Between [Forms]![التقارير]![ser_date1] And [Forms]![التقارير]![ser_date2])); منتظر ردك

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

المطلب الاول اعتقد والله اعلم لا يمكن المطلب التانى وركز معايا لان النت فصل وبكلمك من الفون اعتبر A حقل نوع الفاتورة B حقل السعر الكود راح يكون كالاتى iif([A]="مرجوعات";([B]*-1);[B])

السلام عليكم ورحمة الله تعالى وبركاته اجمل واطيب التهانى والامانى استاذى الجليل واخى الحبيب تستحق كل الخيـر رغم انه قليل عليكم وكل كلمات الدنيا لن تكفيكم وتوفيكم قدركم

استاذى الجليل واخى الحبيب يعلم الله انى افتقدت كل أساتذتي الافاضل و أحبابي واعتذر عن غيابى وانقاطاعى

ان شاء الله تعالى ممكن ذلك ارفق القاعدة