jjafferr

1. معلش ، اعمل اللي اخبرتك عنه ، وخلينا نشوف النتائج ، 2. انظر في مشاركتي الاخيرة ، لأني في نهايتها وضعت لك الحل لـ "مشكله اخري علي جهاز العميل وهي انا البرنامج لايفتح محرر الفيجوال بيسك" و "يخرج من البرنامج". جعفر

وعليكم السلام 🙂 هناك خطأ في الجملة!! خلينا نفك الجملة ، ونعرف وين الخطأ: DLookUp("Sum([tabol_fatora]![dcond_ftora])";"[tabol_fatora]";"[tabol_fatora]![fator_no]='" & [fator_no] & "'") الامر من 3 اجزاء 1. اسم الحقل المراد جلب قيمته من الجدول "Sum([tabol_fatora]![dcond_ftora])" وبما انك وضعت علامات "" ووضعت اسم في النصف بينهم ، فهذا معناه انه اسم الحقل والظاهر انه ليس اسم الحقل 2. اسم الجدول/الاستعلام المراد جلب القيمة منه "[tabol_fatora]" والقيمة صحيحة 3. المعيار "[tabol_fatora]![fator_no]='" & [fator_no] & "'" ونلاحظ ان اسم الحقل الموجود في الجدول هو [tabol_fatora]![fator_no] ولا يمكن هذا وهنا نرى ان حقل المعيار نص (رقم الفاتورة) وليس رقم . اما الامر NZ فصيغته صحيحة 🙂 اما الجزء الاخير من سؤالك (اشرت عليه اشارة خاطفة 🙂 ) والحل: جعفر

الخطأ هذا لا علاقة له بتعديل كود SQL 🙂 النموذج الرئيسي له مصدر بيانات ، يعني النموذج مضمن . مصدر بيانات النموذج هو استعلام للجدول invoice ، ولاحظ انك استخدمت النجمة * ، معناها انك تريد جميع حقول الجدول . وبالفعل ، تم عرض جميع حقول الجدول . ولما نأتي الى الحقل اللي يظهر لنا في رسالة الخطأ fatora_no ، نشوف انك قائل انه لا يمكن حفظ السجل بدون ان تكون هناك معلومة فيه ، نعم مطلوب . ولكن ، لما ننقر على زر الحفظ في النموذج ، نصل الى هذا السطر من الكود Me.Refresh ، والذي معناه ان يحفظ بيانات النموذج الرئيسي . ولكن جميع حقول النموذج غير مضمنه ، اي لا تُحفظ في الجدول ، إلا الحقل nn يجب حفظه (لأنه حقل مضمن) !! ولا يستطيع البرنامج حفظ هذا الحقل بدون قيمة لحقل fatora_no (لأنه غير مضمن) ، لذا ، فقيمة الحقل nn لن تُحفظ في الجدول !! . وبالنظر الى الجدول ، نرى انه بالفعل ، لا توجد فيه ولا نتيجة واحدة . والطريقة الصحيحة هي: يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ، ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول. . جعفر

تفضل 🙂 . جعفر 1005.قروض.accdb.zip

وين حقل "رقم الاذن" ، انا ما شايفه في النموذج!! ولو سمحت تعطينا الخطوات اللي تتبعها للوصول للخطأ 🙂 جعفر

هذه تجاربي . و . جعفر

وعليكم السلام اخي صالح 🙂 مسقط التصفح يعمل ملف اكسس جديد ، ويعمل جدول بحقوله ، ونموذج بكائناته وكود لها : . جعفر

رجاء تجربة الملف المرفق الآن 1003.zip

شو قصدك لا تعمل ، واي خطأ بها؟

وتعلمت اليوم شيء جديد ، شكرا لك اخي محمد 🙂 لم انتبه ان هناك حقل نص وحقل تاريخ في الكود ، لذلك حصلت على هذه الرسالة والرسالة التي تليها 😞 تفضل التعديل المبيعات Dim mySQL As String mySQL = "INSERT INTO invoice ( sit_ID, catcod, fatora_no, mvdate, Qtyout, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicesale!sit_ID & ", " & Forms!invoicesale!catcod & ", '" & Forms!invoicesale!f_no & "', " mySQL = mySQL & Chr(32) & "#" & Forms!invoicesale!movedate & "#, " & Forms!invoicesale!Qtyout & ", " & Forms!invoicesale!PRICESALE & ", " mySQL = mySQL & Chr(32) & Forms!invoicesale!Total & ", " & Forms!invoicesale!storid & ", " & Forms!invoicesale!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicesale!mosadd & ", " & Forms!invoicesale!baqy 'او ' mySQL = "INSERT INTO invoice ( sit_ID, catcod, fatora_no, mvdate, Qtyout, price, Total, storid, mvTyp, mosadd, baqy) " ' mySQL = mySQL & Chr(32) & "SELECT Forms!invoicesale!sit_ID , Forms!invoicesale!catcod , Forms!invoicesale!f_no , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!movedate , Forms!invoicesale!Qtyout , Forms!invoicesale!PRICESALE , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!Total , Forms!invoicesale!storid , Forms!invoicesale!mvTyp , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!mosadd , Forms!invoicesale!baqy" DoCmd.RunSQL mySQL . الشراء Dim mySQL As String mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicebuy!supp_ID & ", " & Forms!invoicebuy!catcod & ", '" & Forms!invoicebuy!f_no & "', " mySQL = mySQL & Chr(32) & "#" & Forms!invoicebuy!movedate & "#, " & Forms!invoicebuy!Qtyin & ", " & Forms!invoicebuy!pricebuy & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!Total & ", " & Forms!invoicebuy!storid & ", " & Forms!invoicebuy!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!mosadd & ", " & Forms!invoicebuy!baqy 'او ' mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " ' mySQL = mySQL & Chr(32) & "SELECT Forms!invoicebuy!supp_ID , Forms!invoicebuy!catcod , Forms!invoicebuy!f_no , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!movedate , Forms!invoicebuy!Qtyin , Forms!invoicebuy!pricebuy , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!Total , Forms!invoicebuy!storid , Forms!invoicebuy!mvTyp , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!mosadd , Forms!invoicebuy!baqy" DoCmd.RunSQL mySQL . جعفر 1003.zip

وعليكم السلام 🙂 الافضل تقسيم جملة SQL الى اكثر من سطر: هكذا : بدل هذين السطرين DoCmd.RunSQL "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " & vbCrLf & _ "SELECT forms!invoicebuy!supp_ID AS Expr1, forms!invoicebuy!catcod AS Expr2, forms!invoicebuy!f_no AS Expr3, forms!invoicebuy!movedate AS Expr4, forms!invoicebuy!Qtyin AS Expr5, forms!invoicebuy!pricebuy AS Expr6, forms!invoicebuy!Total AS Expr7, forms!invoicebuy!storid AS Expr8, forms!invoicebuy!mvTyp AS Expr9, forms!invoicebuy!mosadd AS Expr10, forms!invoicebuy!baqy AS Expr11" استعمل Dim mySQL As String mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicebuy!supp_ID & ", " & Forms!invoicebuy!catcod & ", " & Forms!invoicebuy!f_no & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!movedate & ", " & Forms!invoicebuy!Qtyin & ", " & Forms!invoicebuy!pricebuy & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!Total & ", " & Forms!invoicebuy!storid & ", " & Forms!invoicebuy!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!mosadd & ", " & Forms!invoicebuy!baqy DoCmd.RunSQL mySQL جعفر

وعليكم السلام 🙂 هذه من الاسئلة النادرة ، وللإجابة عليها لازم نعمل رسم بياني ونشوف الاختيارات فيه ، فبدل ان نقوم بالعمل ، سهل علينا وعليك ، بإرفاق هذه الجزئية من برنامجك لوسمحت 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ويجب ان يكون لكل موضوع سؤال واحد. ومخالفة ذلك تعرض الموضوع للحذف رجاء عمل موضوع/مواضيع جديدة تماشيا مع قواعد المشاركة 🙂 يُغلق هذا الموضوع. جعفر

تفضل 🙂 . . ولشهر ديسمبر . كود تعديل التقرير موجود في النموذج tqrer على حدث النقر على الزر ، جعفر 1001.الخطة_المجمعة.accdb.zip

طيب يا باشا ، هذا اختيار 1 وما ممكن استعماله، يعني باقي عندك اختيارين 🙂

اذن ، مثل ما قال الاخ عصام : بعد ان يخرج جميع المستخدمين من البرنامج ، قم بعمل ضغط واصلاح لملف الجداول. جعفر

هل البرنامج عندك مقسّم الى واجهة موجودة على كمبيوتر كل مستخدم ، وملف الجداول موجود على الشبكة ، وجميع المستخدمين رابطين واجهاتهم بملف الجداول؟ جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 هناك مجموعة ملاحظات يجب ان تُأخذ بعين الاعتبار: 1. عند فتح البرنامج في اي مجلد / كمبيوتر آخر ، فالاكسس (2007 فما فوق) يحمي المستخدم ، ولا يُفعّل جميع الازرار والماكرو والكود ، إلا اذا تم فتح البرنامج في مجلد موثوق به ، ولذلك ، فالاكسس يعطينا خط اصفر ، فيه زر لتمكين المحتوى Enable Content ، والذي يجب النقر عليه لعمل البرنامج (انظر الصورة ادناه) ، ولكن المشكلة انه ، اذا جعلت النموذج الاول في برنامجك منبثق ويملئ الشاشة ، فهو سيغطي هذا الخط الاصفر ، ولن تراه !! لذا ، فيجب عليك ان تشغل البرنامج بدون فتح هذه النماذج المنبثقة (ممكن عن طريق مسك مفتاح الشفت الى ان يشتغل البرنامج) ، وسترى الشريط الاصفر ، ويمكنك النقر على الزر ، او وهذه طريقة عمل مجلد موثوق به: . 2. طبعا في تغيير بين الاكسس الاجدد عن الاكسس الاقدم ، يعني الاكسس 2016 فيه مجموعة تغييرات والتي لا تحتوي عليها الاكسس 2007 ، ولكن ، اذا قمت بتحديث الاكسس 2007 ، فيمكنه عرض وتشغيل برامج الاكسس 2016 (ليس جميع البرامج 100%) ، 3. تنسيق وحجم خط الكائنات تعتمد 100% على خطوط الوندوز ، لذلك ، على المبرمج ان لا يستخدم خطوط خاصة لبرنامجه ، فإذا نقل البرنامج على كمبيوتر آخر وليس فيه هذا الخط ، فيقوم الاكسس بإستبدال الخط الغير موجود مع خط افتراضي. جعفر

وعليكم السلام 🙂 اللي يجي في بالي: 1. اعمل 12 تقرير ، شهر لكل تقرير ، وبرمجيا تختار التقرير حسب الشهر 🙂 2. اعمل نسخة من الاستعلام ، ولكن بدون معايير ، نسخة لعمل التقرير فقط ، وعندما تريد عمل التقرير ، استعمل هذا الاستعلام لجلب الحقول المطلوبة ، ولما يكون التقرير جاهز ، قم بتغيير مصدر بيانات التقرير الى الاستعلام الصحيح 🙂 3. استعمل "مسقط التقارير" 🙂 جعفر

وعليكم السلام 🙂 التقرير لا يحترم فرز الاستعلام ، وانما يجب عمل الفرز في التقرير مباشرة 🙂 رجاء متابعة هذه المشاركة: جعفر

في هذه الحالة اعمل تغيير بدل الكمبوبوكس اعمله حقل نص ، وارجع الكود الى حدث "على التغيير" وتذكر هذه النصيحة ، لأنها حصلت للكثير الذين ارادوا العمل على طريقتك: جعفر

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يجب الانتباه الى اضافة مسافة فارغة بين كل سطر، ابتداءً من السطر الثاني: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL . لذا، من الافضل استعمال الطريقة التالية للسطور ابتداءً من السطر الثاني ، هكذا : dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & chr(32) & " FROM Table1" Me.Box.RowSource = mySQL جعفر

اها ، قصدك السطر في VBA لا يقبل ان يكون طويل !! نعم يمكن تجزئة السطر ، هكذا: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL وهنا مثالين على الطريقة: جعفر

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يعني تقدر تعمل (للأسف تم قلب الاسماء ، لأنها بالعربي!!) : "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل] FROM Table1" هذا غير ممكن ، يمكن عندك خطأ في مكان ما!! جعفر

نعم ، تختار المسار مرة واحدة ، ثم تختار الصور من القائمة المنسدلة