Shivan Rekany

كون معي هناك اسألة تريد ان ينقل بيانات من جدول 2 الى جدول 1 يوميا تمام وما هو شروطك لهذه العملية

حسب فهمي لسؤالك انت عملت المطلوب فقط غير هذه السطرين الى me.c = ""

اولا نختار ثم نكتب ثم نيمست نيكست حتى وصول الى هنا واختر ما تريد تقبل تحياتي

مافيه مشكلة لكن قدي باستخدام اطار مجموعة الاختيارات لكي يختصر الكود اتفضل نفس الاكواد فقط غيرت من الدائرة الاختيارات الى مربع الاختيارات stu (1).rar

الحمد لله ... ان شاء الله

ما فهمت قصدك ممكن توضح لي اكثر

اتفضل استخدمت هذا الكود في نموذج فرعي في الحالي Private Sub Form_Current() If Forms!Form!FRAME7 = 1 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]));" ElseIf Forms!Form!FRAME7 = 2 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)>39));" ElseIf Forms!Form!FRAME7 = 3 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)<40));" End If End Sub وهذا عند تختار اسم من كومبوبوكس البحث Private Sub com_AfterUpdate() Me.FRMSUB.Requery End Sub اضفت اطار مجموعة الاختيارات بدل الطريقتك لكي يسهل علينا اكثر وهذا عند اختيار الكل ام رسوب ام ناجح Private Sub FRAME7_AfterUpdate() Me.FRMSUB.Requery End Sub اتفضل قاعدة بياناتك بعد تعديل stu.rar

هههههه VBA ألله يحفظك سيدي

والف شكر لك وشكرا يا @athal

اعطيني مثال توضيحي اكثر هل تريد تحذف البيانات من السجل 5 بدون تحذف السجل نفسه ام تريد تحذف البيانات من الحقل اي مثلا عندك حقل اسم و عنوان و رقم تلفوان مثلا وتريد تحذف البيانات من الحقل تلفوان وتبقى حقل نفسه ما هو تريد بالضبط السجل ام الحقل

شكرا لك اخوي و استاذي @ابا جودى

شكرا لكم جميعا شكرا لك @medo7171 @رضا محمد علي @looodi

الف شکر لک استاذي محمد نجار اه منك اخي وضاح شو عملت انت هههه شكرا لك شكرا لك اخوي واستاذي الحلواني واليكم نفس الخير شكرا لك يا عبقري المنتدى ... ان شاء الله راح نستفيد منك اكثر بخبرتك شكرا لك لكونك معنا شكرا لك سيدي ابو عبدالله شو اقولك استاذي اباخليل شكرا لك وشكرا على ما تقدم لكل اعضاء ... حقكم عظيم علينا شكرا لك استاذي الفاضل ... ادعوا من الله ان نتحمل ذلك تحياتي لك يا ابو ف ب ا شكرا لك اخوي محمد والف الف شكر لك سيدي

اي يعني مشاركتي في هذا الموضوع هو مثل القول اللي عند اتصال وما عندك رصيد اي "رصيدك لم يكفي لاجراء هذه الاتصال

انا عم استخدم موبايل الان لكن حسب فهمي يجب تتغير اسم cntryNmeeee وليس حقل cntryNm وغدا ان شاء الله راح اشرح بالتفصيل

شكرا لكم جميعا ان شاء الله ان نقدر نقدم مابامكاننا للجميع و ان شاء الله ان نقدر ننطي حق هذه اللقب شكرا لك @ابو زاهر @wael_rafat @sandanet @شامل2

شكرا لكم ان شاء الله ان نقدر نقدم ما بامكاننا للجميع

اي مثلا احنا نريد ان نغير اسم حقل cntryNm باسم cntryNmeeee في جدول tblCountry راح نستخدم هذا الكود If rs!Name <> "tblCountry" Then DoCmd.RunSQL "Insert Into [" & rs!Name & "] Select * from [" & rs!Name & "] IN 'D:\fresh\db1.mdb' " Else DoCmd.RunSQL "Insert Into [" & rs!Name & "] Select * from [" & rs!Name & "] IN 'D:\fresh\db1.mdb' " DoCmd.RunSQL "ALTER TABLE tblCountry ADD COLUMN cntryNmeeee Text(100)" DoCmd.RunSQL "UPDATE tblCountry SET cntryNmeeee = cntryNm" DoCmd.RunSQL "ALTER TABLE tblCountry DROP COLUMN cntryNm" End If وبدل هذا الكود الاعلاه نقدر ان نعمل فانكشن لجميع متغيراتنا و نستدعيه بعد عملية التحديث اتفضل اليك قاعدة بيانات بها مثال استاذنا ابو خليل مع اضافة الكود الاعلاه fresh.rar

وجزاك الله كل خير

سؤال كيف نعرف ان هذا الطالب ناجح ام لا

تقدر يستخدم هذا DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE الطمبات SET الطمبات.[VLC E] = [Forms]![الوردية]![Carburant].[Form]![VLC S] ;" DoCmd.RunSQL "UPDATE الطمبات SET الطمبات.[VLC S] = Null ;" DoCmd.SetWarnings True End Sub اولا راح يبدل الارقام ثانيا راح يحذف الارقام في حقل الاغلاق

هل من الممكن ان ترفق جزء المطلوب عمل عليها من قاعدة بياناتك

من العلامات ان في مشاركة استاذنا جعفر هو ما يريد ابا جودي

من هناك نقدر نخطي هذه الخطوة ايظا حسب فكري

شكرا لك استاذنا @ابو خليل تم التجربة ونجحت 100% والآن تبقى الاشكالية فيما لو تم التعديل فى تسميات بعض الحقول أو التعديل فى نوعية البيانات (كتغير من نص الى رقم أو الى true-false) المشكلة التي ليس لها حل هو ما خط بالاحمر ، اما تغيير الخصائص فليس مشكلة اصلا الا اذا تغير نوع البيانات المدخلة "ابو خليل" سامحوني لادخل في هذه الجزئية الصغيرة نقدر ان نعمل تعديل في تسميات بعض الحقول ايضا لكن بهذه الطريقة اي نعمل تعديل في مسميات بطريقة غير مباشرة ( خدعة ) اي نقدر اولا نعمل حقل جديد في جدولنا اللي احنا نريد ان نعدل تسمية لاحد حقوله وبعدين نعمل استعلام اوبديت للحقل القديم الى حقل الجديد بتسمية الجديدة وبعدين نحذف الحقل القديم وتم تجربة هذا ايضا ونجحت فيها 100% ايضا