اضافة اكواد لليوزر فورم

[spyhearts]

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

الأساتذة الافاضل

فضلا وليس امرا 

التكرم  بالمساعدة في اليوزر فوم المرفق

كود الإضافة والبحث والتعديل والحفظ 

 

ولكم جزيل الشكر

userform-.xlsm

[وايلي حبيب]

سلام عليكم

مرفق لك الملف اخوي spyhearts

لكن تحتاج لتنسيق الاكواد الخاصة بك

تم ترتيب الجدولة للملف

تم ترتيب كود الاضافة وكود الحفظ وكود التعديل وكود الحذف وكود البحث

تحتاج الحين لمساتك الشخصية لملفك لانه تم التعديل بالكامل

userform-.xlsm

[spyhearts]

السلام عليكم استاذ وايلي حبيب

الف شكر لحضرتك 

جزاك الله خيرا

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

[وايلي حبيب]

انا بالنسبة لي اشوف الملف تمام

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

هذي من عندك تكون

اما اذا ما تحاتاج انت لبعض البيانات الملف تمام ومافية ملاحظات

ويمكن انك تجربه اذا فية مشكلة بلغني

[spyhearts]

الملف ماشاء الله 

حضرتك تعبت فيه ربنا يبارك لك

بس هو LABEL  اتغيرت 

حضرتك لو شوفت اليوزرفورم الاثنين

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

[وايلي حبيب]

التغيير لل LABEL 

عشان اقدر ارتب الادخال حسب بيانات الملف الاكسل مثلا

textbox1 خلية A4

textbox1 خلية B4

textbox1 خلية C4

textbox1 خلية E4

......................................وكذا الين النهاية

بالنسبة لشلشة الدخول ابشر

[spyhearts]

طيب تمام حضرتك حضرتك 

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

وشكرا لحضرتك على المساعدة

بالنسبة لشاشة الدخول ممكن يكون فيه admin معاه الصلاحيات و3 اشخاص فقط معاهم الاضافة والبحث فقط والادمن معاه كل الصلاحيات

اكون شاكر جدا لحضرتك

 

[spyhearts]

استاذ وايلي حبيب

لو تفضلت حضرتك 

يوجد عدد 2 تيكست بوكس لم يظهر بهم بيانات ولكن البيانات في الاكسيل

وبالنسبة للاضافة بعد ما حذفت البيانات وضفت جديد تفاجأت انه يقوم بالاضافة من اول الصف 13

هذا ما واجهني بمع استخدام الملف 

شكرا لحضرتك

[وايلي حبيب]

مرفق لك المل

شاشة دخول اكثر من مستخدم  ( ادمن - ويوزر)

المستخدم (a) 123 ادمن

1لمستخدم (b)  123 يوزر

كلمة السر لاضفاة او حذف او تعديل مستخدم  1234

userform.xlsm

[spyhearts]

السلام عليكم

ما شاء الله استاذ وايلي شاشة دخول رائعة 

ولكن نفس المشكلة يوجد عدد 3 تيكست بوكس لم يظهر بهم اي نتائج مع العلم تم تعبئة كامل الخانات

وعند محاولة تغير ليكون البحث بكود الاصل وليس المسلسل ظهر خطأ

هل حضرتك فسه وقت لحل المشكلة

وجزال الله خيرا استاذ وايلي

[وايلي حبيب]

السلام عليكم ورحمة الله

 

اولا ياغالي تم حل المشكلة في 3 textbox

ثانيا البحث بكود الاصل الترقيم التلقائي العمود (A)

ثالثا مرفق صورة للبرنامج

صور من البرنامج

userform.xlsm

[محي الدين ابو البشر]

بالاذن منكم

أعتقد هكذا مع بض اللمسات🙏

userform.xlsm

[spyhearts]

استاذ وايلي

ماشاء الله 

تسلم ايديك شغل فاخر من الاخر

منتظر من حضرتك 

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

استاذ محي الدين ابو البشر

تسلم ايديك ممكن حضرتك تقول اللمسات ايه

لو تكرمت

تم تعديل ديسمبر 11, 2022 بواسطه spyhearts

[محي الدين ابو البشر]

clsTB
= 
Sub clsTB()
 For i = 1 To 25
 UserForm1.Controls("TextBox" & i).Value = ""
 Next
 End Sub

بدل
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""
Me.TextBox19.Value = ""
Me.TextBox20.Value = ""
Me.TextBox21.Value = ""
Me.TextBox22.Value = ""
Me.TextBox23.Value = ""
Me.TextBox24.Value = ""
Me.TextBox25.Value = ""

مثلا

doc.docx

[spyhearts]

شكرا لحضرتك استاذ محي الدين ابو البشر

لو حبيت اضيف امر ترحيل للطباعة البيان 

مثلا بحثت وعدلت البيانات وحفظت وكنت عاوز اطبع بيانات الاصل بعد التعديل فقط يكون مثلا في شيت منفصل

يعني يفصل بيانات الاصل للطباعة 

يكون ازاي

استاذ وايلي حبيب

لو امكن اغير التاريخ في الفورم يكون هجري ازاي

كدا 14-12-1444 هـ

تم تعديل ديسمبر 11, 2022 بواسطه spyhearts

[elmansyeswa]

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

[وايلي حبيب]

السلام عليكم

تابع الموضوع هذا وان شاء الله تستفيد منه

 

 

[spyhearts]

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

شكرا استاذ وايلي حبيب بالنسبة الى :-

لو تكرمت ممكن طريقة ادراج التاريخ الهجري فقط في التيكست بوكس ؟

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

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

ولو امكن كود لمنع نسخ الملف الى جهاز اخر 

واكون شاكر لك

[حسونة حسين]

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

اخى @spyhearts ضع هذا في UserForm1 وجرب كتابه اي تاريخ ميلادي سوف يعطيك تاريخ اليوم هجرى اما ان كتبت التاريخ هجري سوف يكتبه لك كما كتبته

Private Sub TextBox11_AfterUpdate()
  If Year(TextBox11.Value) > 1500 Then
        a = Format(TextBox11.Text, "0")
        TextBox11.Value = ""
        MsgBox "هذا ليس تاريخ هجري "
        VBA.Calendar = vbCalHijri
        TextBox11.Text = Format(a, "[$-1170000]yyyy-mm-dd;@")
    End If
End Sub

وايضا اخى كل طلب يكون له موضوع مستقل ليكون مرجع وللاستفادة المستقبليه للاعضاء

[spyhearts]

28 دقائق مضت, hassona229 said:

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

اخى @spyhearts ضع هذا في UserForm1 وجرب كتابه اي تاريخ ميلادي سوف يعطيك تاريخ اليوم هجرى اما ان كتبت التاريخ هجري سوف يكتبه لك كما كتبته

Private Sub TextBox11_AfterUpdate()
  If Year(TextBox11.Value) > 1500 Then
        a = Format(TextBox11.Text, "0")
        TextBox11.Value = ""
        MsgBox "هذا ليس تاريخ هجري "
        VBA.Calendar = vbCalHijri
        TextBox11.Text = Format(a, "[$-1170000]yyyy-mm-dd;@")
    End If
End Sub

وايضا اخى كل طلب يكون له موضوع مستقل ليكون مرجع وللاستفادة المستقبليه للاعضاء

شكرا استاذ hassona229

تمام اتعدل معايا

بخصوص فتح موضوع فعلا كلامك صح بعتذر منك

فاضل كود منع النسخ الفتح على جهاز اخر 

هل فيه كدا كدا

[وايلي حبيب]

السلام عليكم

خى الفاضل /

هذا الملف لأحد الزملاء

افتحه قد يفى بالغرض

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

[spyhearts]

شكرا استاذ وايلي