أبوبسمله

ساشرح باختصار الكمبو الاول والثانى لاختيار الفروع ووضعت بمصدر الصف لهم نفس الجمله التاليه 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

حقل المعرف بخصائص الترقيم التلقائى ملناش علاقه به عندما اشار اليك اخى ابو البشر لتحويل حقل t1 والخاص برقم الطالب الى نوع رقم فنوع الرقم له انواع وخصائص نحددها على حسب احتياجنا للحقل والمشكله التى ظهرت لان رقم الطالب لديك 10 ارقام فحجم الحقل منع الحاق 14 سجل عند الحاق البيانات ولذلك قمت باختيار مزدوج للسماح بحجم اكبر للارقام ودى صفحه ميكروسوفت لحجم الحقول الرقميه للاطلاع https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary ارجو ان اكون قد وفقت بالشرح والتوضيح بالتوفيق اخى @فايز..

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

مشاركه مع اخى واستاذى @husamwahab جزاه الله خيرا اتفضل حاجه على قدى ان شاء الله تكون ما تريد 33.accdb

واياكم اخى فايز وفيكم بارك الله اخى @فايز.. افضل اجابه لاخى واستاذى @kanory جزاه الله خيرا 💐

اخى @فايز.. السجلات الفعليه 674 طالب اما 676 فالجداول تمب لان فيها صفين بهما بيانات راس الجدول بالاكسيل كما بالصوره

قمت بفحص الملف ب افاست ولم اجد به شىء طيب عالعموم سوف ازيل المرفق وقم بالدخول على جدول الطلاب student_x الحقل t1 ومن الخصائص بالاسفل اجعل حجم الحقل مزدوج جرب ووافنا بالنتيجه

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

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

السلام عليكم اخى @فايز.. قمت بتحميل الملف المعدل من قبل اخى واستاذى @kanory جزاه الله خيرا 💐 وجزاه الله خيرا اخى @ابو البشر 💐 شوف استعلام 1 فيه اسم مكرر مرتين برقمين مختلفين شوف استعلام 2 فيه 14 اسم من غير ارقام بالتوفيق F_E_MNew.rar

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

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

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

جزاك الله خيرا استاذ @عبد اللطيف سلوم 💐

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

الملف المرفق من قبل الاستاذ ابوعارف جزاه الله خيرا libraiesT1.accdb

وعليكم السلام ع حسب فهمى لسؤالك اتفضل جرب ووافنا بالنتيجه Private Sub num1_Exit(Cancel As Integer) Me.merg = Me.num1 End Sub Private Sub num2_Exit(Cancel As Integer) Me.merg = Me.num1 & Me.num2 End Sub Private Sub num3_Exit(Cancel As Integer) Me.merg = Me.num1 & Me.num2 & Me.num3 End Sub Private Sub num4_Exit(Cancel As Integer) Me.merg = Me.num1 & Me.num2 & Me.num3 & Me.num4 End Sub New Microsoft Access Database.accdb