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

السلام عليكم ورحمة الله جرب هذه المعادلة =COUNTIF($B$2:$C$7;$A14 &"*")

السلام عليكم ورحمة الله اجعل الكود هكذا الرجاء فقط تحديد الخلية التى تحتوى اسم الموظف و ليس الصف كله قبل تنفيذ الكود Sub DelRows() Dim Sh As Worksheet, Msg As String Dim Nam As String Dim i As Long, LR As Long Nam = ActiveCell.Value Msg = MsgBox("من كافة الشيتات" & " " & Nam & " " & "هل تريد فعلا ازالة السيد / ", vbYesNo) For Each Sh In Worksheets For i = 1000 To 4 Step -1 If Nam = "" Then Exit Sub If Sh.Cells(i, 1) = Nam Or Sh.Cells(i, 2) = Nam Then If Msg = vbYes Then On Error Resume Next Sh.Rows(i).Delete Else: Exit Sub End If End If Next Next End Sub

يرجى مراعاة المصلحة العامة ف قوانين المنتدى وضعت من اجلكم تم فصل المشاركة

انا اخبرتك بالمشكلة وانها المعيار المعيار لا يتوافق مع التنسيق في حقل التاريخ واللي عملته انني وحدت التنسيق في الجدولين وفي مربعات التحرير في النماذج كيف ؟ انت وضعت في بعض الاماكن التنسيق هكذا : Month([date_n]) & " / " & year([year_n]) وفي البعض الآخر هكذا : Month([date_n]) & "/" & year([year_n]) لاحظ الفرق والمتمثل في المسافات الخالية في : " / " والافضل انك تجعلها جميعا مثل الثانية اي بدون مسافات

الاستاذ رمهان شكرا لك .... والشكر موصول للاستاذ محمد سلامة .... تفضل Multi Val.accdb

اهلا وسهلا بك استاذ @رمهان والله ليك شوقه تغييب تغيب وتظهر كالجواد فعلا استخدمت dao وتم الامر وتم حل المشكلة بنجاح واشكر جدا الاستاذ @ابوخليل على مساعدته .. الله يبارك فيه ويسعده وبارك الله فيكم جميعا 'وهذا هو الكود ياستاذ رمهان حسب طلبك لتطلع عليه 'وايضا لمن ياتى من بعدنا حتى يستفيد منه Private Sub Form_BeforeUpdate(Cancel As Integer) Dim x As String Dim db2 As Database Dim rs As Recordset Set db2 = CurrentDb Set rs = db2.OpenRecordset("SELECT [id_company] & [taxt_name1] & [date_f] AS Expr1 " & vbCrLf & _ "FROM tbl_company INNER JOIN (tbl_custom INNER JOIN tbl_demand ON tbl_custom.id_custom = tbl_demand.emp_id) ON tbl_company.id_company = tbl_custom.emp_company " & vbCrLf & _ "WHERE (((tbl_company.id_company)=wrcmpny()))") x = wrcmpny() & taxt_name1 & date_f rs.MoveFirst Do While rs.EOF = False If rs!Expr1 = x Then MsgBox "ÓÌá ãßÑÑ" Undo Exit Sub End If rs.MoveNext Loop rs.Close: Set rs = Nothing End Sub تحياتى ،،

مثل ما قال الاخ أو اجعلها في الاستعلام عدم ظهور اخر سجل الفاضي (1).mdb

وعليكم السلام ورحمة الله وبركاته من خصائص النموذج خانة الاختيار السماح بالاضافة اختر لا وسيختفي السجل الفارغ ::بالتوفيق::

وعليكم السلام تفضل اعمل كما في الصورة ثم ضع هذا الكود خلف زر الحفظ Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "En" Then ctl.Enabled = False End If Next وضع هذا الكود خلف زر الامر تعديل Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "En" Then ctl.Enabled = True End If Next ::بالتوفيق::

ولماذا تخفيها ؟ فلست في حاجة لذلك عند التحويل الى mde يستحيل فتح التصميم ، ولو تم كسرها فانها ستفتح بدون اكواد برمجية اما الفتح للعرض فيمكنك وضع ضوابط بحيث لا يمكن فتح النموذج الا بعد الدخول الصحيح الى البرنامج

اول مرة أمر بحالة تشبه طلبك 800 زر في شاشة واحدة .. .. غير معقول لماذا غير معقول ؟ لان فكرة البرمجة جاءت لاختصار مثل هذه الخطوات واختزالها في حركات يسيرة المطلوب منك اخي الكريم تشرح لنا طبيعة المشروع الذي تعمل عليه ولماذا ستدرج هذا الكم الهائل من الازرار ؟ فقد نجد سبيلا لمساعدتك في تحسين الفكرة

شكرا لك اخيahmedfahmy2018 هذا هو المطلوب جزاك اله خيراً وزادك علماً ممكن توضح لي الفرق بين دالة(if و nz) التي استعملتها شاكراجهودك

شكرا لكم جميعا وللمنتدى الرائع والمفيد زادكم الله علماً ونفع بكم الأمة ahmedfahmy2018 ابوخليل اعتذر منك استاذ ابوخليل فلم انتبه لملاحظتك

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

تم فصل الموضوع

السلام عليكم فضلا ابو زاهر لا تضع في المثال الا الكائنات المراد التعديل عليها اختصار الامثلة مطلوب تفضل تم التعديل ظهور نوع المستند.rar

السلام عليكم أحبائى وأساتذتى أقدم لكم اليوم -موضوع عن البحث بمجرد كتابة اول حرف فى التكست بوكس لإظهار بيانات البحث فى الليست بوكس والإختيار منها بارك الله فيكم جميعا https://www.youtube.com/watch?v=CmkhFzH95ss البحث بمجرد كتابه اول حرف من خلال ليست بوكس .xlsm

ضع عرض العمود في مصدر النوع في الجدول AfwtIar التالي الحقل Nwaha عرض العمود 0سم ; 2سم

السلام عليكم ورحمة الله استخدم هذا الكود Sub DelRows() Dim Sh As Worksheet, Msg As String Dim Nam As String Dim i As Long, LR As Long Nam = ActiveCell.Value Msg = MsgBox("من كافة الشيتات" & " " & Nam & " " & "هل تريد فعلا ازالة السيد / ", vbYesNo) For Each Sh In Worksheets For i = 1000 To 4 Step -1 If Nam = "" Then Exit Sub If Sh.Cells(i, 1) = Nam Or Sh.Cells(i, 2) = Nam Then If Msg = vbYes Then Sh.Rows(i).Delete Else: Exit Sub End If End If Next Next End Sub

راجع الملف بعد التعديل مع المتابعة ظهور نوع المستند.rar

بارك الله فيك

معادلة رائعة استاذ زيزو بارك الله فيك أما اذا كان وضع الإسم المراد البحث به فى الأول أو الإسم الثانى-فتكون المعادلة كالتالى حيث تقوم بالعد سواء الإسم كان فى الأول او ثانى اسم =COUNTIF($B$2:$C$7,"*"&$A14 &"*") جزاكم الله كل خير

مشكور علي الرد استاذ مصطفي

ربما كان هذا المطلوب TEST Salim.xlsx

السلام عليكم : اجعل الحقول الثلاثة الشركة - المدينة - التاريخ ------> مفتاحاً أساسياً عندها لن يقبل الجدول التكرار و سعيتبر الثلاثة مفتاحاً واحداً . أرجو أن أكون قد وفقت لفهم مقصدك

الاستاذ محمد انا لا اوافقك بجعل المستخدم يدخل اسم المدينة كتابة .. حيث يجب الاختيار من قائمة حيث يكون عرضة للاخطاء الاملائية المقصودة وغير المقصودة مثلا في مثالك انت قمت بكتابة البحة بدلا من الباحة تم عمل المطلوب ويمكنك التجربة يمكنك ايضا لسد الثغرات نقل الكود الى حدث قبل تحديث الفورم بدلا من حدث الحقل db1.rar

ممكن تجرب هذا Query by Advanced Filter & VBA1+2 - Copy.xlsm

قصدت من كلامي لو اردت ان الرقم يبقى على القرن الحالي الافتراضي اللي هو 2000 فقط احذف (1-) الموجود في سطر الكود لن تتمكن من الحصول على نتيجتين مختلفتين في حقل واحد الا باستخدام واسطة لان اكسس حين تكتب الرقم ( 05) لا يعلم هل تريد 2005 أو 1905 لذا يجب ان تستخدم وسيطة مثلا : - تستخدم خانة خيار بجانب الحقل لتحديد القرن او - يتم ادخال رقم كعلامة على القرن مثلا الرقم 05 اذا ادخلته هكذا تكون النتيجة 2005 ولكن اذا اردت القرن السابق يجب ان تضيف صفرا بالبداية 005 لتكون النتيجة 1905 هذه الوسيطة يتم معالجتها داخل الكود باستخدام الشرط ( اذا كان عدد الارقام 3 اذن = 19 واذا 2 = 20 ) شي مشابه لهذا او اي وسيطة اخرى ترى انها مناسبة فالبرمجة فكر وطريقة كلمة اخيرة : كتابة اربعة ارقام اسهل من كل هذه الدوشة ..

مثال غما اعني به exemple.rar