الجموعي

أستاذي الفاضل /عبد الله باقشير معذرة عن عدم فهمي ما قصدته يعجز القلب و اللسان عن شكرك شكرا لاتكفيك فكلمة الشكر لاتوفيك حققك شكراعلى مجهودك ومساعدتك لنا أنت نعم السند بارك الله فيك ربي يجزيك الجنة

شكرا أستاذي ألغيت الشرط ووضعت الكود ولم تضبط معي الملف مرفق في المشاركة 1 حاول التجريب عليه Sub EditAdd() Dim emptyRow As Long If Cells(i + 1, 1).Value = id Then flag = False i = 0 emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End If End Sub

وعليكم السلام ورحمة الله تعالى وبركاته بارك الله فيك أستاذي الفاضل/ أبو عيد حفظك الله وجزاك الله كل الخير وأثابك الله الجنة وشكرا مرة ثانية على التعديل على زر حفظ التعديل لأنه كانت به مشكلة وفقك الله لما يحبه ويرضاه

بعد إذن الأستاذي /ضاحي الغريب أستاذي إبراهيم انا جربت هذا الكود ونجح معي غير هذا الكود Application.Quit بهذا الكود ActiveWorkbook.Close False في Private Sub L_In_Click() Private Sub L_OUT_Click()

أخي أبو عيد فيديو توضحي للطلب فيديو توضيحي.rar

السلام عليكم ورحمة الله تعالى وبركاته محتاج مساعده في ها الكود وهو مرتبط بزر حفظ التعديل الكود الرئيسي يعمل بنجاح في حالة البحث عن طريق ComboBox2 عند حفظ التعديل يتم حفظ البيانات عند البحث عن طريق الكمبوكسComboBox2 أما عند البحث عن طريق TextBox1 أو TextBox عند حفظ التعديل لا يتم ترحيل البيانات ملاحظه ComboBox2= البحث برقم التسجيل TextBox1=البحث عن بتاريخ الميلاد TextBox= البحث بالإسم الكامل الكود الرئيسي Option Explicit Dim id As Integer, i As Integer, j As Integer, flag As Boolean Sub EditAdd() Dim emptyRow As Long If UserForm1.ComboBox2.Value <> "" Then 'يتم إضافة الكود الأول هنا flag = False i = 0 id = UserForm1.ComboBox2.Value 'هنا يتم إضافة الكود الثاني emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End If End Sub أريد إضافة الأكواد التالية 'الكود الأول ElseIf UserForm1.TextBox.Value <> "" Then ElseIf UserForm1.TextBox1.Value <> "" Then 'الكود الثاني id = UserForm1.TextBox.Value id =serF Uorm1.TextBox1.Value أنا حاولت ولم يفلح معي الأمر البحث.rar

للرفع

وعليكم السلام ورحمة الله تعالى وبركاته عمل رائع أستاذ/مجدي يونس جعله الله في موازين حسناتك

هذه محاوله ولم تنجح معي هي جعل زر إلغاء الأمر يقوم بوظفتين ولم تنجح معي

هذه محاوله ولم تنجح معي هي جعل زر إلغاء الأمر يقوم بوظفتين ولم تنجح معي

أخي الكريم حاولت تم تصحيح أخطاء البحث لكن عند الإختيار بعد البحث من الليست بوكس لا يتم ترحيل البيانات للتكست بوكس في إنتظار رد الاستاذ إبراهيم أبو ليلة سجل الابجدى10.rarسجل الابجدى10.rar

بعذ إذن أستاذي القدير إبراهيم أبو ليله تم عمل كمبوبوكس هل هذا ما تقصده سجل الابجدى.rar

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

مشكور أخي مزلت مشكل في زر تعديل عند الضغط على زر تعديل يتم تمكين زر حفظ التعديل وعند إلغاء الامر هل لا حظت أنه يتم تفعيل زر جديد وأنا أريد تفعيل زر تعديل

up

أخي الكريم سأضعك في صلب المشكلة عند ضغط (تعديل) يتم تفعيل ( حفظ التعديل) وإلغاء تفعيل (تعديل) عند ضغط (حفظ التعديل) يتم تفعيل (تعديل) وإلغاء تفعيل ( حفظ التعديل) عند ضغط (جديد) يتم تفعيل ( حفظ جديد) وإلغاء تفعيل (جديد) عند ضغط (حفظ الجديد) يتم تفعيل (جديد) وإلغاء تفعيل (حفظ الجديد) وهذه تمت معالجتها مشكلتي تكمن في (الغاء الامر) عند الإختيار من الكمبوبوكس1 ستلاحظ أن زر (جديد) مفعل عند ضغط (الغاء الامر) يتم تفعيل (جديد)وإلغاء تفعيل (حفظ الجديد) عند الإختيار من الكمبوبوكس2 ستلاحظ ان زر (تعديل) مفعل عند ضغط (الغاء الامر) يتم تفعيل (تعديل)وإلغاء تفعيل (حفظ التعديل)

أخي الكريم مشكور وماقصرت المشكله أصبحت عند زر التعديل عند الضغط على زر تعديل يتم تمكين زر حفظ التعديل لكن عند الضغط على زر إلغاء الأمر يتم تفعيل زر جديد ملاحظه زر تعديل يعمل عند الإختيار من الكمبوبوكس 2

للرفع

أستاذي القدير / ضاحي الغريب مبدع كعادتك عمل جميل ورائع جزاك الله خيرا

السلام عليكم ورحمة الله تعالى وبركاته حياكم الله أحبتي عذرا عن إنقطاعي عن المنتدى وهذا لأسباب خاصه ندخل للمطلوب عندي فورم به أزرار وهي كالتالي تعديل/ حفظ التعديل/ جديد / حفظ الجديد / إلغاء الامر المشكلة هي عند الضغط على زر جديد يتم تميكن زر حفظ الجديد أنا أريد عند الضغط على زر إلغاء الأمر يتم تمكين زر جديد أنا حاولت ولم أستطع عند الضغط على إلغاء الأمر يتم تمكين زر تعديل وأنا أريد زر جديد نجحت معي في زر إلغاء التعديل في تعمل تمام والمرفق التالي يوضح ذلك التحكم بالأزرار.rar ملاحظة زر إلغاء الأمر في بداية مرتبط بالكمبوبوكس 1 وهذا عند الإضافه ومرتبط بالكمبوبوكس2 بزر تعديل عند إلغاء التعديل أرجو أن تكون مشكلتي قد تم فهمها وبارك الله فيكم

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

بعد إذن الأستاذ أبو حنين الملف يعمل تمام جعلت الكلمات مقلوبة لترى أن الملف يعمل مـرآة.rar

بعد إذن الاستاذ ابو حنين تفضل أخي الملف يعمل تمام

أخي الكريم قم بضغط الملف عن طريق برنامج الوينرار وبعد ذلك قم بعملية الرفع ستنجح معك العملية

الاستاذ القدير/ عبد الله باقشير دائما تتحفنا بجديدك الرائع بارك الله فيك وربي يجزيك الجنة