فهد الدوسري

أهلاً بك أخي : قرقيز الحربي تم توضيح الطريقة في حوار 3 يمكنك الرجوع إليه . تحياتي ..

حوار 10 = محمد : تعلمت في حوار رقم 3 كيف أعمل تحديث للوقت فما هي صيغة الوقت بـ (12) ساعة وصيغته بـ (24) ساعة ؟ = فهد الدوسري : بالنسبة لصيغة الوقت بـ12 ساعة كالتالي :- Me.TxtTime = Time() أما صيغته بـ 24 ساعة فهو كالتالي :- Me.TxtTime = Time$()

أتمنى أن أجد تفاعل مع الموضوع من قبل الأعضاء ولو بالدعاء الصالح فهو خير معين لمواصلة الموضوع .. أما إذا لم يكن ذو أهمية لدى الأعضاء فأرجو إخباري بذلك لأتوقف عن إكماله ولا أضيع وقتي ووقتكم بما لا فائدة فيه . ================================= حوار 9 = محمد : لدي تقرير اسمه مثلاً ReNeme وأريد من خلال النموذج أن أقوم بمعاينة هذا التقرير أو طباعته ولكني أريد أن يعرض لي هذا التقرير أو يطبع لي السجل المعروض حالياً على النموذج وليس جميع البيانات .. فكيف الطريقة ؟ = فهد الدوسري : لنفترض أن لديك من ضمن حقول هذا التقرير والنموذج حقل نوعه رقمي واسمه ID وحقل آخر نوعه نصي واسمه Name1 لكي نقوم بالربط بين النموذج والتقرير عن طريق أحد هذين الحقلين سواء الحقل الرقمي أو الحقل النصي فنعمل ما يلي :- - ضع في حدث عند النقر للزر الذي في النموذج والذي من خلاله يتم فتح تقرير ReNeme الكود التالي .. - لمعاينة التقرير .. إذا أردت عمل ذلك على حقل نوعه رقمي واسم الحقل ID فضع الكود التالي .. Dim stLinkCriteria As String stLinkCriteria = "[ID] =" & Me![ID] DoCmd.OpenReport "ReNeme", acViewPreview, , stLinkCriteria وإذا أردت عمل ذلك على حقل نوعه نصي واسم الحقل Name1 فضع الكود التالي .. Dim stLinkCriteria As String stLinkCriteria = "[Name1]=" & "'" & Me![Name1] & "'" DoCmd.OpenReport "ReNeme", acViewPreview, , stLinkCriteria - أما لطباعه التقرير .. إذا أردت عمل ذلك على حقل نوعه رقمي واسم الحقل ID فضع الكود التالي .. Dim stLinkCriteria As String stLinkCriteria = "[ID] =" & Me![ID] DoCmd.OpenReport "ReNeme", acViewNormal, , stLinkCriteria وإذا أردت عمل ذلك على حقل نوعه نصي واسم الحقل Name1 فضع الكود التالي .. Dim stLinkCriteria As String stLinkCriteria = "[Name1]=" & "'" & Me![Name1] & "'" DoCmd.OpenReport "ReNeme", acViewNormal, , stLinkCriteria أرجو أن يكون ذلك واضحاً لك .

حوار 8 = محمد : لدي حقلين الأول N11 والثاني N12 أريد عندما أكتب في الحقل الأول رقم 1 يكون في الحقل الثاني ( ذكر ) وإذا كتبت رقم 2 يكون في الحقل الثاني ( أنثى ) فما الطريقة ؟ = فهد الدوسري : أكتب في مصدر عنصر التحكم الخاص بالحقل N12 الكود التالي .. =Switch([N11]=1;"ذكر";[N11]=2;"أنثى") أو بإمكانك استخدام هذا الكود أيضاً .. =Choose([N11];"ذكر";"أنثى") وهناك طرق أخرى لعمل ذلك .

حوار 7 = محمد : تعلمت في الحوار رقم 6 كيف نعطل بعض رسائل الخطأ في الأكسس ولكن هناك رسائل أخرى تخرج مثلاً عندما أعمل زر في النموذج ليقوم بتشغيل استعلام تحديث أو حذف فإنه يخرج لي رسائل تحذيرية من الأكسس .. هل أستطيع أن ألغي هذه الرسائل أيضاً ؟ = فهد الدوسري : نعم يمكنك إلغاء هذه الرسائل عن طريق الأكسس كما يلي : - - من شريط الأدوات الخاص بالأكسس نضغط ( أدوات ) . - ثم خيارات . - ثم (تحرير/ بحث). - ثم نزيل علامة الصح من أمام ( الاستعلامات الإجرائية). ثم موافق. هذه الطريقة خاصة بالأوفيس أكس بي . طبعاً هذه الطريقة تمنع رسائل الاستعلامات في جهازك فقط يعني إذا نقلت برنامجك إلى جهاز آخر فسوف تعمل رسائل الاستعلامات الإجرائية لذلك استعمل تعطيل الرسائل عن طريق الكود كما يلي : - لنفترض أنك تريد تشغيل استعلام تحديث أو استعلام حذف وليكن اسمه مثلا Q1 أكتب هذا الكود في حدث عند النقر للزر الخاص بتشغيل هذا الاستعلام .. DoCmd.SetWarnings False DoCmd.OpenQuery "Q1", acNormal, acEdit DoCmd.SetWarnings True فبوضع هذا الكود قبل فتح استعلام التحديث أو الحذف يتم إلغاء الرسائل والكود هو .. DoCmd.SetWarnings False أما هذا الكود فهو يعيد عمل الرسائل . DoCmd.SetWarnings True

حوار 6 = محمد : أحياناً أضع حدث في التقرير (عند عدم وجود بيانات) لكي لا يتم فتح التقرير أو طباعته وهو فارغاً والحدث الذي أستخدمه هو .. MsgBox "لا توجد بيانات في التقرير", , "تنبيه" DoCmd.CancelEvent ولكن عند خروج هذه الرسالة تخرج رسالة أخرى بعدها مفادها أنه تم إلغاء الأمر فهل أستطيع التخلص من هذه الرسالة ؟ = فهد الدوسري : نعم بإمكانك التخلص منها .. في حدث عند النقر للزر الذي يقوم بفتح هذا التقرير قم بوضع هذا الكود قبل أمر فتح التقرير وبذلك تتخلص من هذه الرسالة والكود هو .. On Error Resume Next وهذا الكود نستخدمه إذا أردنا التخلص من رسائل الخطأ الموجودة في الأكسس .

حوار 5 = محمد : كيف أستطيع أن أخفي أحد مربعات النص في النموذج ؟ = فهد الدوسري : لنفترض أن اسم مربع النص لديك هو text2 وتريد إخفائه عند ضغط الزر مثلاً . - إذهب إلى حدث عند النقر لهذا الزر ثم أفتح محرر الفيجول بيسك - وقد شرحت لك في الحوار 3 كيف تفتح محرر الفيجول بيسك - ثم ضع فيه الحدث التالي .. Me.text2.Visible = False ولكي نقوم بإظهار الحقل استخدم الكود التالي .. Me.text2.Visible = True

حوار 4 = محمد : أريد أن أضع التاريخ في النموذج بصورة صحيحة بمعنى يكون اليوم ثم الشهر ثم السنة وليس العكس ؟ = فهد الدوسري : يمكن ذلك من خلال الآتي : - - ضع مربع نص غير منظم في النموذج وسمه مثلاً dat11 - إذهب إلى خصائص النموذج ومن ثم حدث ثم عند الفتح وضع فيه الكود التالي .. dat11 = Format(Date, "yyyy/mm/dd")

حوار 3 = محمد : كيف أستطيع أن أجعل الساعة في شاشة النموذج يتم تحديثها أولاً بأول ؟ = فهد الدوسري : إذا أردت ذلك فعمل ما يلي : - ضع مربع نص غير منظم في النموذج وسمه مثلاً tim11 - ضع في مصدر عنصر التحكم لهذا الحقل الكود التالي .. =Time() - إذهب إلى خصائص النموذج ومن ثم حدث ومن ثم الفاصل الزمني لعداد الوقت وضع فيه الرقم 1000 وهذا يعني ثانية واحده . - إذهب عند عداد الوقت ثم أختر إجراء حدث ثم أضغط على الزر ذو الثلاث نقط ... ليفتح لك محرر الفيجول بيسك وضع فيه الكود التالي .. Me.tim11.Requery وبذلك يتم تحديث الوقت أولاً بأول .

حوار 2 = محمد : عرفت من خلال الكود الذي ذكرته في الحوار 1 عدد السجلات لدي ولنفرض أنها كانت (20) سجلاً .. هل أستطيع معرفة رقم السجل الحالي من بين هذه السجلات ؟ . توضيح للسؤال : عدد السجلات (20) ورقم السجل الحال مثلاً (15) أو ( 11 ) وهكذا . = فهد الدوسري : لكي تعرف ذلك أعمل ما يلي :- - ضع مربع نص غير منظم في النموذج . - ضع في مصدر عنصر التحكم لهذا الحقل الكود التالي .. =[CurrentRecord]

حوار 1 = محمد : كيف أعرف عدد السجلات من خلال شاشة النموذج ؟ = فهد الدوسري : لكي تعرف عدد السجلات قم بما يلي :- - ضع مربع نص غير منظم في النموذج . - ضع في مصدر عنصر التحكم لهذا الحقل الكود التالي .. =Count([ID]) بعتبار أن اسم حقل رقم الموظف مثلا لديك هو ID أما إذا أردت معرفة عدد السجلات بدون الاعتماد على أي حقل فضع نجمة بدلاً من اسم الحقل =Count(*)

السلام عليكم ورحمة الله وبركاته .. جلست مع أحد المبتدئين في الأكسس فبدأ يسأل وأنا أجيب حسب خبرتي المتواضعة التي اكتسبتها من المنتدى وكذلك حسب ما هو موجود لدي من مخزون كبير من البرامج التي أعدها أعضاء المنتدى .. وقد خطر في بالي أن أقوم بتدوين هذا الحوار .. وهناك أيضاً أشياء لم تحصل في الحوار أحببت أن أدرجها كحوار لينتفع بها من يريدها من الأعضاء . طرفا الحوار هما :- 1- محمد : وهو المبتدئ في الأكسس . 2- فهد الدوسري . واعذروني إذا حصل خطأ لغوي فليس هذا مجال اللغة بقدر ما هو مجال المعلومة التي أريد إيصالها لكم ملحوظة مهمة جداً جداً : ((بالنسبة للأكواد إذا خرجت بطريقة غير صحيحة هنا فقم بنسخها ولصقها في المكان المحدد لها في الأكسس لتراها بالطريقة السليمة والصحيحة وذلك حسب الشرح المصاحب لكل كود)) . ( سوف أضع كل حوار في رد منفصل حتى لا تتشعب الأفكار وتضيع وأرحب بأي إضافة أو تعديل من أي عضو من الأعضاء ) بسم الله نبدأ .. وعليه نتوكل .. وبه نستعين .

ياليت توضح أكثر حتى نفهم ما تريد .. ماهو الشرط الذي تريده ؟

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

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

عزيزي الاستاذ أبو هادي . عندما أقوم بضغط وإصلاح القاعدة تحصل مشاكل للتواريخ الميلادية وبالتالي يتم رفض تسجيل التواريخ الهجرية . أنظر إلى شكل التواريخ الميلادية قبل الضغط وبعده .. قبل الضغط .. تاريخ البداية بالميلادي 06/08/2004 تاريخ النهاية بالميلادي 20/08/2004 بعد الضغط .. تاريخ البداية بالميلادي 29/06/2566 تاريخ النهاية بالميلادي 13/07/2566 فما هو السبب ياترى .؟ علماً بأني استخدمت الكود التالي في نفس النموذج لغرض عرض التاريخ الهجري هل له تأثير ؟ Calendar = vbCalHijri Me!txtHD = Format(Date, "yyyy/mm/dd") تحياتي ..

تسلم يمينك أستاذي أبو هادي . فعلاً هذا ما كنت أبحث عنه .. ألف ألف شكر ومعليش تعبتك معي . تحياتي ..

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

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

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

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

شكرا أستاذي أبو هادي الآن بعد استبدال السطر أصبح يعمل على ما يرام تحياتي

شكرا لمرورك أستاذي أبو هادي . هل أطمع في كرمك بأن تقوم بتطبـيقها على البرنامج المرفق إذا كان وقتك يسمح بذلك ؟ تحياتي ..

يبدو أن السؤال الثاني يوجد فيه مشكلة ولا زلت أنتظر فزعتكم .

قام أخي مهند بحل جميع الأسئلة جزاه الله ألف خير وبارك فيه . ولمن يريد الاطلاع .. فالحل على هذا الرابط ... http://www.arabteam2000-forum.com/index.ph...=0entry201952 تحياتي .. توضيح-مهند.rar