sama202

السلام عليكم ممكن المثال بتنسيق 2003

اعلم اخى الفاضل أريد الكود يكزن فى التنسيق الشرطى او فى حدث التفصيل

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

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

اخى الفاضل   هذا اكود لقيته فى احدى مواضيع المنتدى   ضع الدالة التالية في وحدة نمطية عامة function newpaging()          codeContextObject.page = 1 end function في حدث "عند التنسيق" لمقطع رأس المجموعة استدع الدالة بالشكل التالي call newpaging

اخى الفاضل هذا الكود موجود بمشاركه سابقه   ضع الدالة التالية في وحدة نمطية عامة function newpaging()          codeContextObject.page = 1 end function   في حدث "عند التنسيق" لمقطع رأس المجموعة استدع الدالة بالشكل التالي call newpaging   جربتها ونجحت مشكلتى انا بقا فى  ( من صفحه رقم  الى صفحه رقم) مش عاوزه تظبط

بارك الله لنا فيك اخى الفاضل وزادك من علمه الان الكود اشتغل 100/100

اخى الفاضل جزالك الله خيراً احمد.rar

اخى الفاضل اسف على تعبك  مسحت Me.FormHeader. من الكود واشتغل ولكن انا عندى الصفوف (8) يعنى المفروض لما اشغ الكود يقف على رقم (9) ولكنه يقف على رقم (15) اسف على الاطاله وعلى عدم ارسال القاعده لانها تحتوى على بيانات العمل

اخى الفاضل السلام عليكم ورحمة الله   عند التطبيق خلى البرنامج عندى يظهر لى خطأ بالكود مظلل كالنالى: علما بان التموذج المطبق علي مبنى على استعلام 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  

بارك الله فيك اخى الفاضل وجزاك خيراً وزادك الله من فضله

اخى الفاضل ممكن التعديل على 2003

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

اخوانى بالمنتدى السلام عليكم هذا الكود موجود بنموذج 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 هو الجدول الفرعى الموجود به الثلاث خانات المراد الاستعلام   مع العلم الكود ناجح بدون الاستعلام عن البيان والملاحظات وعند اضافت الكود الخاص بهم لايعمل الا مع اخر كود فقط وهو الملاحظات اسف للاطاله وعدم استطاعتى لارسال البرنامج لان بها بيانات العمل  

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