sama202

اخى الفاضل هذا اكود لقيته فى احدى مواضيع المنتدى ضع الدالة التالية في وحدة نمطية عامة 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.WindowH…

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

اخى الفاضل ممكن التعديل على 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…

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

اخى الفاضل كل الشكر لك ممكن خانة الرقم العشرى تكون بدون الفصله الموجوده 0.30 تصبح 30 وشكرا مجهودك

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

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

اخى الفاضل شكرا لك فأنت تستحق كل تقدير واحترام وفى انتظار النسخه بأذن الله

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

اخى الفاضل جرب هذا الكود فهو يقوم باختيار النماذج من اى قاعدة اخرى Dim app As New Access.Application app.OpenCurrentDatabase "D:\احمد عبدالله\قواعد تسويات البنك\نهاية خدمه ومبالغ معلاه.mdb" app.DoCmd.OpenForm "القائمة"

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

اخى معذرة حمل المثال بتنسيق 2003

السلام عليكم كنت افضل لو تضيف مثال للتطبيق عليه