• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

loveforever

اعضاء
  • عدد المشاركات

    151
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن loveforever

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. بسم الله الرحمن الرحيم هل يمكن توحيد الكتابة في التكست بوكس بحيث يتم ظهور الاسماء بغض النظر عن كتابتها مثلا : أحمد تظهر بنفس الطريقة لو كتبناها احمد لسهولة الاستعلام واسترجاع المعلومات شكرا
  2. بسم الله الرحمن الرحيم كل التحية والشكر لأعضاء منتدانا العظيم قرأت هذا الكود واستخدمه احد الاعضاء في البحث عن عميل وحاولت ان استخدمه فأريد من الاخوة الفاضل بشرح الكود: On Error GoTo Err_Cmnd1_Click Dim SK1 As String, SK2 As String If Me.et1 = 2 Then '*************** If Nz(Me.TxtSearch, "") = "" Then Exit Sub If Me.Etar2 = 1 Then SK1 = "[customer_name]" Else SK1 = "ForSearch([customer_name])" If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'" Me.sbfform.Form.FilterOn = True If Me.Etar1 = 1 Then Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'" ElseIf Me.Etar1 = 2 Then Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'" Else Me.sbfform.Form.Filter = SK1 & " Like " & SK2 End If وشكرا لكم
  3. بسم الله الرحمن الرحيم كل التحية والشكر لأعضاء منتدانا العظيم قرأت هذا الكود واستخدمه احد الاعضاء في البحث عن عميل وحاولت ان استخدمه فأريد من الاخوة الفاضل بشرح الكود: On Error GoTo Err_Cmnd1_Click Dim SK1 As String, SK2 As String If Me.et1 = 2 Then '*************** If Nz(Me.TxtSearch, "") = "" Then Exit Sub If Me.Etar2 = 1 Then SK1 = "[customer_name]" Else SK1 = "ForSearch([customer_name])" If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'" Me.sbfform.Form.FilterOn = True If Me.Etar1 = 1 Then Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'" ElseIf Me.Etar1 = 2 Then Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'" Else Me.sbfform.Form.Filter = SK1 & " Like " & SK2 End If وشكرا لكم
  4. في انتظار اجابتكم
  5. بسم الله الرحمن الرحيم اشكرك اخي علي مرورك الكريم علي الموضوع اما بخصوص السؤال فأنا أطلعت سابقا علي شرح أستاذتنا زهرة ورأيت أنها قامت بالربط بين مكتبة dao و دالة elookup ومن خلال الوصول الي البيانات عن طريق هذه المكتبة. فهل بنفس الكيفية يمكن الربط مابين دالة elookup تتعامل مع البيانات ومكتبة ado كمكتبة تقوم بالأتصال بالبيانات؟ أتمني ان أكون اوضحت ماأقصده شكرا
  6. بسم الله الرحمن الرحيم هل يمكن استخدام دالة ELOOKUP مع ADO ارجو شرح ذلك أن امكن شكرا لكم
  7. والله استقبلت خبر رجوعك بسعادة بالغة فانت رمز من رموز هذا المنتدي
  8. بسم الله الرحمن الرحيم كيف يمكن حفظ السجلات في النموذج والتعديل فيها باستخدام الاكواد وربط ذلك بالادو. ارجو ان تدلوني علي رابط يشرح هذا الموضوع او ان يتفضل احد الاخوة بشرحة لي. شكرا لكم جميعا
  9. اشكرك علي الاجابة
  10. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كيف يمكن المحافظة علي حجم النموذج بدون تغيير بعد انهاء تصميمه ،بحيث لايمكن لاحد التحكم في تكبير او تصغييره بالوقوف بالفأرة علي احد جانبيه. اشكركم جميعا
  11. ]الف شكر يااخي علي هذه المعلومات القيمة ولكن ارجو توضيع كيف يمكن ارسال الصورة الي الخلف وهل من الورد امن خصائص الصورة ام النموذج.
  12. بسم الله الرحمن الرحيم اولا :اشكر للأخ كمال النحال علي برنامجه الرائعز ثانيا:اود ان استفسر كيفية اضافة الصور للنموزج واضافة التكست واسماء الحقول علي الصورة بهزه الطريقة الرائعة ارجو ولو شرح بسيط شكرا
  13. اشكرك اخي الفاضل علي الرد والأجابة ،وان كنت ارغب في زيادة الأجر لك وان تشرح لي الكود المستخدم ،حتي لاصبح كمن يستخدم طريقة اللصق والنسخ فقط . Private Sub Form_Open(Cancel As Integer) Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub Private Sub Form_Timer() Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideWidth >= 4000 Then Me.TimerInterval = 0 Me.InsideWidth = 4165 End If End SubOption Compare Database
  14. بسم الله الرحمن الرحيم كيف استطيع ان اصنع نموذج يكبر تدريجيا مثل النماذج التي شاهدتها لبعض الاخوة. شكرا لكم