محمد قاسم 12 قام بنشر فبراير 6, 2019 قام بنشر فبراير 6, 2019 السلام عليكم فى الملف المرفق فاتورة مبيعات وعند اضافة حقل جديد لها ظهر هذا الخطاء بهذا الكود الجمعية .rar
jjafferr قام بنشر فبراير 6, 2019 قام بنشر فبراير 6, 2019 وعليكم السلام 🙂 الافضل تقسيم جملة 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
محمد قاسم 12 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 استاذى الفاضل عند التطبيق ظهر هذا الخطاء
jjafferr قام بنشر فبراير 6, 2019 قام بنشر فبراير 6, 2019 وتعلمت اليوم شيء جديد ، شكرا لك اخي محمد 🙂 لم انتبه ان هناك حقل نص وحقل تاريخ في الكود ، لذلك حصلت على هذه الرسالة والرسالة التي تليها 😞 تفضل التعديل المبيعات 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 1
محمد قاسم 12 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 بارك الله فيك معلمى الفاضل فاتورة المبيعات لا تعمل وبها خطاء بالكود __________
محمد قاسم 12 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 بارك الله فيك معلمى الفاضل فاتورة المبيعات لا تعمل وبها خطاء بالكود __________
محمد قاسم 12 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 بارك الله فيك معلمى الفاضل نفس المشكله يبدوا ان المشكله لدى فى جهازي والله اعلم
محمد قاسم 12 قام بنشر فبراير 6, 2019 الكاتب قام بنشر فبراير 6, 2019 بارك الله فيك معلمى الفاضل لا اشكك ابدا فى عملك استاذى ومعلمى الكبير واستميحك عذرا فأنا جاهل امام علمك الكبير بالفعل تعمل ولكن عند وضع رقم الاذن بعد تعبئة الفاتورة لا يعمل قد يكون المشكله فى نسخة الاوفيس لدى والله اعلى واعلم واعلى الله مراتبك فى الحياة الدنيا وفى الاخرة يبدوا ان المشكله لدى فى جهازي والله اعلم
jjafferr قام بنشر فبراير 7, 2019 قام بنشر فبراير 7, 2019 11 ساعات مضت, محمد قاسم 12 said: بالفعل تعمل ولكن عند وضع رقم الاذن بعد تعبئة الفاتورة لا يعمل وين حقل "رقم الاذن" ، انا ما شايفه في النموذج!! ولو سمحت تعطينا الخطوات اللي تتبعها للوصول للخطأ 🙂 جعفر 1
jjafferr قام بنشر فبراير 7, 2019 قام بنشر فبراير 7, 2019 الخطأ هذا لا علاقة له بتعديل كود SQL 🙂 النموذج الرئيسي له مصدر بيانات ، يعني النموذج مضمن . مصدر بيانات النموذج هو استعلام للجدول invoice ، ولاحظ انك استخدمت النجمة * ، معناها انك تريد جميع حقول الجدول . وبالفعل ، تم عرض جميع حقول الجدول . ولما نأتي الى الحقل اللي يظهر لنا في رسالة الخطأ fatora_no ، نشوف انك قائل انه لا يمكن حفظ السجل بدون ان تكون هناك معلومة فيه ، نعم مطلوب . ولكن ، لما ننقر على زر الحفظ في النموذج ، نصل الى هذا السطر من الكود Me.Refresh ، والذي معناه ان يحفظ بيانات النموذج الرئيسي . ولكن جميع حقول النموذج غير مضمنه ، اي لا تُحفظ في الجدول ، إلا الحقل nn يجب حفظه (لأنه حقل مضمن) !! ولا يستطيع البرنامج حفظ هذا الحقل بدون قيمة لحقل fatora_no (لأنه غير مضمن) ، لذا ، فقيمة الحقل nn لن تُحفظ في الجدول !! . وبالنظر الى الجدول ، نرى انه بالفعل ، لا توجد فيه ولا نتيجة واحدة . والطريقة الصحيحة هي: يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ، ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول. . جعفر 2
محمد قاسم 12 قام بنشر فبراير 7, 2019 الكاتب قام بنشر فبراير 7, 2019 جزاكم الله خيرا استاذى الفاضل للاسف اصل البرنامج من مشاركه للمعلم الكبير ابو خليل بارك الله فيه وفيك ولو فهم الاكواد جيدا ولك خالص شكرى وتقديرى
jjafferr قام بنشر فبراير 7, 2019 قام بنشر فبراير 7, 2019 39 دقائق مضت, jjafferr said: والطريقة الصحيحة هي: يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ، ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول. انا اعطيتك الجواب 🙂 جعفر 1
محمد قاسم 12 قام بنشر فبراير 7, 2019 الكاتب قام بنشر فبراير 7, 2019 جزاكم الله خيرا استاذى الفاضل بارك الله فيك استاذى وفرحك مثل ما فحتنى وفرج عنك فى الدنيا وفى الاخرة ____________ هل لى فى لب بسيط ؟
jjafferr قام بنشر فبراير 7, 2019 قام بنشر فبراير 7, 2019 3 دقائق مضت, محمد قاسم 12 said: هل لى فى لب بسيط ؟ اذا لم يخالف قواعد المشاركة في المنتدى ، تفضل 🙂 جعفر
محمد قاسم 12 قام بنشر فبراير 7, 2019 الكاتب قام بنشر فبراير 7, 2019 ممكن اطمع فى تعديل الفاتورة دى كمان سداد.rar
jjafferr قام بنشر فبراير 7, 2019 قام بنشر فبراير 7, 2019 اخي محمد ، انت مجرد عملت نسخ ولصق من النموذج الثاني ، وبدون ان تغير في الكود على العموم ، تفضل 🙂 جعفر 1003.سداد.accdb.zip
محمد قاسم 12 قام بنشر فبراير 7, 2019 الكاتب قام بنشر فبراير 7, 2019 جزاكم الله خيرا استاذى الفاضل بارك الله فيك استاذى وفرحك مثل ما فحتنى وفرج عنك فى الدنيا وفى الاخرة كل كلمات الشكر لا تكفيك استاذى الفاضل بارك الله فيك ولك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.