سلطوون

بـــصـــــراحـــــــــــــــــــــــــــــة انا أشكرك يا Daniello على هذي الكتب القيمة وأشكرك يا بو حمود على على هذ الموقع الرائع الخاص فيك بصراحة استفدت منه كثيييييييييير

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

وهذ هو الكود الذي يقوم بإعطائي التاريخ الميلادي والهجري الخاص باليوم بدون تغييرفيه طبعا هذ الكود من الاخ ابن مسقط Private Sub Form_Load() Calendar = vbCalGreg Me!txtGD = Format(Date, "yyyy-mm-dd") Calendar = vbCalHijri Me!txtHD = Format(Date, "yyyy-mm-dd") Calendar = vbCalGreg End Sub

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

جزاكم الله خير اخواني على هذي الخدمة وأحسن الله إليكم

جزاك الله الف خير على هذ الشرح اخي امير عاطف وشرحك حلو ويا حبذا تعزز شرحك بمثال بالمثال يتضح المقال وآسف على الازعاج وبارك الله فيك

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

السلام عليكم ورحمة الله وبركاته أشكركم على مبذولكم الذي بذلتموه معي وأسأل الله لكم المثوبه

السلام عليكم أخوتي الكرام وأشكركم على بذلكم المجهود لكن للأسف لم تحل المشكلة إلي الآن واسال الله أن أجد الحل بأسرع وقت فقد قمت بنسخ الكود التالي وأضفت زر أمر بنفس الاسم اللذي بالكود ولكن لا جدوى من ذلك يعطيني خطأ في GetOpenFile_CLT = مسار_الصورة ربما تكون أنت مستخدم نظام 98 وأنا مستخدم 2000بوفيشونال وإن وجدت الحل أخي الكريم ابن مسقط أرجو منك أن ترسله وجزاك الله خيرا

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

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

كيف يمكنني رؤية رقم مسلسل لتقرير نفترض أن يكون تقرير عن طلبة دورة أريد أن يظهر لي الرقم المسلسل 1،2،3،4،5،6 ..... أرجو منكم الرد وجزاكم الله خيراً

أسأل الله العظيم رب العرش العظيم أن بشفيك وعافاك لله وشافاك وجزاك الله ألف خير وماقصرت

If IsNull (Me.__________ ) = True Then Me.__________.Visible = no Me.__________.Visible = no End If في الفراغين اللذين في السطر الأول والثاني يكتب اسم الحقل المراد إخفاؤه إذا كانت القيمة فارغة في الفراغ الذي في السطر الثالث يكتب اسم التسمية الخاص بالحقل الأول ويكتب الكود في خانة الــActivate

شكرا اخي بوحمدان2000 وماقصرت