• الإعلانات

    • فيصل الحربي

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

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

sama202

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

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

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

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

4 عادي

عن sama202

  • الرتبة
    عضو
  • تاريخ الميلاد 08/05/1980

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر
  1. طريقة بحث

    السلام عليكم ممكن المثال بتنسيق 2003
  2. اعلم اخى الفاضل أريد الكود يكزن فى التنسيق الشرطى او فى حدث التفصيل
  3. اخى الفاضل جزاك الله خيرا على سرعة استجابتك وعلى مجهودك ولكتى افضل التغير يكون بداخل التقرير او استخدام التنسيق الشرطى
  4. السلام عليكم اخوانى بالمنتدى   رجاى التكرم التعديل على التقرير المرفق   المطلوب   عندى حقل اسمه التسليم   اريد عندما يكون حقل تاريخ الصرف لايساوى تاريخ التسليم يتم حذف علامة الصح الموجودة بحقل التسليم   ولايشترط التعديل على الجدول   ملحوظة اريد بعد حذف علامة الصح ان يعاد ترتيب الحقول فى التقرير كما هى مرتبه قبل التسليم وسلمت   اسف للاطالة   احمد.rar
  5. اخى الفاضل   هذا اكود لقيته فى احدى مواضيع المنتدى   ضع الدالة التالية في وحدة نمطية عامة function newpaging()          codeContextObject.page = 1 end function في حدث "عند التنسيق" لمقطع رأس المجموعة استدع الدالة بالشكل التالي call newpaging
  6. اخى الفاضل هذا الكود موجود بمشاركه سابقه   ضع الدالة التالية في وحدة نمطية عامة function newpaging()          codeContextObject.page = 1 end function   في حدث "عند التنسيق" لمقطع رأس المجموعة استدع الدالة بالشكل التالي call newpaging   جربتها ونجحت مشكلتى انا بقا فى  ( من صفحه رقم  الى صفحه رقم) مش عاوزه تظبط
  7. بارك الله لنا فيك اخى الفاضل وزادك من علمه الان الكود اشتغل 100/100
  8. اخى الفاضل اسف على تعبك  مسحت Me.FormHeader. من الكود واشتغل ولكن انا عندى الصفوف (8) يعنى المفروض لما اشغ الكود يقف على رقم (9) ولكنه يقف على رقم (15) اسف على الاطاله وعلى عدم ارسال القاعده لانها تحتوى على بيانات العمل
  9. اخى الفاضل السلام عليكم ورحمة الله   عند التطبيق خلى البرنامج عندى يظهر لى خطأ بالكود مظلل كالنالى: علما بان التموذج المطبق علي مبنى على استعلام Private Sub cmd_Next_Click() Form_Title_Bar_Height = 405     Form_Navegation_Bar_Height = 405          Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))     End Sub  
  10. بارك الله فيك اخى الفاضل وجزاك خيراً وزادك الله من فضله
  11. اخى الفاضل جزاك الله خيرا وزادك من علمه
  12. اخوانى بالمنتدى السلام عليكم هذا الكود موجود بنموذج Private Sub txt_Change() Dim VarSearch As String VarSearch = "*" & txt.Text & "*" Me.f1.Form.Filter = "العملاء  like '" & VarSearch & "'" Me.f1.Form.Filter = "البيان like '" & VarSearch & "'" Me.f1.Form.Filter = "ملاحظات like '" & VarSearch & "'"   Me.f1.Form.FilterOn = True End Sub     ممكن التعديل على هذا الكود حتى يتم الاستعلام فى ثلاث خانات فى نفس الوقت فى نفس الوقت حيث ان العملاء خانه رقم 1 والبيان خانه رقم2 وملاحظات خانه رقم3   وf1 هو الجدول الفرعى الموجود به الثلاث خانات المراد الاستعلام   مع العلم الكود ناجح بدون الاستعلام عن البيان والملاحظات وعند اضافت الكود الخاص بهم لايعمل الا مع اخر كود فقط وهو الملاحظات اسف للاطاله وعدم استطاعتى لارسال البرنامج لان بها بيانات العمل  
  13. جزاك الله خيرا اخى الفاضل وجعله الله فى ميزان حسناتك