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

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

قام بنشر

أخى الحبيب / محمد أبو البراء

شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والشعور الطيب

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

  • Like 1
قام بنشر

أخى الحبيب / ابراهيم

شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والشعور الطيب

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

  • Like 1
قام بنشر

أخى الفاضل

هل تقصد هكذا

نعم هذا هو المطلوب بارك الله فيك أخي رجب جاويش

ياريت تشرح لي اين كان الخطا

أستاذي رجب جاويش

عندما تقوم بتعديل بيانات معينة لا يتم ترحيلها في مكانها بل ترحل كأنها إضافة من جديد

لا حظ ذلك؟

قام بنشر

تفضل أخى

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

عملت عرض الأول صفر وهو المحتوى على الرقم حتى لا يظهر

وأظهرت الآخر المحتوى على الاسم

 

وعدلت كود تعديل البيانات

 

 

 

البحث بتاريخ الميلاد.rar

  • Like 1
قام بنشر

بارك الله فيك أستاذي /رجب جاويش عند البحث بتاريخ الميلاد ويكون مكر تظهر أسماءالأشخاص الذين تواريخهم مكرره وعند إختيار واحدمنهم تظهر النتائج كاملة في التكيست بوكس نأتي للمشكله عند البحث ولا يكون تاريخ الميلاد مكرر النتائج لا تظهر كاملة في التيكست بوكس شاهد المرفق

1111.rar

قام بنشر

اخى الجموعى

تفضل اولا ما قمت بمراسلتى به

Sub HMA1()

end

هذا الكود هو الذى يقوم باستدعء البيانات الى الكوموبوكس 3

وكلمة END

تقوم بانهاء عمل الفورم

البحث بتاريخ الميلاد.rar

  • Like 1
قام بنشر

شكرا وبارك الله فيك أخي إبراهيم على عمل المطلوب جزاك الله خيرا في إنتظار الأستاذ رجب جاويش للمطلوب السابق

قام بنشر

تفضل أخى

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

عملت عرض الأول صفر وهو المحتوى على الرقم حتى لا يظهر

وأظهرت الآخر المحتوى على الاسم

 

وعدلت كود تعديل البيانات

بارك الله فيك أستاذي /رجب جاويش عند البحث بتاريخ الميلاد ويكون مكر تظهر أسماءالأشخاص الذين تواريخهم مكرره وعند إختيار واحدمنهم تظهر النتائج كاملة في التكيست بوكس نأتي للمشكله عند البحث ولا يكون تاريخ الميلاد مكرر النتائج لا تظهر كاملة في التيكست بوكس شاهد المرفق

ملفات مرفقة
  • zip.gif  1111.rar   145.06كيلو   4 عدد مرات التحميل
قام بنشر

اخى الجموعى

تفضل اولا ما قمت بمراسلتى به

Sub HMA1()

end

هذا الكود هو الذى يقوم باستدعء البيانات الى الكوموبوكس 3

وكلمة END

تقوم بانهاء عمل الفورم

 

شكرا وبارك الله فيك أخي إبراهيم على عمل المطلوب جزاك الله خيرا في إنتظار الأستاذ رجب جاويش للمطلوب السابق

قام بنشر

تفضل أخى

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

جمغه مباركة علينا وعليكم

بارك الله فيك أستاذي رجب جاويش

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

جعلها الله في موازين حسناتك

ملاحظه

عند إدخال تاريخ ميلاد في الشيت بهذا التنسيق

"dd-mm-yyyy"

وعند تشغيل الفورم النتائج لا تظهر

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

هل من طريقة لحل هذه المشكلة

هل من طريقة لإرغام التيكست بوس 1 إدخال الأرقام فقط وتكون تنسيقها على هذا الشكل

post-80346-0-29042000-1394785061_thumb.j

أوفكره أخرى مثلا

post-80346-0-07275200-1394785352_thumb.j

قام بنشر

أخى الفاضل

هل تقصد هكذا

نعم هذا ما قصدته

في إنتظار بقية الطلبات

هل من طريقة لإرغام التيكست بوس 1 إدخال الأرقام فقط وتكون تنسيقها على هذا الشكل

post-80346-0-29042000-1394785061_thumb.j

أوفكره أخرى مثلا

post-80346-0-07275200-1394785352_thumb.j

قام بنشر

أخى الفاضل

جرب المرفق

أستاذي رجب جاويش ماذا أضفت في المرفق الجديد

أعتقد انه مثل المرفق في المشاركة 37

على العموم شكرا وماقصرت

لا أجد ما يوفيك حقك

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

وفقك الله لكل خير وجزاك الله عنا خير الجزاء

قام بنشر

أخى الفاضل / الجموعى

لقد أضفت هذا الكود فى حدث الخروج من الـ TextBox1 للتأكد من كتابة التاريخ بطريقة صحيحة

جرب كتابة أى حروف وليس أرقام ولاحظ النتيجة

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text <> "" Then
        If IsDate(TextBox1.Text) Then
            TextBox1.Text = Format(TextBox1.Text, "yyyy-mm-dd")
        Else
            MsgBox "من فضلك أدخل تاريخ صحيح"
            Cancel = True
        End If
    End If
End Sub

قام بنشر

 

أخى الفاضل / الجموعى

لقد أضفت هذا الكود فى حدث الخروج من الـ TextBox1 للتأكد من كتابة التاريخ بطريقة صحيحة

جرب كتابة أى حروف وليس أرقام ولاحظ النتيجة

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text <> "" Then
        If IsDate(TextBox1.Text) Then
            TextBox1.Text = Format(TextBox1.Text, "yyyy-mm-dd")
        Else
            MsgBox "من فضلك أدخل تاريخ صحيح"
            Cancel = True
        End If
    End If
End Sub

لقد قمت بتجربة ذلك فالحروف تكتب عادية

شاهد الصورة

post-80346-0-16534200-1394808797_thumb.j

قام بنشر

أخى الفاضل

جرب هذه الفكرة

الله الله عليك يا أستاذي

فكره رائعه جدا

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

وأخيرا تم المطلوب بنجاح

أستاذي سأرفع لك هذا الملف

راجع معي زر التعديل به مشكل لا أعرف ما السبب في الفورمات 3

إذا عندك متسع من الوقت

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

البحث بتاريخ الميلاد ‫‬.rar

قام بنشر

أخى الفاضل

أرجو توضيح أكثر لما تقصده

 معذرة أستاذي أقصد زر حفظ التعديل

عند تعديل أي من البيانت في الفورمات3 وعند حفظ تعديلها تظهر نافذه الخطأ

قام بنشر

أخى الفاضل / الجموعى

ماذا تقصد بـ الفورمات 3

UserForm1

UserForm2

UserForm3

نفس المشكلة في زر حفظ التعديل

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information