Hamdi Edlbi-khalf

نعم ... مفتاح لعرض التقرير و من خلال شريط الأدوات في أعلى التقرير أو باستخدام الاختصار تستطيع الطباعة وقتها و للأستاذ @صالح حمادي موضوع رائع عن عمل شريط طباعة للتقارير .

مرحباً هل تقصد أن البرنامج لا يستجيب للشروط التي في حقل التاريخ و يستجيب فقط للشرط الذي في مربع السرد و الحوار مع إهمال شرط التاريخ؟ إن كان ذلك فأتوقع أنك قد وضعت في معايير الحقول في الاستعلام الشروط بطريقة OR أي في أسطر متعاقبة و لم تضعها ضمن سطر واحد أي بطريقة AND

السلام عليكم لقد ظهر هذا الخطأ أثناء فتح مثال التطبيق المرفق و لم يقتصر عليه بل أصبح يظهر في سائر برامج الأكسس

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

السلام عليكم و آسف على التأخر أخي الغالي ... لقد عدلت على الاستعلام الأول في نموذجك انظر فيه إن كان مناسباً .. test 5001.mdb

أخي الغالي يا لخجلي منك ، بعد أن نزلت مرفقاتك تذكرت أن جهازي بحاجة إلى تنصيب الأوفيس من جديد اليوم إن شاء الله سأرفع لك التعديل .. أو أن أحد الأكارم يقوم بالتعديل أو بتقديم طريقة أخرى أو أفضل من هذه ...

السلام عليكم سيعتمد الجواب على طريقة تصميم البرنامج و لكن على فرض أن لديك جدولين أحدهما بأسماء العملاء مرتبط بعلاقة بجدول آخر للطلبات : صمم التقرير بحيث يكون من جزأين تقرير رئيسي يتضمن اسم العميل تقرير فرعي يتضمن الطلبات و يفضل جعل زر الطباعة للسجل الحالي لا أن يطبع التقرير لكامل الجدول دفعة واحدة و هنا ستكون الطريقة الأسهل بربط زر الطباعة بحقل في النموذج بالطريقة التالية : اجعل مصدر التقرير استعلاماً . و في معيار حقل اسم الزبون هذه المعادلة =forms![name-FORM]![name-FIELD] استبدل بالأسماء الموجودة بين الأقواس المنكسرة باسم نموذجك و اسم حقل المعيار كما هو في النموذج .

إن أي شيء يزاد في قاعدة البيانات سيزيد من حجمها و يقلل من سرعة أدائها . أوامر استعلامات جداول حقول ... و حتى البيانات نفسها .

و عليكم السلام و رحمة الله و بركات IIF (ISNULL([LASTNAME])' إذا كان الحقل فارغاً فطبق مايلي ; IIF ( isnull([FIRSTNAME])...' إذا كان هذا الحقل فارغاً فقيمة الحقل ستكون ; [company] ' و إلا فقيمة الحقل ; [firstname]) ' و في حال لم يكن حقل lastname فارغاً فطبق الجملة الثانية و بنفس الطريقة آمل أن تجد هذا مفيداً

السلام عليكم بما أني لا أتصل من الحاسب في هذه اللحظة سأعطيك الخطوات و يمكن أن تطبقها : ١- ابنِ استعلاماً ٢- أنشئ حقلاً محسوباً اكتب فيه : IIF ( DAY([]) > 23 ;month([]) + 1 ; month([])) ضع بين القوسين المنكسرين اسم حقل التاريخ كما هو في الاستعلام أو اسمه في الجدول ٣- اجعل الاستعلام مصدراً للتقرير ٤ - اجعل في معيار الحقل المحسوب الذي أنشأته في الخطوات السابقة هذه المعادلة FORMS![your_form]![your_field] استبدل الأسماء بين الأقواس المنكسرة باسم النموذج و حقل المعيار على الترتيب . إن أصبت فمن الله و إن أخطأت فمن نفسي .

في معايير الاستعلام الذي يجب أن يكون مصدر التقرير . ضع في معايير حقل الشهر و في معايير حقل السنة و في معايير حقل القسم : =forms![name_form]![name_field ] استبدل المسميات بين الأقواس المنكسرة اسم نموذجك و من ثم اسم الحقل في نموذجك و الذي ترغب بأن يكون معيار الحقل في الاستعلام . ضع هذه المعادلة في معايير الحقول مع تبديل اسم الحقل حسب المطلوب .

مرحباً تماماً .. هذا الماكرو الثاني في الرابط و في الواقع لقد انتقيته من بين اقتراحات جوجل بناء على التعليقات و التي أبدت الرضا عنه . و لكن ليكون العمل مكتملاً فلا بد من استخدام الماكرو الأول المتعلق باصلاح المراجع المعطوبة . فالرابط و الكود المدرج عن دالتين إحداهما تزيل المراجع المعطوبة و الثانية تضيف المراجع .

هذا الرابط .. حول إضافة المراجع آلياً للبرنامج .. و أحسب أنه الأفضل بناء على ما جاء التعليقات ، لم أجربه و ربما قد أحتاج للمساعدة عند تطبيقه . https://www.tek-tips.com/viewthread.cfm?qid=903662 Maybe these examples will help you. Function FixUpRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Count the number of references in the database intCount = Access.References.Count 'Loop through each reference in the database 'and determine if the reference is broken. 'If it is broken, remove the Reference and add it back. Debug.Print "----------------- References found -----------------------" Debug.Print " reference count = "; intCount For intX = intCount To 1 Step -1 Set loRef = Access.References(intX) With loRef Debug.Print " reference = "; .FullPath blnBroke = .IsBroken If blnBroke = True Or Err <> 0 Then strPath = .FullPath Debug.Print " ***** Err = "; Err; " and Broke = "; blnBroke With Access.References .Remove loRef Debug.Print "path name = "; strPath .AddFromFile strPath End With End If End With Next '''Access.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" Set loRef = Nothing ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll" .AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb" .AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll" .AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb" .AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll" .AddFromFile "C:\WINNT\System32\stdole2.tlb" .AddFromFile "C:\WINNT\System32\scrrun.dll" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function و يبقى السؤال قائماً

رحمة الله عليه و على أرواح المسلمين كافة .

السلام عليكم .. في الواقع لست مبرمجاً فحسبي أني مستخدم للأوفيس فقط و تنفيذي بعض البرامج كان من باب التطوع في مكان عملي كون وظيفتي و من قبلها دراستي لا تمت بصلة لهذا المجال و أسئلتي هي من باب العلم بالشيء و إرواء للفضول و في كثير من الأحيان لحل بعض المشاكل التي تواجهني كمبتدئ. إن سؤالي هو لماذا لا تضاف المراجع تلقائياً في محرر فيجوال و لماذا وجدت أصلاً بهذه الصورة الموزعة ؟ لم على المستخدم إضافة هذه المكتبات و لم تكون مفقودة في بعض الأحيان ؟و ما الحل لذلك ؟ هل يمكن إضافة مكتبات مفتوحة المصدر مثل الچاڤا ؟ شكراً لكم كنت أتمنى أن أضع أجوبتي على هذه الأسئلة إلا أن البحث لم يسعفني ..

السلام عليكم لماذا نحتاج إلى إضافة المراجع يدوياً في محرر الفيجوال و لا تضاف تلقائياً ؟ و هل لملفات DLL علاقة بهذه المراجع ؟

شكراً لك أستاذ @ابو ياسين المشولي

اممم حسبت البرنامج يستطيع تحويل ملف الإكسل الى تنفيذي .. لطفك الجم و تواضعك البين دليل خلق رفيع بارك الله بك و جزاك خيراً اممم حسبت البرنامج يستطيع تحويل ملف الإكسل الى تنفيذي ..

شكراً لك @ابو ياسين المشولي سأجرب البرنامج و أعود بالنتائج .

أخي و أستاذي الحبيب @ابو ياسين المشولي هل قمت بعملية استثناء للمجلد الذي وضعت به الملف التنفيذي ؟ و هل يمكن لهذا البرنامج تحويل البرامج المنفذة على إكسل إلى ملفات تنفيذية ؟

السلام عليكم أستاذي الغالي @ابوخليل يبدو المقصود من الجملة التي اقتبستُها سابقاً و كأن الأستاذ @محمد طاهر يتحدث عن برنامج يعمل مثل الكاشف يستقبل الاتصال بالحاسب و يعرض بيانات المتصلين المسجلة سابقاً أو لعله يخزن الاتصال و بياناته مثل الرمز المحلي ( و منه مكان الاتصال ) عدد المكالمات و مدتها . كما تفعل بعض البرامج ...

لكن بقيت مسألة كيف أدمج هذه الطريقة مع إمكانية التعديل و استخدام الملف ..

مرحباً إذاً يكفي عمل مستخدم جديد .. للتخلص من المشكلة .. في السابق إذا اعترضتني مشكلة تتعلق بالمستخدم انقل كافة الملفات و الاختصارات من سطح المكتب إلى ملف ضمن الأقراص و أنشئ مستخدماً جديداً ثم أحذف القديم أو أعيد تسميته و أجعل المستخدم الجديد باسم القديم و انقل ملفات سطح المكتب إليه . أشكرك أخي العزيز @ابا جودى

للرفع

لا أدري إن كان الطلب ممكناً ، لكن حبذا لو أمكن الوصول إلى الموضوع المذكور . فقد كثر الحديث بالآونة الأخيرة عن هذا النوع من البرامج هذا إن كان الكلام قد عبر بدقة عن مضمون الموضوع . شكراً سلفاً .