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

عفوا لم انتبهت لذلك اليك هذا Private Sub catname_AfterUpdate() If Len(Me.sr & vbNullString = 0) Then Me.sr = Nz(DMax("[sr]", "t2", "[fatorano]='" & [Forms]![t1]![fatorano] & "'"), 0) + 1 End Sub ترقيم تسلسلي.accdb

ثلاثة كومبوبوكس مكملين لبعضهم اريد عدم تكرار البيانات في الكوبموبوكس الاوسط عدم التكرار.xlsm

السلام عليكم ورحمة الله استخدم الاكواد الآتية و الغى كل الاكواد الموجودة لديك Private Sub UserForm_Activate() Dim C As Range, Coll As New Collection On Error Resume Next For Each C In Sheets("sheet1").[A2:A5000] Coll.Add C.Value, C.Value Next C On Error GoTo 0 For Each Item In Coll Me.ComboBox1.AddItem Item Next Item End Sub Private Sub ComboBox2_Change() ComboBox3.Clear Dim C As Range For Each C In Sheets("sheet1").[B2:B5000] If Me.ComboBox2.Value <> "" Then If Me.ComboBox2.Value = C.Value And C.Count = 1 Then s = s + 1 ReDim temp(s, 1) temp(s, 1) = C.Offset(0, 1) Me.ComboBox3.AddItem temp(s, 1) End If End If Next End Sub Private Sub ComboBox1_Change() ComboBox2.Clear Dim C As Range For Each C In Sheets("sheet1").[A2:A5000] If Me.ComboBox1.Value <> "" Then If Me.ComboBox1.Value = C.Value Then p = p + 1 ReDim arr(p, 1) arr(p, 1) = C.Offset(0, 1) Me.ComboBox2.AddItem arr(p, 1) End If End If Next End Sub

السلام عليكم ريثما تحصل على الجواب من الأستاذ جعفر انظر إلى المرفق ... مع أني حتى اللحظة لم أعرف ما فائدة زر التصفية 660.2.Test2006.mdb

ريما ينفع هذا الكود Sub Salim_Code() Dim Source As Worksheet: Set Source = Sheets("دوامات") Dim x$: x = Source.Range("b2") Dim Target_sh As Worksheet: Set Target_sh = Sheets(x) Dim last_row%: last_row = Application.CountA(Source.Range("a:a")) - 1 If last_row = 1 Then last_row = 5 Dim k%, laste_col_source%, laste_col_target% For k = 1 To 500 If Source.Cells(5, k) = vbNullString Then Exit For Next laste_col_source = k - 1: k = 0 For k = 1 To 500 If Target_sh.Cells(1, k) = vbNullString Then Exit For Next laste_col_target = k: k = 0 Target_sh.Cells(1, laste_col_target).Resize(last_row + 1, 1).Value = _ Source.Cells(5, laste_col_source).Resize(last_row + 1, 1).Value End Sub الملف مرفق ترحيل اعمال.xlsm

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

على الرغم اني لا أعمل على اليوزر ولا أطيق العمل عليه(حيث هناك عدة خيارات بواسطة الفلتر و الفلتر المتقدم الخ.......) تم معالجة الامر filteringby_user.xlsm

جزاك الله خيرا أستاذى و لكن سأنتظر أستاذ @jjafferr ممكن يكون ليه حل فهو من ساعدنى فى هذا النموذج

السلام عليكم التقرير يعرض البيانات بصورة صحيحة و لكن عليك إغلاقه و إعادة فتحه حتى يعرض البيانات المحدثة تعديل : بالنسبة لزر التصفية فهو لا يؤثر في الاستعلام و الذي يشكل مصدر التقرير ، لذلك فعند استخدام عامل التصفية الخاص بعرض بالنموذج فإن النتائج لن تظهر بالتقرير

السلام عليكم طريقة أخرى لعمل ذلك هي باستعمال خاصية "أدوات Tools" في أمر "حفظ باسم... Save As" (يمكن حفظه بالاسم نفسه أو باسم آخر) بعد وضع كلمة سرية للتعديل مع اختيار خاصية "للقراءة فقط"... والله أعلى وأعلم ملاحظة: باستعمال هذه الخاصية الملف لا يفتح للتعديل إلا بإدخال الكلمة السرية أو يمكن فتحه للقراءة فقط (أي لا يمكن التعديل عليه)... بن علية حاجي

اتفضل اليك هذا =Nz(DMax("[sr]";"t2";"[fatorano]='" & [Forms]![t1]![fatorano] & "'");0)+1 ترقيم تسلسلي.accdb

ضع الجزء الذي يحتوي على المشكل هنا و سوف نحله بإذن الله

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

ملف ممتاز احسنت استاذ سليم بارك الله فيك

بفارق الصبر سانتظر لكي اشوفه لا تردد نحن بنتظارك

إن شاء الله أخي

قريبا باذن الله وسأعرض احد برامجي هنا بعد تردد كبير

ربما تستفيد من هذا الملف Working_time.xlsx

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

هذا تطبيق ومحاولة رمهانية متمنيا لكم التوفيق Private Sub Form_Current() Me.Parent!total = Me.ActiveControl End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) If KeyCode = 16 Then For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii End If Me.Parent!total = xsum End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii Me.Parent!total = xsum End Sub قاعدة البيانات1.accdb

السلام عليكم أرجو الاطلاع على هذه الموضوعات لعلك تفد منها شيئا ان شاء الله. https://www.google.com/url?q=https://www.officena.net/ib/topic/61106-%D9%87%D8%AF%D9%8A%D8%A9-%D9%85%D9%86-%D8%A7%D9%84%D9%8A%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%89-%D8%A7%D9%84%D9%8A%D8%B3%D8%A7%D8%B1%D8%8C-%D9%85%D8%B1%D8%A8%D8%B9-%D8%A7%D9%84%D9%82%D8%A7%D8%A6%D9%85%D8%A9-listbox-%D9%88%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-treeview/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggEMAA&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw2wiVLbwG6UYHvqUmV0y8hY 2- https://www.google.com/url?q=https://www.officena.net/ib/topic/60781-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D8%B9%D9%84%D9%89-%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-treeview/%3Fpage%3D2&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggGMAE&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw0xGwvCiLW25LCHGIUTzQW_ 3- https://www.google.com/url?q=https://www.officena.net/ib/topic/62038-%D9%86%D9%82%D9%84-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D9%85%D9%86-treeview-%D8%A5%D9%84%D9%89-text-box/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggJMAI&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw22v4ZDnk1-QB6EnF3QILfr 4- https://www.google.com/url?q=https://officena.net/ib/topic/62314-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D9%86%D9%88%D8%B9-%D8%A7%D9%84%D8%AE%D8%B7-%D9%81%D9%8A-%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-tree-view/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggUMAc&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw3i5I-PXKXm6OkxVRuxJQkj 5- http://arabteam2000-forum.com/index.php?/topic/296371-مشكلة-عند-فتح-النموذج-واجهة-مستخدم-على-شكل-شجرة/&do=findComment&comment=1408796 و لكنها لا تعمل مع افيس 2007 و تؤدي إلى تعطيل الماكرو الموجود يبدو أن المشكلة لديك باضافة المكتبة الخاصة بالتعامل مع الترى فيو - وان أردت ارفاق مثالا يحوى المشكلة للتعديل عليه فلا بأس

ربما كان المطلوب Salimحسب 4الحالة.rar

الرجاء ان يكون هذا هو المطلوب الجدول المعدل.rar

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

الاستاذ الكبير جمال ( محمود لى ) يبدوا اننى لم اعرف اطبق على الملف الذى شرفنى ان قمت بارساله على قدر فهمى فقد قمت بتعديل عمود حالة السداد حتى يتم تغييرها تلقائياً عند تغيير تاريخ الحصر فى شيت العملاء كلهم بحيث اذا كان تاريخ الحصر اكبر من او يساوى تاريخ استحقاق القسط وخانة تاريخ السداد لا تساوى "" فيكتب لم يسدد والمطلوب ببساطه ان يقوم البرنامج بحصر العملاء والاقساط التى لم تسدد فقط بمعنى انه البرنامج سيبحث فى عمود الحالة لكل قسط والخانة التى لم تسدد هى التى سترحل بياناتها وقسطها امام عميلها اما بقية الاقساط التى لم يحين ميعاد استحقاقها فلا تظهر وبالتالى العملاء التى لم يستحق عليهم اقساط لم يظهروا كذلك واليكم المرفق بعد تعديل خانة حالة السداد ترحيل مبيعات القسط التى جاء ميعاد استحقاقها22.rar

لقد قمت بانجاز برنامج من جديد حسب ما اراه مناسبا جربه و اخبرني بالنتيجة و لا تنسانا من دعائكم الصالح التقسيط 4.rar