jjafferr

السلام عليكم 🙂 وهذه طريقة بالاستعلام ، وبدون المساس بالجدول 🙂 . والنتيجة . جعفر 1007.المركزي.accdb.zip

تفضل 🙂 طبعا هذا مثال ، ويعمل على عدد اشهر السنه ، وعدد ايام الشهر ، ويأخذ قيمته من استعلام جدولي ، فاللي يتغير هو الاستعلام ، واما التقرير فالكود اللي فيه يتأقلم مع بيانات الاستعلام ، ولا يتم حذف اي من كائنات قاعدة البيانات 🙂 لهذا السبب ، استعمل هذا كمثال لبرنامجك 🙂 جعفر

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

و احذف الصح عن جميع اللي في الرقم 3 و 4

تفضل 🙂 @Echo off Echo decompiling D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /decompile /cmd shutdown Echo compacting D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /compact Echo compiling D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /cmd compile Echo compacting D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /compact Echo Opening D:\progrms\test.accdb , and Exiting .bat start "" "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb"

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

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

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