د.كاف يار

اسهل الطرق للاتصال هي الكود Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data.mdb;") Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;") Using sda As New OleDbDataAdapter cmd.Connection = con sda.SelectCommand = cmd Using dt As New DataTable() sda.Fill(dt) GridView1.DataSource = dt GridView1.DataBind() End Using End Using End Using End Using

استخدم الكود التالي ActiveSheet.PageSetup.CenterHeader = Format(Date, "yyyy-mm-dd") ActiveSheet.PrintPreview

تفضل هذه الطريقة

تفضل هذا المقترح ليسهل عليك العمل و تنتهي مشاكل جمع المبيعات و التوريد انشئ Module جديد و الصق فيه التالي '==================================== لمعرفة اجمالي المخزون لكل صنف ================================================ Public Function TotalStock(Id_product As Integer) As Integer On Error Resume Next Dim TotalImportStock, TotalSales As Integer TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0) TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0) TotalStock = TotalImportStock - TotalSales End Function '======================================= لمعرفة اجمالي المبيعات لكل صنف ============================================= Public Function TotalSales(Id_product As Integer) As Integer On Error Resume Next TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0) End Function '========================================== لمعرفة اجمالي التوريد لكل صنف ========================================== Public Function TotalImportStock(Id_product As Integer) As Integer On Error Resume Next TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0) End Function سوف تجدها من ضمن الدوال لكي سهل عليك استخدامها و استدعائها في اي مكان داخل البرنامج و للمثال تم انشاء استعلام بإسم ( المخزون الكلي لجميع الاصناف ) 321.accdb

راح ناخذ الموضوع حبه حبه بالنسبة لهذي المشكلة اتفضل هذا الحل بعد اختيار الصنف و ادخال الكمية يكون الحدث 321.accdb هذي المشكلة انتهت و كذلك تم تغيير اسم آخر عمود لأنه عند استخدام Sum تلقائيا يتم اضافة حروف عربية و هذه تسبب مشكلة و ربكة كبيرة هل جربت الاقتراح الأخير للقائمة ؟ اعتقد بأنه يفي بالغرض

ماهو اسم جدول التوريد الذي به الكميات ؟ ماهو المبيعات الذي به الكميات ؟

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

اوافقك الرأي جملة و تفصيلا و ما في جعبتها من معاني شكرا لك

ليست المشكلة في الاوفيس المشكلة لديك البيانات فقط لا اكثر بسبب العلاقات المعقدة و الشروط الكثيرة في الجدول

انت معلم و احنا منك نتعلم ماشاء الله عليك فنااان

انصحك بأن تقوم بإلغاء جميع العلاقات فلست بحاجة للكم الهائل من هذه العلاقات حرر الجدول من جميع القيود و ستجده يتجاوب معك

تفضل التعديل 123456.accdb

الملف يعمل بدون مشكلة تفضل استخدم المرفق يجب ان تستخرج الملفات من الملف المضغوط اولاً stu- up22.zip

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

تفضل هذا المقترح مجرد فكرة لا اكثر pro.accdb

لديك مشكلة في ملف الاكسل حقول يجب الا تكون فارغة - RakamKomy - csles - school لقد وضعت تسلسل في dyana مما تسبب في مشكلة في الاستيراد تفضل التعديل stu- up2.zip

تفضل التعديل ستختفي البيانات بعد الساعه 8 ص Microsoft Access Database جديد.accdb

تفضل هذا التعديل stu- up.accdb

تضع المعادلة كمعييار في حقل التاريخ فقط او ارفق لنا مثال لكي يتم التعديل عليه

اعتذر عن سرعة الرد فعلا كان لابد اطلع على كامل الكود اولا الخطأ لديك انك استخدمت DLOOKUP فهذه لإستدعاء قيمة محددة تفضل التعديل دالةDLOOKUP.mdb

السبب في قناع الادخال اتفضل التعديل دالةDLOOKUP.rar

تفضل هذه جرب هذه المعادلة ينتهي اليوم في الساعة 8 ص اليوم التاريخ 27 يكون التاريخ 27 بعد الساعة 8 ص و قبل الساعة 8 ص يكون التاريخ 26 IIf(Format(Now();"h")<=8;Format(DateAdd("d";-1;Now());"yyyy/mm/dd");Format(Now();"yyyy/mm/dd"))

ماشاء الله لا قوة إلا بالله مهندس وظيفيا و وصفيا هذا عمل هندسي احترافي بكل ما تعنيه الكلمة

ارفق مثال لكي تحصل على جواب

بإستخدام تنسيق التاريخ Format([Date1];"mmm") اشكرك يا بش مهندس كانت مجرد فكرة شكرا لك على هذا التحفيز و هذه الكلمات الطيبة من اخ كبير فكريا و علميا