أبو عبدالله الحلوانى

وفيكم الله بارك مع العلم أنى بعد التجربة وجدت الن هذا المعالج يحول المشروع الى صيغة .accdr وليس الى .exe وان كنت لا أعلم اافارق الجوهرى بين الصيغتين إلا أنى لم ألاحظ كبير فارق بينهما شكرا لحسن متباعتكم

السلام عليكم ورحمة الله وبركاته استفسارى عن كود الفورمات استخدمته فى البرنامج الذى أعمل عليه اﻷن وقدعمل بشكل جيد على جهازى الخاص وعند تجربة البرنامج على الجهاز الخاص بالعمل لم يعمل الكود وأعطى رسالة خطأ أرجو توضيح السبب وجزاكم الله عنا خيرا الكود هو: Commend1.caption= "جرد دفعة" & " " & format$(datM,"mmmm yyyy")0 أسف لم أستطع ضبط التنسيق أفضل من هذا أرجو أن يكون استفسارى واضح

السلام عليكم ممكن توضيح ما هو "ekhtbar" اذ كانت قيمة نصية فبالامكان أن نكتب الكود هكذا If txet61 =1 then Text17 = "ekhtbar1"o End if

جزاك الله خيرا أستاذ يوسف جعله الله فى ميزان حسناتك أشكر لكم تواضعكم إذ وضعت نفسك معى فى صف واحد مع المبتدئين

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

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

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

ممكن معرفة موضع مؤشر الموس على الفورم من خلال كود شكرى موصول للجميع

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

قمت بوضع مودل لتصغير واجهة اﻷكسس وظهور نماذج الخاصة بى بشكل منفصل وضبطت خصائص النماذج والتقارير - منبثق (pop-up) الى نعم وعملت النماذج بشكل سليم ولكن عند فتح التقارير تفتح داخل القاعدة المصغرة فهل من حل لتلك المشكلة؟!! وجزاكم الله خيرا

وعليكم السلام ورحمة الله وبركاته سأحاول أن أشرح هذا على قدر معرفتى الضئبلة فتجاوز فى سيرك معى عن عرجتى وتصدق علينا بدعوة فى ظهر الغيب 1- للترقيم التلقائى فى نموذج أو تقرير بعد وضع مربع النص على النموذج أو التقرير ضع فيه =1 2- فى خصائص مربع النص - تشعب بيانات- خاصية مجموع تراكمى غير قيمتها إلى: أ- مجموعة اضافية: اذ أردت أن يكون الترقيم مستقل بكل صفحة ب- شامل: أذا أردت أن يستمر الترقيم الى نهاية الصفحات ثانيا- لجعل ترقيم ينتهى عند حد 100 نضع مربع نص آخر بجوار الأول ونكتب بداخله هذا التعبير: Iif(right(txt1;2)=0;100;right(txt1;2))0 انتهى اﻷمر أسف على الاطالة الصفر فى نهاية الكود وضعته للحفاظ على التنسيق وليس منه جرب هذا لعله يفيدك

ان لم يأت الابداع من سيادتكم فممن؟!! جزاكم الله خيرا أستاذنا آبا آدم

السلام عليكم ورحمة الله وبركاته أخى إذا كنت ترغب بعمل ترقيم تلقائى داخل تقرير فانظر الى هذه الصورة لعلها تفيدك فى هذا الامر أعذرنى هذا ما استطعت فهمه من كلام حضرتك جرب هذا لعله يفيدك مع العلم أن نسخت اﻷوفس لدى هى 2010 سعدت بالتواصل مع حضرتك

استاذ حسين السلام عليكم ورحمة الله وبركاته لدى فكرة لعلها تصلح معك 1- ننشأ استعلام حذف 2- فى الفورم الرئيسى نضع هذا الكود فى حدث عند الفتح M= date+180 If date = m then Docmd.runqeury "delete"o M = "" Else End if 3- m هى مربع نص على الفورم 4- delete هو اسم استعلام الحذف الذى أنشأناه أولا 5- o لا شىء وضعتها للحفاظ على التنسيق 5- تقبل تحياتى جرب هذا لعله يفلح معك

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

جزاك الله خيرا أستاذنا أزهر على سرعة الاستجابة المشكلة أنى لا أعرف كيف أرفق ملف من خلال الموبايل فانه لا يتيح لى فى التحميل سوى الصور فان كان اﻷمر لا يزعج حضرتك ممكن أرسل صور لتوضيح المشكلة

قمت بعمل استعلام به معايير لفلترة البيانات لعدة حقول مختلفة المعيار بالاستعلام هو كما يلى Like & "*" & [forms]![find]![cmb1] & "*" o كود عند فتح النموذج الفرعى هو Docmd.setfilter ("qrfind")0 المشكلة أن أنواع الببانات منها النص وهو المطلوب من استخدام like أم الارقام فأريد وضع المعيار = وليس like ولكن عند وضع معيارين مختلفين بالاستعلام لا يعمل فهل من طريقة لحمع المعايير المختلفة فى استعلام واحد وجزاكم الله خيرا

هذه باقى الصور التوضيحية وارجو أن ينتفع بهذا الموضوع كل من شاهده ويجزى صاحبه خيرا - أنا مقتبس للموضوع كما هو ببعض التصرف اليسير فى أسلوب العرض

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

جزاك الله خيرا أستاذنا أبا خليل زادك الله من فضله ورفع قدرك تم المراد

استخدمت هذا الكود فى الاستعلام عن قيمة بالجدول وكنت أرجو أن تصبح قيمة المتغير عند خلو الجدول من القيم null ولكنى فوجئت برسالة خطأ (invaild use of null) أرجو المساعدة لمعرفت موطن الخلل وجزاكم الله خيرا ونفع بكم الكود هو: Dim m M = Dlookup("cod","cod_info")0 If isnull(m) then End if الكود خالى من التفاصيل ولكن المهم لماذا لم تصبح قيمة المتغير m = null عند خلو الجدول من البيانات؟ وهل هناك وسيلة أخرى تؤدى الغرض الذى أخفقت فيه Dlookup؟

جزاك الله خيرا أستاذ أزهر فكرة رائعة ولكن ما أظن أنها تصلح اذا استخدمنا الفورم فى الوضع نورمل وليس مكسميز وكرر شكرى مرة أخرى

جزاك الله خيرا ونفع الله بك

الامر فى حاجة لزيادة ايضاح

الامر فى حاجة لزيادة ايضاح