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

تفضل Private Sub CommandButton6_Click() Select Case ComboBox1.Value Case "بحث في الاسماء" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("a2:a" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value ListBox1.List(j, 2) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في الرقم القومي" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("c2:c" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في تاريخ الميلاد" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("b2:b" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value j = j + 1 End If Next C End Select End Sub 1- 2- 3- project.xlsm

وتقول مشكلة بسيطه جدا جدا واجهتني و قد اخذت من الوقت الكثير لحلها تم حماية الخلايا D2 و F2 لانها تتغير أوتوماتيكاً كلما عدلت على الفروع أو تعديل على عدد الشاشات ولا ضرورة لتغييرها يدوياً Asd_2000_2 .xlsx

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

بارك الله فيك أستاذ شحادة على جهودك الطيبة إضافة لما سبق يوجد طريقة ثانية لتحديك ما بين أي رمزين، وهي كما يلي: بخانة البحث: كتابة \{*\} ووضع علامة (صح) أمام "باستخدام أحرف البدل"، بعد ذلك الذهاب لقائمة (البحث في) واختيار المستند الرئيسي، ستجد أنه تم تحديد جميع الكلمات بين القوسين. ملاحظة: يمكن استبدال القوسين بأي رمزين آخرين []، ()، <> .... الخ. مع الاحترام والتقدير

رائع جدا استاذنا الفاضل بارك الله فيك

فقط عليك بوضع Next قبل End Sub لابد من وجود ملف بكل مشاركة ....فإنتبه لذلك مستقبلاً Form1..xlsm

تم معالجة الأمر Asd_2000_1.xlsx

كبف سيكون لكل فرع 5 شاشات ونصف الشّاشة (من أين اتيت بالـــ 5.5) ز هل يمكن ان يكون هناك ربع شاشو او 0.1 من الشاشة على كل حال يمكن تعديل المعادلة الى

جرب هذا الشيء Asd_2000.xlsx

جرب هذا الملف Option Explicit Dim col As Object Dim ro%, i% Dim Sh As Worksheet '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("a:a")) Is Nothing _ And Target.Count = 1 Then data_val Cells(2, "F") = Target End If Application.EnableEvents = True End Sub '+++++++++++++++++++++++++++++++++++++++++ Sub data_val() Set Sh = Sheets("Sheet1") ro = Sh.Cells(Rows.Count, 1).End(3).Row Set col = CreateObject("System.Collections.Arraylist") With Sh For i = 2 To ro If .Cells(i, 1) <> vbNullString And _ Not col.Contains(.Cells(i, 1).Value) Then col.Add .Cells(i, 1).Value End If Next i With .Cells(2, "F").Validation .Delete: .Add 3, Formula1:=Join(col.toarray, ",") End With End With End Sub الملف مرفق Abou_hasn_validation.xlsm

و اذا تقصد اسم الدخول user name راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي أسماء الدخول ، و الأسماء الحقيقة للأعضاء

ليس مخالف بل نحن نطالب بهذا من الجميع وفي آخر توقيعي رابط الطريقه للتغيير بالتوفيق

بارك الله فيك ... و لك بمثل ما دعوت به و زيادة تفضل المرفق بعد التعديل .. قمت بالغاء تفعليل الزر بدلاً من اخفائه .. بالتوفيق ss.rar

وعليكم السلام 🙂 . 1. نعم مثل ما كتب اخوي احمد ، 2. نعم تستطيع عمل هذا: اكتب هذا الكود في "عند تنسيق" "قسم التفصيل" Detail : if me.pages > 1 then msgbox "توجد اكثر من صفحة في التقرير" end if جعفر

بعد اذن الاساذ صالح اعتقد المشكلة تكمن في ان الجملة تاخذ قيمة الراتب حسب السحل الحالي وهو غالبا يكون الاول عند فتح النموذج هنا جرب الجملة التالية بديلا للجملة اعلاه sql_statment = "update Employees set salary = Salary +" & SalaryIncrement & " where Category = '" & Cat & "'" وهنا ملاجظة بان المشكلة ستضل قائمة بان الفئة هي نفسها فئة اول سجل لذلك يمكنك وضع قيمتها يدوي اسوة بقيمة الزيادة واخيرا للاستاذ صالح اعتقد ليس هناك فرق بين الجملتين في النتيجة ولكن قد يكون هناك فرق في السرعة والفرق الظاهر هو اختلاف المكتبة حيث الاولى مستخدمة كائنات الاكسس والاخرى كئنات dao تحياتي للجميع

السلام عليكم غير هذا السطر الأخير : DoCmd.RunSQL sql_statment بهذا السطر: CurrentDb.Execute sql_statment

ربما يكون المطلوب choose_number.rar

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