اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


spyhearts
إذهب إلى أفضل إجابة Solved by محي الدين ابو البشر,

الردود الموصى بها

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

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

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

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

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

 

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

userform-.xlsm

رابط هذا التعليق
شارك

سلام عليكم

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

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

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

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

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

userform-.xlsm

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

بس هو LABEL  اتغيرت 

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

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

2.jpg

1.jpg

رابط هذا التعليق
شارك

التغيير لل LABEL 

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

textbox1 خلية A4

textbox1 خلية B4

textbox1 خلية C4

textbox1 خلية E4

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

شكرا لحضرتك

رابط هذا التعليق
شارك

مرفق لك المل

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

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

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

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

userform.xlsm

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

وجزال الله خيرا استاذ وايليimage.png.3707649ff32225b5a49c0626d7ae2c23.png

رابط هذا التعليق
شارك

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

 

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

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

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

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

image.png.4208ab08af0c0ff6707fdaa0a6a8505b.pngimage.png.fab4e6fa41e93a282a89ecf86547f054.png

userform.xlsm

  • Like 1
رابط هذا التعليق
شارك

استاذ وايلي

ماشاء الله 

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

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

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

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

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

لو تكرمت

تم تعديل بواسطه 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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

يكون ازاي

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

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

كدا 14-12-1444 هـ

تم تعديل بواسطه 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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

هل فيه كدا كدا

رابط هذا التعليق
شارك

السلام عليكم

خى الفاضل /

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

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

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

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information