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

هذه محاولة لرد بعض أفضلكم علينا أستاذ حسين من فضلك حدد لى الجزء الذى يظهر باالون اﻷحمر فى الكود

الصفر الموضوع بنهاية الكود وضعته للحفاظ على التنسيق فحسب أرجو حذف الصفر فى نهاية الكود هذا تعديل بسيط على الكود أرجو أن يصلح معك M = dmax("[رقم الفاتورة]","المستلم") 1 - ضع اسم العمود بين قوسين مربعين لحتواءه على مسافة اسف على عدم التعدبل على الملف المرفق فانا غير فادر على رفع ملفات من خلال الموبايل

السلام عليكم استاذ حسين أرجو أن يفيدك هذا الكود لنفرض أن عمود الترقيم فى الجدول اسمه id والجدول اسمه tblsalce والآن نضع هذا الكود فى حدث عند النقر لزر الأمر الخاص بك M = dmax("id","tblsalce")0 M = m+1 هذا كل شىء جرب ووافنى بالنتيجة تمنياتى بالتوفيق

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

أسف لم أكن متابع للمندتى لانشغالى قليلا يبدو أن المشكلة على ما أعتقد أن الفورم الرئيسى به كود FsetAccessWindow (SW_HIDE)0 وهو مرتبط بالوحدة النمطية بامكانك أخى أن تكتفى بالكود تكبير النافذة وتستغنى تماما عن الكود السابق والوحدة النمطية المرتبط بها فالكود السابق بحاجة لاضافة مكتبة للمشروع تنتقل معه مع تغير الجهاز

الأمر بسيط إن شاء الله لنفترض أم النموذج الثانى اسمه form2 ومربع اسم المستأجر اسمه mostajrName والنموذج الأول اسمه form1 زمربع اسم المستأجر اسمه mostajrName أو أى اسم اﻵن فى حدث دبل اكلك ل mostajrName فى الفورم 1 نكتب هذا الكود Docmd.openform "form2",acnormal,,"mostajrName =' " & me.mostajrName & " ' "0 فقط... ملاحظة الصفر وضععته ﻷحافظ على التنسيق وليس جزءا من الكود ما عليك سو كتابة الأمر اﻷول وسوف يساعدك محرر اﻷكود على الباقى جرب ووافنى بالنتيجة لعله يكون مطلوبك تمنياتى بالتوفيق

آسف نسيت أمرا أضبط خاصيتى (منبثق - وشكلى ومشروط) الى نعم اسم الخاصيتان بالانكليزية (pop-up , modul) اضبتها لكل النماذج الفرعية وكذلك التقارير جرب ووافنى بالنتيجة

جزاك الله مجهود طيب

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

اضافة الى ماتفضل به أستاذ حسين بالامكان أن نضع هذا الكود فى حدث عند الفتح Docmd.maximize انتهى...

وفيكم الله بارك مع العلم أنى بعد التجربة وجدت الن هذا المعالج يحول المشروع الى صيغة .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- تقبل تحياتى جرب هذا لعله يفلح معك

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