كل الانشطه

ابشر جاري العمل .................................

استاذنا @منتصر الانسي طبعاً لا تفوتنا وبما ان الطالب مصري فالدرجات بمصر أقل من أوتساوي التاسعة على ما أذكر . ولو الطالب عاوز انا حاضر .................. تفضل . الشرح والمرفق بعد التعديل .ووافني بالرد. ahmad2026-111.rar

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

بعد إذن الآخ @kkhalifa1960 قمت بتعديل المثال ليقوم بتنفيذ الطلب ولكن لدي ملاحظة مهمة كل الحلول الواردة هنا تتعامل على أن العبارة المراد إجتزاؤها تتكون من كلمة واحدة بمعنى إذا كانت الدرجات مابين (الأولى والعاشرة) فهذه الحلول ستفي بالغرض ولكن لو كانت هناك درجات أعلى مثل (الحادية عشر أو السابعة عشر) فهذا يحتاج لمعالجة أخرى لهذا وجب التنويه تحياتي ahmad2026.rar

وعليكم السلام ورحمة الله وبركاته .. تفضل المرفق بعد تعديل الحدث ليصبح :- Private Sub cboOpenPDF_AfterUpdate() Dim strPath As String Dim objShell As Object strPath = CurrentProject.Path & "\" & Me.cboOpenPDF.Column(2) & ".PDF" If Not IsNull(strPath) And strPath <> "" Then If Dir(strPath) <> "" Then Set objShell = CreateObject("Shell.Application") objShell.Open (strPath) Set objShell = Nothing Else MsgBox ":الملف غير موجود في المسار" & vbCrLf & strPath, vbExclamation + vbMsgBoxRight, "ملف غير موجود" End If Else MsgBox "لم يتم تحديد مسار للملف", vbExclamation + vbMsgBoxRight, "خطأ" End If End Sub الاختبار.zip

السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الإهداء ، وبارك في علمك ووقتك نسأل الله أن يتقبل منك هذا العمل، وأن يجعله في ميزان حسناتك "علماً يُنتفع به" وصدقة جارية تفتح لك أبواب الخير. كل عام وأنت بألف خير، ودمت منارة للعطاء.

السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بالف خير وصحة وسلامة المطلوب : اريد ربط العناصر في القائمة المنسدلة في النموذج ملفات خارجية a1 ,a2 الملفات مرفقه وهي صيغة pdf ولكم جزيل الشكر الاختبار.rar

بارك الله فيك وزدك الله من فضله .. وجعل الله هذا العمل فى ميزان حسناتك ان شاء الله وبالتوفيق والنجاح دائماَ

معلمى الفاضل اولا شكرا لابداعك ثانيا سامحنى لو معرفتش اعبر عن طلبى كنت اريد عمل خانة واحدة لكتاية رقم الايصال مثال "55"000;;_ كقناع ادخال ولكن المشكلة فى ال 55 كيف يتم تغيرها لتصبح 56 وعند تغييرها سوف تتغير كل الارقام السابقة الايصالات القديمة مع العلم ان السكرتارية تعمل على دفتر ايصالات واحد لكل العيادات متال الايصال التخصص 55256 باطنى 55257 جراحة 55258 نسا 55259 معمل هذا يخصنى 55260 عظام 55261 غيار 55262 معمل هذا يخصنى ارقام غير مسلسة اتمنى تكون طلبى واضح

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

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

معنى كلامك انت لاتبغي تصدير فقط استيراد؟؟؟

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

تفضل استاذ @بلال بلال المرفق وبه طلبك . ووافني بالرد . Mon_Excel_Bilal_Yamen-1.rar

السلام عليكم لدي جدول اسمه: tblImportExcel اريد ادراج ايقونة استراد الى الاكسيل الذي بجاور البرنامج . ولدي استعلام اسمه: المعلومات التي يتم استراد الى الاكسيل. اريد عند استراد المعلومات من الاكسيل المرة الأولى لايتم استرادها مرة أخرى الا في حالة اضافة معلومات جديدة. Mon_Excel_Bilal_Yamen.zip

شكرا لكم...

شكرا لكم !!! على النشر 192.168.1.1

بارك الله فيك ! Tutuapp 9Apps

لو تقصد الحقل الثاني محسوب بالجدول مايصير .......... أما من خلال نموذج فممكن وكما اشار اليك استاذ @ناقل ..................... تفضل الشرح والمرفق . ووافنا بالرد . ahmad2026.rar

جرب هذا التحديث مع تعديل اسماء الحقول لديك UPDATE اسم_الجدول SET اسم_الحقل_الثاني = Left([اسم_الحقل_الأول], InStr([اسم_الحقل_الأول], " ") - 1);

لدى عمودين فى جدول الحقل الاول فيه بيانات الدرجه وهى ( الاولى تنميه اداريه ( ب ) ) اريد ان الحقل الثانى ياخل كلمة الاولى فقد من الحقل السابق هل ممكن ولكم جزيل الشكر

أعضاء المنتدى الكرام ... كل عام وانتم بخير ... إليكم أحبائي كنترول جدارات الصف الاول كامل مفتوح المصدر وبدون قيود داعيا الله ان يكون عملا خالصا لوجه تعالى وان يكون عملا ينتفع به الكنترول يشمل الآتي تنبيه : كنترول جدارات الصف الثاني جاري التحضير له ان شاء الله تعليمات الدخول لشاشة البرنامج 1- تحويل اللغة الى الانجليزية 2- التحويل الى حروف كبيرة Caps Lock 3- اكتب في المربع الاول بحروف عربية "بسم" 4- - اكتب في المربع الثاني بحروف عربية "الله" 5- اضغط تاكيد وبالتوفيق ان شاء الله offcinal_1_3am.xlsb

ما الهدف من مشاركة فيديو مدته 18 ثانية !!!!!!!🤔!!!!!!!!!

الأصل أخي الكريم بلانك هو طرح المطلوب وشرحة داخل الموضوع وليس داخل الملف فقط .. شكراً لك