صالح حمادي

شكرا لك أخي محمد نجار على الرد. هذا الكود هو لإستخراج قيمة الحقل [Fld] من الجدول Tbl عندما تكون قيمة الحقل id=1 هذا الكود ينفع في حالات و حالات أخرى لا ينفع. يعني أنه ليس بالضرورة id=1 هو السجل الأول.

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

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

تفضل أخي هذا مثال بإمكانك أن تجربه و سوف تلاحظ النتيجة. لا وجود لتلك الرسائل أبدا. اخفاء الرسائل.rar

يمكنك وضع الكود التالي في زر تشغيل الاستعلام: DoCmd.SetWarnings False DoCmd.OpenQuery "namequery" DoCmd.SetWarnings True بحيث namequery هو اسم الاستعلام السطر الأول سيقوم بإيقاف رسائل التحذير لجميع انواع الإستعلامات السطر الثالث سيقوم بإعادة تشغيل رسائل التحذير لجميع انواع الإستعلامات

السلام عليكم. انشىء قائمة منسدلة اسمها t1 و مربع نص تسميتهt2 و انشىء استعلام لجدول المعلومات وفي حدث عند التغيير للقائمة المنسدلة t1 ضع الكود التالي Dim recherche As String recherche = Me.t1.Text Me.t2.Value = recherche Me.salah.Requery

بارك الله فيك يا أخي الكريم

لك جزيل الشكر أخي عبد السلام. لكن أنا أريد أن أعملها بكود vba

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

و كل عام و أنتم بألف ألف خير يا معشر الأساتذة الكرام

و عليكم السلام و رحمة الله و بركاته. أخي هل يمكن إنشاء أكثر من 40 إستعلاما في قاعدة بيانات واحدة دون أن تتأثر هذه القاعدة. و هل يمكن وضع كود به أكثر من 40 مرة للدالة IF بهذا الشكل: IF IF ELSE IF ELSE IF ELSE ....... ....... ....... ELSE END ID

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

شكرا لك أخي و بارك الله فيك على كل شيء

اسم المدرسة و غيرها من المعلومات الثابتة كالموقع

منا ومنكم أجمعين إن شاء الله

و أنت بألف خير أخي الوزير. ما شاء الله عليك دائما في الموعد الله يحفظك يا غالي. بالنسبة لربط الصفوف مع الطلاب تكون علاقة رأس بأطراف - ربط الصفوف بالمواد تكون علاقة رأس بأطراف -ربط بيانات الطلاب مع العلامات هل تكون رأس بأطرف أم رأس برأس و شكرا حبيبي

السلام عليكم و رحمة الله وبركاته عيدكم مبارك لدي قاعدة بيانات مدرسية بها أربع جداول 1- جدول الصفوف (الأقسام) 2- جدول بيانات الطلاب 3- جدول المواد 4- جدول علامات الطلاب ما هي أفضل الطرق لربط الجداول (العلاقات بين الجداول) و لكم جزيل الشكر

السلام عليكم و رحمة الله و بركاته بمناسبة عيد الفطر المبارك أهنيكم و أقول تقبل الله منا و منكم الصيام و القيام و صالح الأعمال و أعاده الله علينا و عليكم رمضان أعواما عديدة و أزمنة مديدة حفظ كل الأمة الإسلامية و العربية من كل شر إن شاء الله.

اللهم آمين يا رب العالمين

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

السلام عليكم تقبل الله صيامكم. أخي الكريم الوزير. بعدما تعلمت كيفية إستيراد و تصدير البيانات من و إلى أكسل بفضلك بعد الله عز وجل أردت أن أتبع الخطوات التي أعطيتني إياها للشروع في إنشاء البرنامج. كل شيء مشي تمام و الحمد لله إلا آخر خطوة و هي : 1 بعدما نقوم بإستيراد البيانات للجدول tab2 أردت أن أضع لكل طالب نقاطه حسب المواد في الجدول tbleleve لكني عجزت عن ذلك. منذ الساعة السابعة صباحا و أنا أحاول لحد الآن و لم أجد أي فكرة للحل. تحديث بيانات.rar

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

السلام عليكم و رحمة الله وبركاته أريد كود يقوم بالإستعراض لإختيار مكان للحفظ

شكرا أخي العزيز إن شاء الله موفقين جميعا

السلام عليكم أستاذي العزيز جزيت خير الجزاء. لكن هذا لا يحل المشكلة لأن صفحات الصفوف الأخرى تبقى في الملف الإخراج و حتى و لو أنها فارغة. و ذلك لأننا قمنا بالفرز بعد الأستعلام المصدر [استعلام التنقيط]. لكن الحمد لله بعد عدة محاولات توصلت إلى حل يفي بالغرض و هو كالتالي: 1- أضفت إلى سطر select الحقل [professeur] Set Rs = CurrentDb.OpenRecordset("SELECT [matiere],[classe],[professeur] FROM [استعلام التنقيط]ORDER BY [matiere],[classe],[professeur];") 2- أضفت وحدة نمطية جديدة Public Function GetPublicSedol2() As String GetPublicSedol2 = Forms![التنقيط]![prof] End Function في استعلام التنقيط في المعيار professeur و ضعت الكود GetPublicSedol2() لا أدري إن كانت الطريقة صحيحة أم لا لكنها تحقق المطلوب و أنت ما رأيك يا أستاذ. Waz-استيراد و تصدير.rar