يوسف أحمد

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

اخي salman20032 ارجو ان يفي التعديل بما تبحث عنه وبالتوفيق ____________30_3_2007.rar

بعد اذن اخي Enjoy مع الشكر والتقدير لكل مايقدمه لمساعدة الجميع اخي اسى الحرمان استبدل الكود بحدث عند النقر للزر بالكود ادناه DoCmd.OpenForm "form" ارجو ان يكون هو المطلوب وبالتوفيق

مرحباً اخي حازم يمكنك استخدام استعلام تحديث لمرة واحدة ليقوم بالعملية ومن ثم تقوم بحذفه فاحياناً تحتاج الى تحديث اكثر من قيمة بناءً على قيمة اخرى وفي هذه الحالة لا تحتاج الى بقاء الكود بالبرنامج لانه سيكون لغرض مؤقت . فمثلاً في الحالة المطلوبة انت تحتاج الى تحديث الحقل rank الى القيمة 1 في حالة كان حقل الاسم يساوي hazem ... بامكانك تشغيل الاستعلام مرة واحدة وهو يقوم بتلك العملية. عموماً لقد قمت بعمل مثال لك يقوم بعمل ذلك بالكود بزر الامر على النموذج وفي نفس الوقت تركت لك الاستعلام لترى كيف تم عمله . ارجو ان يكون هو ما تبحث عنه وبالتوفيق test.rar

بارك الله فيك اختي نرجس الورد ولا شكر على واجب للمعلومية فقد تم تغيير عنوان المشاركة ليدل على مضمونها

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

الاخت waffaa_qm بالنسبة لحفظ قيمة خانة الاختيار فانه يتم من خلال وضع حقل بالجدول من نوع yes/no ويتم تخزين القيمة به وسيظهر ذلك بالنماذج والتقارير. اقدم لك هذا الرابط وبه دروس بالصوت والصورة وبامكانك عرض فكرة البرنامج بالمنتدى ليتمكن الجميع من المساهمة هنا وبالتوفيق

وهذا مثال آخر dbfindlasttowletters.rar

اخي حازم مباشر اذا امكن ان ترفق مثال لما تريد ليتمكن الجميع من المساهمة . مع الشكر

بارك الله فيك اخي المشاكس اليك المرفق بعد التعديل وبالتوفيق dbfindlasttowletters.rar

السلام عليكم ورحمة الله وبركاته اخواني لقد قمت بالتصويت وكان الرقم هو : 909411

الاخت نرجس الورد وعليكم السلام ورحمة الله وبركاته استعلام الالحاق يقوم بالحاق سجل كامل وما يتم عمله في الحالة المطلوبة هو استعلام تحديث انظري المرفق فقد تم عمل استعلام qryupdate وبالتوفيق dbupdate.rar

اخي المشاكس اذا كنت تقصد استعلام يظهر لك آخر حرفين فاليك المرفق وبالتوفيق dbfindlasttowletters.rar

بارك الله فيك اخي noursh بالنسبة لمعرفة اخر رقم فقد تم اضافة حقل بالجدول وجعل قيمته تساوي قيمة مربع النص txtto وذلك بعد التحديث. ارجو ان يفي بالغرض بالنسبة لعرض او طباعة السجل الحالي فيمكنك وضع تعبير بالاستعلام الخاص بالتقرير يكون كما هو موضح ادناه [forms]![formname]![id] حيث formname هو اسم النموذج وحيث id هو اسم مربع النص الذي يحتوي على الشخص المطلوب اظهار بياناته بالتحديد او رقمه ويوضع في خانة المعايير لنفس الحقل. وبالتوفيق dblablemaker.rar

اخي helow مرحباً بك لقد ذكرت لك بانه بامكانك المتابعة بنفس المشاركة السابقة دون فتح مشاركة جديدة هذا يساعد عند عملية البحث. ولكن لا بأس يتم وضع الكود ادناه بحدث بعد التحديث لمربع التحرير والسرد الخاص برقم الغرفة بالنموذج والمسمى رقم الغرفة . If Me.حالة_الغرفة.Value = "فارغة" Then [حالة الغرفة].Value = "محجوزة" Me.حالة_الغرفة.Requery End If السطر الاول : اذا كانت قيمة مربع التحرير والسرد والمسمى حالة _ الغرفة تساوي فارغة ولابد ان توضع كلمة فارغة بين علامتي تنصيص لانها قيمة نصية. then اذاً السطر الثاني : قيمة حقل [حالة الغرفة] تساوي محجوزة . وايضا توضع الكلمة بين علامتي تنصيص تم وضع اسم الحقل بين اقواس مربعة لوجود فراغ بين الكلمتين المتكون منها الاسم . السطر الثالث يقوم بتحديث مربع التحرير والسرد المسمى حالة_الغرفة السطر الرابع يقوم بانهاء جملة if ارجو ان يكون ذلك واضحاً وللمعلومية فقد تم تغيير عنوان المشاركة ليدل على مضمونها وبالتوفيق

بارك الله فيك اخي ساهر اخواني الاعزاء وددت المساهمة في الحل ببرنامج يقوم بعمل الملصقات وذلك بتحديد بداية الترقيم ونهايته يتم على اثره انشاء ترقيم بالحقل بشكل آلي بناءً على القيمة المدخلة لبداية ونهاية الترقيم الكود للاستاذ الفاضل ابو هاجر وقد قمت باستخدامه وعمل بعض الاضافات على البرنامج ليلبي المطلوب ان شاء الله بالنسبة لحذف الارقام من الحقل يتم بواسطة استعلام حذف ( جملة sql ) باجراء يتم استدعاؤه بحدث زر الامر المخصص لذلك وايضاً بحدث عند الاغلاق للنموذج ارجو ان يستفاد منه وشكراً لكما dblablemaker.rar

شكراً لك اخي alriashi على التوجيه الاخت fayzah_17 سؤالك كما ذكر اخي alriashi مشكوراً يتعلق بمنتدى الإكسيل لذا سيتم نقله الى القسم المذكور مع ترك رابط له بقسم الاكسس العام الى حين متابعتك ومن ثم سيتم حذفه. وللمعلومية فقد تم تغيير عنوان المشاركة ليدل على مضمونها. وبالتوفيق

بارك الله فيك اخي taghi ولا شكر على واجب وللمعلومية فقد تم تغيير عنوان المشاركة ليدل على مضمونها اخوك / Yousef

بارك الله فيك اخي a1d اخي momo_fayed هناك موضوع مكرر لك بنفس العنوان ونفس المحتوى يبدو انه ادرج بالخطأ لذا فقد تم حذفه. ذلك للمعلومية.

مرحباً بك استاذنا المبدع رضا عقيل اتقدم لك بجزيل الشكر والتقدير على هذا المجهود الكبير وعلى هذه الهدية القيمة بارك الله فيك ونفع بعلمك وجزاك الله خيراً على كل ما تقدمه في سبيل ابتغاء الاجر و نشر العلم تم تثبيت الموضوع تقبل فائق الاحترام والتقدير،،، تلميذكم / Yousef

ام تقصد كالمرفق ادناه dbtaghi.rar

اخي taghi تم عمل ذلك عن طريق استعلام جدولي او ما يسمى crosstab query اليك المرفق ارجو ان يكون هو ما تبحث عنه وبالتوفيق dbtaghi.rar

اخي / منذر عساج شكراً لك على هذا الرابط القيّم والشكر موصول ايضاً للاخ التقني على هذا المجهود الرائع. فجزاكما الله خيراً

اخي helow اليك المرفق انظر الكود بحدث عند الضغط لزر الامر على النموذج حيث تم عمل رسالة بخيارين yes و no فاذا تم اختيار yes سيتم الخروج من البرنامج بالكود docmd.quit واذا تم اختيار no ستغلق الرسالة ويبقى البرنامج في حالة تشغيل كما هو عليه. وبالتوفيق dbcontrolexit.rar

ارجو ان يفي التعديل بالمطلوب تم احتساب ذلك بالدقائق وليس بالساعات للدقة Time111.rar