أبوبسمله

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb

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

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

جزاك الله خيرا اخى واستاذى @محمد أبوعبدالله 💐 احسنت بالاستغناء عن المكتبه

شرح ع قد حالى قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك ثم On Error Resume Next Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show Me.IMG = f.SelectedItems(1) Me.Image64 = Me.IMG قمنا بعمل متغير لفتح مربع الحوار f والذى تم تعريفه بالمكتبه السابقه ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها https://analystcave.com/vba-application-filedialog-select-file/ بالتوفيق اخى

وعليكم السلام اتفضل ان شاء الله يكون ما تريد FAILURE.accdb

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

جزاك الله كل خير معلمنا العزيز جعفر 💐

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق

اتفضل استاذ @mohamed elalfy لديك الجدول MSysObjects تجده مخفى وتجد به اسماء الجداول والفلاجات و id تم تغير Flags على حسب الجدول السابق SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Flags)=262144) AND ((MSysObjects.Type)=1)); بالتوفيق ان شاء الله نقل بيانات من جدول إلى جدول (4).accdb

احسنت اخى واستاذى @husamwahab جزاك الله خيرا 💐 بارك الله وفيك وزادك من فضله وعلمه

حبيبى الغالى فايز انا طالب بتعلم معكم صدقنى ما زلت احبو واتعلم معكم فلولا اسئلتكم ما تعلمت شيئا فالفضل لله ثم لاخواننا واساتذتنا جزاهم الله خيرا ثم لكل اخ عزيز يضع سؤال واحاول وافكر واضع اجابه على قدر فهمى للسؤال وفى بعض الاحيان اعجز عن فهم السؤال فاتركه لاخوانى واساتذتى فهم اعلم منى واتعلم من حلولهم وان شاء الله نتعلم سويا ونرتقى اخى فايز ونفيد اخواننا كما نستفيد من اخواننا واساتذتنا جزاهم الله خيرا واياكم اخى الحسامى فى النموذج فى حدث فالحالى وضعت كود لجلب اخر قيمه لحقل الباقى عند الادخال الجديد Private Sub Form_Current() If Me.NewRecord Then Me.رصيد = Nz(DLast("باقى", "ti"), 0) End If End Sub ان شاء الله تكون وصلت الفكره بالتوفيق اخوانى امممممممممممممم طيب هنشوف حل ان شاء الله ولعل احد اخوه والاساتذه يساعد ان شاء الله بس فيه سؤال انت بتجرب بس ولا هو ممكن تعدل قيد سابق فعلا ؟

وعليكم السلام مشاركه لاخى الفاضل @فايز.. جزاه الله كل خير هل هذا ما تريد ؟ جرب ادخال سجل جديد فالنموذج الارصدة.accdb

وعليكم السلام اتفضل وان شاء الله يشتغل معاك بالتوفيق New_1.accdb

طبيعى ده المفروض اللى يحصل وهذ ما كان يقصده اخى حسام جزاه الله خيرا فقمت بالتعديل حسب الموجود والموضح فقط ولكن اذا اعتمدنا كلامك اخى @فايز.. فالافضل كما قال اخى حسام جزاه الله خيرا التعديل فى بنيه الجداول وفصل بيانات الموظفين فى جدول ويتم اضافه كود الموظف بالفرع ثم تحديثه عند العوده والعمل مره اخرى على الفرع الجديد مع الحفاظ على رقم الموظف بالفرع الذى كان به حتى تكون لدينا سجلات هذا الموظف بكل فرع عمل به اما بخصوص الرساله التى تظهر للاستاذ محمد فاشرت اليه بهذا الرابط ولا اعلم هل قام بزيارته ولاطلاع عليه ام لا ؟ جزاك الله خيرا معلمنا العزيز جعفر @jjafferr 💐 ع هذه الروابط وان شاء الله الاستاذ محمد يطلع عليها ويخبرنا بالنتيجه ان شاء الله بالمساء @mohamed elalfy انظر لمثالك الجديد بعدما ارتاح قليلا من العمل بالتوفيق اخوانى واساتذتى

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

ساشرح باختصار الكمبو الاول والثانى لاختيار الفروع ووضعت بمصدر الصف لهم نفس الجمله التاليه SELECT MSysObjects.Name, MSysObjects.Flags FROM MSysObjects WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1)); فى حدث بعد التحديث للكمبو الاول وضعنا الكود التالى لجلب الاسماء بناء على الفرع Sub cmbF1_AfterUpdate() Dim x As String Dim strSQL As String x = Me.cmbF1.Value strSQL = "SELECT الاسم FROM " & "[" & x & "]" & ";" Me.cmbEmp.RowSource = strSQL End Sub بعد اختيار الاسم فحدث عند النقر قمت بوضع الكود التالى لالحاق البيانات Private Sub btnRun_Click() Dim x As String Dim y As String Dim z As String x = Me.cmbF1.Value y = Me.cmbF2.Value z = Me.cmbEmp.Value DoCmd.RunSQL "INSERT INTO " & "[" & y & "]" & "( الاسم, [تاريخ الميلاد], [الشهاده الجامعيه], الجامعه, الراتب, [الحاله الاجتماعيه], [تاريخ بداية الخدمه] )" & _ "SELECT الاسم,[تاريخ الميلاد],[الشهاده الجامعيه],الجامعه,الراتب,[الحاله الاجتماعيه], Date() AS SDate " & _ "FROM " & "[" & x & "]" & " WHERE (الاسم='" & z & "');" End Sub

طيب جرب الان عما اشرح لك New1.accdb

شغال عندى وجربته قبل ما ارفعه

طيب جرب الان New1.accdb

طيب جرب الان New.accdb

السلام عليكم مشاركه مع اخى @husamwahab جزاه الله خيرا 💐 هل هذا ما تريد افتح النموذج اختار الفرع المحول منه ثم اختار الفرع المحول اليه ثم اختار الموظف الذى سيتم نقله للفرع المحول عليه ثم اضغط زر تنفيذ ملحوظه الاسماء سوف تظهر بعد اختيار الفرع المحول منه ثم افتح الجدول الخاص بالفرع المحول عليه جرب ووافنا بالنتيجه New.accdb

وفيك بارك الله ولا يهمك بالتوفيق

وعليكم السلام طيب هل عملت معك الان ؟ الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

جزاك الله خيرا اخى واستاذى @husamwahab 💐 اتفضل اخى @محمد التميمي جرب ووافنا بالنتيجه بالتوفيق 33(1).accdb