jjafferr

1. البرنامج فيه تقرير واحد فقط ، وهو يصلح لجميع الاختيار (من النموذج) ، 2. كل شيء موجود في الاستعلام ، يظهر في التقرير ، 3. نعم كنت اعمل على هذا ، وان شاء الله اضعه هنا لما اخلص منه 🙂 جعفر

نعم استخدم مسار الافيس عندك ، والمستخدم يمكن عنده كذلك مسار غير عن اللي عندي وعندك 🙂 جعفر

الظاهر اننا لا نتكلم عن نفس الشيء !! انا كنت اعتقد بأنك تتكلم عن الكود اللي في الرابط ، وهذا السطر من ذلك الكود : "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /decompile /cmd shutdown قم بتغيير مسار برنامج الاكسس ، وتغيير مسار برنامجك. جعفر

في هذه الحالة ، الكود يجب ان يكون: Expr1: Nz(DLookUp("[dcond_ftora]";"[tabol_fatora]";"[fator_no]='" & [fator_no] & "'");0) جعفر

اخي محمد ، انت مجرد عملت نسخ ولصق من النموذج الثاني ، وبدون ان تغير في الكود على العموم ، تفضل 🙂 جعفر 1003.سداد.accdb.zip

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

يا شيخ 🙂

وعليكم السلام اخي عبداللطيف 🙂 شكرا لك على هذه البرامج التشجيعية 🙂 عندي مداخله لوسمحت لي 🙂 وبإستعمال طريقة Dcount ، ولكن بشكل يختلف: لسنا بحاجة الى نموذج فرعي ، ولا الى الحقل الذي يأخذ قيمة النموذج الفرعي ، كل الذي نحتاجه هو: Private Sub الاسم_BeforeUpdate(Cancel As Integer) If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub . ولكن ، بعض الاوقات لما المستخدم يلاقي ان الاسم تم ادخاله مسبقا ، فإنه يريد الذهاب الى ذلك الاسم للتأكد من عدم تشابه الاسماء (وهذا ما حصل مع بعض مستخدمي برامجي 🙂 ) ، لذلك ، اليك هذه الطريقة: Private Sub الاسم_BeforeUpdate(Cancel As Integer) Dim ID As Integer Dim Msg, Style, Title, Response ID = Nz(DLookup("[المعرف]", "العميل", "[الاسم]='" & Me.الاسم & "'"), 0) If ID <> 0 Then Me.Undo Cancel = True Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _ "المعرف رقم " & ID & vbCrLf & vbCrLf & _ "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _ "No : فقط الغي هذا السجل" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "التكرار ممنوع" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then DoCmd.FindRecord ID, , , , , acAll, True End If End If End Sub . والنتيجة: جعفر 1006.التكرار ممنوع.accdb.zip

وعليكم السلام اخوي خلف 🙂 انتظر عليّ شوي ، فانا اقوم بعمل تقرير مبني على استعلام جدولي ، وتتغير اسماء الحقول وعددها وعدد سجلاتها ، وبدون تغيير في الكود 🙂 تابعني هنا: جعفر

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

تفضل 🙂 . . . جعفر 1004.Microsoft Access Database جديد _(2)_.accdb.zip

تفضل ، الملف بعد التعديل 🙂 جعفر 1003.zip

شم اسم الحقل الذي تريد جلب قيمته من الجدول؟ وشو اسم حقل المعيار؟ اعمل ملف txt على سطح المكتب ، وانسخ الكود من الرابط ، والصقه في ملف txt ، في ملف txt ، قم بتغيير مسار برنامج الاكسس ، وتغيير مسار برنامجك ، واحفظ الملف ، قم بتغيير صيغة الملف من txt الى bat ، وانقر عليه مرتين علشان يشتغل. ثم اتبع التعليمات اللي على الرابط 🙂 جعفر

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

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 جعفر