نجوم المشاركات

وعليكم السلام ورحمه الله وبركاته بعد اذن اخى على عدل Dim Start_date As date, Last_date As date الى Dim Start_date As Double, Last_date As Double ووافنا بالنتيجه

ممكن تجرب Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' F7 to clear search box If KeyCode = vbKeyF7 Then Me.SearchBox.Value = "" KeyCode = 0 ' Disable default behavior End If ' F8 to perform search If KeyCode = vbKeyF8 Then ' Add your search logic here MsgBox "Perform search" KeyCode = 0 ' Disable default behavior End If End Sub يجب وضع هذا الكود في النموذج الخاص بك، وتأكد من تغيير "SearchBox" إلى اسم مربع البحث الخاص بك.

شكرا جزيلا ، الله يعطيك العافيه $ جزاك الله خيرا $

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في الخليه C6 ثم اسحب يسارا ونزولا لاسفل مثال.xlsx

تفضل استاذ @rachedi طلبك بالمرفق والشرح بطريقتان . زر واحد أو زران . ووافني بالرد . DDTest113.rar

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip

تفضل :: تحياتي التعامل مع wالصور.zip

حسب ما توضحت الصورة في طلبك ، تفضل هذا المثال :- في حدث في الحالي للنموذج ضع هذا الكود :- Private Sub Form_Current() If Not IsNull(Me.Retial) Then Cancel = True Me.Retial.Enabled = False Else Cancel = False Me.Retial.Enabled = True End If End Sub وفي حدث بعد التحديث لمربع النص ضع هذا الجزء :- Cancel = True Me.Retial.Enabled = False Retial.accdb

تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر .. حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم . تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :- Private Sub btnAccepted_Click() Me.chkAccept.Value = True End Sub وزر الغير مقبول :- Private Sub btnReject_Click() Me.chkAccept.Value = False End Sub

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

حل رائع استاذ قاسم احسنتم استاذ خليفة جزاك الله خيرا

جرب هذا الكود في حدث عند النقر لاختيار ملف الـ PDF ، وسيتم ادراج مساره في مربع النص Private Sub btnBrowse_Click() Dim fd As Object ' متغير لمربع الحوار Dim selectedFile As Variant ' متغير لتخزين المسار المحدد ' إنشاء مربع حوار لاختيار الملفات Set fd = Application.FileDialog(3) ' 3 يعني اختيار ملف ' عرض المربع الحوار وانتظار اختيار ملف If fd.Show = -1 Then ' استخراج المسار المحدد وتخزينه في selectedFile selectedFile = fd.SelectedItems(1) ' عرض المسار المحدد في مربع النص Me.TextConv.Value = selectedFile End If ' تحرير الموارد Set fd = Nothing End Sub وشرح الكود موجود داخله 🥰

جزاك الله كل الخير والى الأمام والتقدم دائماً . ولي لمسة بسيطة كي ينتفع بها الكل وهي تحريك النموذج بكتابة القيم بــ (Left,Top) بالسنتيمتر . waadcenterform-1.rar

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

انظر في المثال توجيه : الادخال يتم على مستوى الاسبوع حصة حصة يتم اختيار : الفوج / الرتبة / الغرفة / الحصة سوف يعرض الحصة الأولى خلال اسبوع ويتم تعبئتها .. ثم الثانية ... وهكذا الآن .. البيانات مكتملة يمكنك تغيير المعلمين والمادة ثم انظر التقرير لترى الفرق ...................................................... ان راق لك سوف افتح موضوعا جديدا بعنوان يناسبه jadwalx.rar

وعليكم السلام ورحمة الله وبركاته تفضل لعله لطلبك الراتب الاساسى212 مارس.xlsx

جرب هذا الملف ترحيل بالتاريخ بالكود.xlsb

هذا الكود اخي عبدالله للفكرة اعلاه : xpath = "a\b\c\d" ypath = CurrentProject.Path & "\" For Each d In Split(xpath, "\") ypath = ypath & d & "\" MkDir ypath Next حيث xpath مجلداتك المراد انشاؤها ! بالتوفيق

السلام عليكم شباب في الرابط التالي http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 استعملت الكود التالي: Dim Image_Path As String '1 Image_Path = Application.currentProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & "\" & [ID] & "\" 'if the [id] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If وهنا قبل ان أنشأ المجلد الجديد ، يتأكد الكود بوجوده ، فان لم يكن موجودأ ، فانه يستحدثه ، وإن كان موجودا لا يفعل شئ (طبعا لم اكن اريد المستخدم ان يرى اي رسالة هنا) ، وتلاحظ ان عمل المجلدات هو بالتسلسل ، ومن خلال نفس مجلد البرنامج ، هكذا: -1- مجلد البرنامج (الموجود ، لذلك لم اقم بعمل شئ له) ، -2- مجلد الصور photo (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد البرنامج ، ومجلد الصور photo هذا سيُستحدث مرة واحدة فقط ، -3- مجلد ID (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد الصور photo ، وهناك عدة مجلدات بحسب قيمة ID ، داخل مجلد الصور photo. جعفر

السلام عليكم شكرا لمروركم أخي أحمد العيسى . مرفق نسخة منقحة بعد اكتشاف بعض الأخطاء في النسخة السابقة . تحياتي . EventsCalendar.rar