jjafferr

آه نسيت هذه الجزئية ، شكرا اخب خلف 🙂 هنا نقاش عن هذا الموضوع كذلك: . وهنا جعفر

1. انت محتاج الى هذا الكود فقط Private Sub الاسم_BeforeUpdate(Cancel As Integer) If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub . 2. افتح موضوع جديد لكل سؤال 🙂 جعفر

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

اعطنا مثال لوسمحت 🙂 جعفر

وعليكم السلام اخي 🙂 من شروط المنتدى ، وضع سؤال واحد لكل موضوع ، حتى يتمكن الباحث من الحصول على المطلوب بسهوله 🙂 رجاء عمل موضوع مستقل لكل سؤال 🙂 ولكن وقبل ان اقفل الموضوع هذا ، اليك الجواب على السؤال الاول 🙂 تفضل الطريقة: جعفر .

وعليكم السلام 🙂 fc.controltype جعفر

هذا الموضوع مخالف لقوانين المنتدي ×××××××× يغلق ×××××××× الإدارة

نعم اخي عدنان ، رجاء مراعاة هذه الشروط 🙂 وشكرا لك اخي kanory 🙂 تم تعديل العنوان. جعفر

السلام عليكم 🙂 اخي ريباز ، صار لي فترة انظر في موضوعك بدون ان اوصل الى شيء 😞 لو تسمح ، تُدخل بيانات كاملة لفئة معينة من المدرسين ، في القاعات المسموحة ، والقاعات الغير مسوح لهم ، ثم من هذه البيانات ، اعمل النتائج على صفحة اكسل ، ارفقها ، حتى نحاول تقليدها برمجيا 🙂 جعفر

ولكن كيف يمكن ان نستفيد منها لتصدير التقرير؟

انا في الخدمة قدر المستطاع 🙂 كانت لي تجارب مع 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) جعفر