فورم بحث وتعديل وحفظ احتاج مساعدة بالكود له

[yara ahmed]

اخواتى حبايبى الاصدقاء الزملاء العباقرة

احتاج مساعدة بهذا الفورم المرفق وكتابة كود لكى يعمل مع خالص شكرى

البحث اما بالرقم القومى او رقم الكود والتعديل يتم  على المصروف 

وخالص دعائى

فورم..xlsm

[سليم حاصبيا]

تم معالجة الامر بالنسبة لزر "حفظ " والباقي فيما بعد لضيق الوقت

1- تم تحسين مظهر اليوزر من حيث التنسيق

2- لا تتم عملية الترحيل الى الشيت الا اذا كانت كل التكست بوكسات
     (الرقم    القومى / رقم الكود/ الاسم /  المصروف) غير فارغة 
    نظهر رسالة بعدد التكست بوكسات الفارغة

3- الكود لا يسمح بتكرار البيانات (اي بيانات مكررة يقوم الكود بحذفها على الفور

4- يمكن التنقل والعمل داخل الشيت حتى ولو كان اليوزر ظاهراً

5- جربي وهاتي رأيك

YARA_uSER.xlsm

[yara ahmed]

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

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

شكرى وحبى وكل حاجة حلوة لا تكفيك حقك وتعبك وكرمك يامستر ياجميل 

[سليم حاصبيا]

تم معالجة الأمر

1- للبحث 
     * تعبئة احد التكست بوكسات الخضراء ( ليس الاثنين معاً) بما تريد البحث عته (مع مراعاة وجود ما تريد البحث عنه في الجدول بنفس العامود)
        اذا كان ما يبحث عنه موجوداً ( ولو في اكثر من صف) تظهر كل البيانات على الليست بوكس
       و اذا لم بكن موجوداً يتوقف الماكرو

2-للتعديل (او الحفظ من جديد) 

        بعد اجراء عملية البحث

     * اضغط على اي صف من الليست بوكس (ما عدا الصف الأول    العناوين) 
          تظهر لك بيانات الصف   الرقم القومي و رقم الكود (في المربعات الحضراء)
          يظهر لك المصروف القديم (المربع الأصفر الاول    غير قابل للكتابة بداخله)
          ورقم الصف ( المريع الزهري)  امّا المصروف الجديد عليك ان تحدده بنفسك (المربع الأصفر الثّاني)
     * اكتب الرقم الجديد للمصروف في المربع الأصفر الثاني
     * اضغط الزر "حفظ" عندها تنتقل المعلومات الى الشيت و الليست بوكس في نفس الوقت

3- الملف مرفق وعسى أن ينال الإعجاب

YARA_FORM..xlsm

[yara ahmed]

اخى فى الله انى احبك فى الله حفطك الله وبارك فيك انت مش ممكن رائع رائع رائع رائع رائع رائع

بارك الله فيك 

اختك

[yara ahmed]

اخى استاذ سليم واجهتنى مشكلة 

الليست لا تخرج البيانات كاملة الاسم غير كامل 

مش عارفة ايه الحل الاسم بيكون رباعى

لو مفيش حل ممكن الليست تعرض العمودين

EوFفقط

شاكرة كرمك

بارك الله فيك

[سليم حاصبيا]

ممكن ان ينفع هذا التعديل

YARA_FORM_New..xlsm

[yara ahmed]

اخى استاذ سليم حاصبيا الفاضل

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

ثم اقوم بوضع رقم جديد اضغط بحث لا يحدث شئ ويجب ان اغلق الفورم واعيد فتحه ليقوم بالبحث

مع اعتذارى وكل شكرى ليك من قلبى والله

YARA_FORM_New..xlsm

[سليم حاصبيا]

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

لذلك قبل البدء يعملية البحث الجديد قومي بمسح المربع الذي لا تريدينه

[yara ahmed]

اخى فى الله تمام كلامك صحيح جدا

بس لما اعمل بحث بالرقم القومي لايعمل وتظهر رسالة غير موجود مع أنه موجود

اخى الكريم اشكرك من كل قلبى

 

[سليم حاصبيا]

تم معالجة الامر 

      تم اضافة  ChecBox لاختيار حقل البحث عندها لا تجدث مشاكل
  1-اختيار احد ChecBox يسمح لك بالكتابة فقط في المريع المناسب ويقوم يتفريغ المربع الآخر
  2- تم اضافة ميزة جديدة بحيث يتلون السطر الذي تم اجراء التعديل عليه

 

الملف من جديد

 

YARA_FORM_Super..xlsm

[yara ahmed]

اخى فى الله سليم حاصبيا اولا اشكرك اشكرك اشكرك الفورم والتنسيق رائع

نفس المشكلة والله بعد ما اختار الكود او الرقم القومى واختار بحث ثم حفظ 

اقوم بكتابة رقم اخر لا يعمل

ملحوظة الاسماء التى بالشيت تحفة جدااااااااااااا كنت هموت من الضحك وانا بقرأها 

كل حبى وشكرى وكل العرفان لك اخى واستاذى ومعلمى 

تم تعديل سبتمبر 17, 2020 بواسطه yara ahmed

[abouelhassan]

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ

ويتم تغير هذا الجزء من الكود

Private Sub BT_SAVE_Click()
Dim old_num
Set sh = Sheets("Sheet1")
last = sh.Cells(Rows.Count, 1).End(3).Row
 If last = 1 Then Exit Sub
 sh.Range("A2:G" & last).Interior.ColorIndex = 35
  If Me.T_NewMASROUF.Value = "" Then
   MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _
    vbMsgBoxRtlReading
  Exit Sub
  
  End If
  old_num = LB_Kadim.Caption
  With Me.ListBox1
  If .ListIndex < 2 Then Exit Sub
  x = .List(.ListIndex, 7)
  sh.Cells(x, 7) = Me.T_NewMASROUF.Value
  .List(.ListIndex, 0) = Me.T_NewMASROUF.Value
  End With
  Me.ListBox1.ListIndex = -1
  Me.LB_Kadim.Caption = old_num
  sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40
  Application.Goto sh.Cells(x, 1)
    Me.T_CODE = ""
  Me.T_KOUMI = ""
Me.LB_Kadim = ""
Me.T_NewMASROUF = ""
End Sub

اخر اربع اسطر مسئولين عن مسح الحقول 

سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله

احترامى لشخصك الكريم

[yara ahmed]

الف شكر جارى التجربة

بارك الله فيك

[سليم حاصبيا]

أعتقد المشكل هنا

يجب تبديل الرقم 7 الى  الرقم 1

 

عندي يعمل بشكل رائع

[سليم حاصبيا]

اخر اربع اسطر مسئولين عن مسح الحقول

لا قيمة لهذا الأمر بالنسبة للخطأ الذي تقصده الأخت يارا

[yara ahmed]

ربنا يكرمك يارب استاذى واخى

تمام جداااااا ربنا يباركلك يا باشا

ويعزك ويسترك اللهم امين يارب

[سليم حاصبيا]

   اذا اعجبتك الاسماء أرجو ابتكار المزيد مثلها (مع الاسماء المؤنّثة)

انصح باضافة هذين السطرين على الكود ( في المكان المتاسب حسب الصورة )  لمسح التكست بوكس المناسب تحضيراً للبحث التالي

 

 

[yara ahmed]

ربنا يكرمك يارب انت اجدع شخص عرفته بالمنتديات واكرم شخص والله ربنا يكرمك 

اخى فى الله

الف شكر لك اخويا الغالى لقلبى