اصلاح الخطاء بالكود

[محمد قاسم 12]

السلام عليكم

فى الملف المرفق فاتورة مبيعات

وعند اضافة حقل جديد لها ظهر هذا الخطاء بهذا الكود

 

 

الجمعية .rar

[jjafferr]

وعليكم السلام 🙂

 

الافضل تقسيم جملة 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
    

 

 

جعفر

[محمد قاسم 12]

استاذى الفاضل

عند التطبيق ظهر هذا الخطاء

[jjafferr]

وتعلمت اليوم شيء جديد ، شكرا لك اخي محمد 🙂

 

لم انتبه ان هناك حقل نص وحقل تاريخ في الكود ، لذلك حصلت على هذه الرسالة والرسالة التي تليها 😞

 

تفضل التعديل

المبيعات

    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

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

فاتورة المبيعات لا تعمل وبها خطاء بالكود

__________

[jjafferr]

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

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

فاتورة المبيعات لا تعمل وبها خطاء بالكود

__________

[jjafferr]

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

1003.zip

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

نفس المشكله

يبدوا ان المشكله لدى فى جهازي

والله اعلم

[jjafferr]

هذه تجاربي

.

و

.

جعفر

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

لا اشكك ابدا فى عملك استاذى ومعلمى الكبير

واستميحك عذرا  فأنا جاهل امام علمك الكبير

بالفعل تعمل ولكن عند وضع رقم الاذن بعد تعبئة الفاتورة لا يعمل

قد يكون المشكله فى نسخة الاوفيس لدى 

والله اعلى واعلم

واعلى الله مراتبك فى الحياة الدنيا وفى الاخرة

يبدوا ان المشكله لدى فى جهازي

والله اعلم

[jjafferr]

11 ساعات مضت, محمد قاسم 12 said:

بالفعل تعمل ولكن عند وضع رقم الاذن بعد تعبئة الفاتورة لا يعمل

وين حقل "رقم الاذن" ، انا ما شايفه في النموذج!!

ولو سمحت تعطينا الخطوات اللي تتبعها للوصول للخطأ 🙂

 

جعفر

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

[jjafferr]

 

الخطأ هذا لا علاقة له بتعديل كود SQL 🙂

 

النموذج الرئيسي له مصدر بيانات ، يعني النموذج مضمن

.

مصدر بيانات النموذج هو استعلام للجدول invoice ،

ولاحظ انك استخدمت النجمة * ، معناها انك تريد جميع حقول الجدول

.

وبالفعل ، تم عرض جميع حقول الجدول

.

ولما نأتي الى الحقل اللي يظهر لنا في رسالة الخطأ fatora_no ، نشوف انك قائل انه لا يمكن حفظ السجل بدون ان تكون هناك معلومة فيه ، نعم مطلوب

.

ولكن ، لما ننقر على زر الحفظ في النموذج ، نصل الى هذا السطر من الكود Me.Refresh ، والذي معناه ان يحفظ بيانات النموذج الرئيسي

.

ولكن جميع حقول النموذج غير مضمنه ، اي لا تُحفظ في الجدول ، إلا الحقل nn يجب حفظه (لأنه حقل مضمن) !!

ولا يستطيع البرنامج حفظ هذا الحقل بدون قيمة لحقل fatora_no (لأنه غير مضمن) ، لذا ، فقيمة الحقل nn لن تُحفظ في الجدول !!

.

وبالنظر الى الجدول ، نرى انه بالفعل ، لا توجد فيه ولا نتيجة واحدة

.

 

والطريقة الصحيحة هي:

يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ،

ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول.

.

جعفر

[محمد قاسم 12]

جزاكم الله خيرا استاذى الفاضل

للاسف اصل البرنامج من مشاركه للمعلم الكبير  ابو خليل  

 

بارك الله فيه وفيك ولو فهم الاكواد جيدا 

ولك خالص شكرى وتقديرى 

[jjafferr]

39 دقائق مضت, jjafferr said:

والطريقة الصحيحة هي:

يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ،

ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول.

 

انا اعطيتك الجواب 🙂

 

جعفر

[محمد قاسم 12]

جزاكم الله خيرا استاذى الفاضل

 

[jjafferr]

تفضل ، الملف بعد التعديل 🙂

 

جعفر

1003.zip

[محمد قاسم 12]

جزاكم الله خيرا استاذى الفاضل

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

____________

هل لى فى لب بسيط ؟

 

[jjafferr]

3 دقائق مضت, محمد قاسم 12 said:

هل لى فى لب بسيط ؟

اذا لم يخالف قواعد المشاركة في المنتدى ، تفضل 🙂

 

جعفر

[محمد قاسم 12]

ممكن اطمع فى تعديل الفاتورة دى كمان

سداد.rar

[jjafferr]

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

 

على العموم ، تفضل 🙂

 

جعفر

1003.سداد.accdb.zip

[محمد قاسم 12]

جزاكم الله خيرا استاذى الفاضل

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

كل كلمات الشكر لا تكفيك استاذى الفاضل

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