jjafferr

انا في الخدمة قدر المستطاع 🙂 كانت لي تجارب مع Power Point هنا: http://arabteam2000-forum.com/index.php?/topic/279726-تدوير-مربع-النص-في-التقرير-rotate/&do=findComment&comment=1350599 اختر المجلد اولا 🙂 جعفر

وعليكم السلام اخي صالح 🙂 شيء جميل 🙂 ظهر لي هذا الخطأ: . وبعد متابعة الكود ، اتضح ان الكود يقف على هذا السطر: PptApp.ActivePresentation.SaveAs Me.LctionTxt, ppSaveAsJPG, msoTrue والمشكلة هي ان الحقل Me.LctionTxt في النموذج ينتهي بالشرطة \ ، مما يعني انه يجب ان نُدخل اسم المجلد الذي نريد ان نحفظ فيه المجلد ، او نحذف الشرطة ، حتى يتم الحفظ 🙂 جعفر

وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂 If application.CurrentProject.Name = "Date1.mdb" Then Me.Com1.Visible = false Else Me.Com1.Visible = true End If جعفر

1. هذه صورة التقرير في نسختي: . وهي تتماشى مع بيانات الاستعلام الجدولي: . 2. انا عملت عرض الصفحة ثابت ، ويُطبق على جميع حقول التاريخ ، ويمكن تغييره من هنا: . مع ملاحظة ان القيمة هنا بصيغة twips : 1 بوصة = 1440 تويبس 1 سنتيمتر = 567 تويبس 96 بكسل = 1440 تويبس جعفر

السلام عليكم 🙂 اسم قاعدة البيانات application.CurrentProject.Name مسار قاعدة البيانات application.CurrentProject.Path اسم ومسار قاعدة البيانات application.CurrentDb.Name جعفر

السلام عليكم 🙂 هذا ليس التقرير اللي انا عملته !! جعفر

السلام عليكم 🙂 وهذه طريقة بالاستعلام ، وبدون المساس بالجدول 🙂 . والنتيجة . جعفر 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 ، وانقر عليه مرتين علشان يشتغل. ثم اتبع التعليمات اللي على الرابط 🙂 جعفر

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