biskra

بطريقة مماثلة ضع في مصدر البيانات للحقل الذي تريد أن يظهر فيه المجموع الكود التالي : =[d1]+[d2]+[d3] بحيث أن d1,d2 و d3 هي حقول النموذج التي تدخل فيها الأرقام, فكلما أدخلت رقما في حقل d1 مثلا فاٍن عملية الجمع تتم تلقائيا بعد الضغظ على زر الأنتر و هذا مثال مرفق يوضح كيف تتم العملية db1.rar

أخي أبو فنان اٍليك هذا المثال المرفق المصمم من طرف الأستاذ فهد الدوسري مصمم بواسطة الأكسس سهل الاستعمال , يمكنك اٍتباع نفس الطريقة للوصول الى الغاية التي تريدها. أمثلة عن أكواد الأكسس1.zip

القيمة الاٍفتراضية تساوي واح 1= و اٍلا فاٍن النتيجة لا تتحقق و الله أعلم

السطر الأول من الكود تغير و لا أعرف السبب () Click _امر42 Private Sub

() Click _امر42 Private Sub Dim intResponseToMsgBox As Integer intResponseToMsgBox = MsgBox("أكتب هنا الرسالة التي تريد أن تظهر لك", vbOKCancel) If intResponseToMsgBox = vbOK Then Me.contrul_no = contrul End Sub جرب هذا الكود ففي حالة الموافقة سوف ينفذ الاٍجراء و في حالة الرفض لا ينفذ

تجد مثالا لما تريده بالضبط من تصميم الأستاد الفاضل أحمد الحربي مع تعديل بسيط تعلمته من منتدى أوفسينا الجميل لجعل السجل الأول يختلف عن الذي يليه في اللون مما يعطيه وضوحا و جمالا. filterByDate.rar

عن طريق الكود يكون كالتالي: في بداية الكود: DoCmd.SetWarnings = False في نهاية الكود: DoCmd.SetWarnings = true

ممكن ذلك عن طريق خاصية قاعدة البيانات في شريط الأدوات: 1 خيارات 2 تخصيص 3 تحرير و بحث 4 تجدين خانات تأكيد أزيلي علامات صح حسب رغبتك. أظن أن هذا حلا و يمكن أن يتم ذلك عن طريق الكود.

مثال بالأكسس يمكنك بواسطته تصفح المواقع على النت و المخزنة في الجدول, فاٍذا حاولت أن تتصفح موقعا غير موجود في الجدول فاٍنه سوف يتم نقلك تلقائيا الى google جرب منتدى أوفسينا في السجل رقم 2 ____________________________.rar

تفضل أخي هذا المثال الممتاز من تصميم الأستاذ فهد الدوسري" لست متأكدا من صاحبه الحقيقي" الآن أخطأت أسأل المعذرة و هو مثال يعبر عن معرفة عالية, يمكنك من نقل الحقول ببياناتها من قاعدة الى أخرى . وفق الله و ضاعف أجر من صممه. ___________________________.zip

هذا مثال عن البحث عن الرقم المفقود ربما يساعدك على ايجاد الحل لمشكلتك, و سوف أبحث لك عن مثال مشابه لكنه يمتاز عن المثال المرفق في أنه يمكنك من تحديد مجال البحث عن الرقم المفقود كأن تطلب أن يبحث لك عن الأرقام المفقودة بين 1 و 10 مثلا. ______________________.rar

الأخ مهند تمكنت في النهاية من اٍستغلال الزر الذي قمت بتصميمه,فقط وجدت صعوبة في زر اٍجراء بحث لأنه له خاصية تغيير اْسم الزر الى اٍنهاء البحث, بالالآضافة الى الخطأ الذي يظهر عند الظغط على زر أبحث الآن و الذي من المفروض أنه بعد الضغط يظهر رسالة بعدد السجلات الموجودة. testemessage.rar

أخي مهند مشكور جدا على المجهود الطيب , جزاك الله خيرا كثيرا ان شاء الله. بصعوبة, و بعد اْصرار شديد تمكنت من استعمال هذا الزر و فعلا زر جميل جدا, رغم أنه وجدت صعوبة كبيرة في مع خاصية عند النقر التي لم تظهر في خصائص الزر ومع ذلك وجدت طريقة أخرى لتحقق خاصية عند النقر و تتمثل في تصميم زر عادي بواسطة الأكسس و برمجة الحدث الخاص به مثلا طباعة تقرير, اثر قمت بنقل خصائص هذا الزر الى الزر الذي قمت أنت بتصميمة لابل و اْسم الزر من حيث الكود"غالبا ما يكون أمر11 أو أي رقم آخر " و قمت بحذف الزر المصمم بواسطة الأكسس و نجحت الطريقة.

شكرا أخي عاطف. اٍذا مجال الاٍستعمال محدود لهذه الميزة و لا تأثير لها في الأكسس اٍلا في حالة اٍرسال التقرير عن طريق الايمايل مثلا.

هل معنى ذلك أنه يحل مشكلة اٍختلاف تنسيق التقرير عندما ينقل التطبيق على جهاز آخر غير الذي صممت عليه قاعدة البيانات و هي مشكلة طرحت أكثر من مرة و عانيت منها شخصيا؟ أي أنه بالاٍمكان تصميم التقرير و حفظه بامتداد snp. ثم نقله الى جاهز آخر و استراده.

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

اْليكم مثال الأخ سامي , فعلا المثال جميل , أسأل الله أن يضاعف حسناتك. _______________________.rar

أخي مصلح ربما بداية الحل هنا من موقع أجنبي و مرة أخرى أعتذر مسبقا اٍن كان تدخلي في غير محله, كل ما في الأمر رغبة في المساعدة. الكود: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.TestID = 2 Then Me.Detail.Height = 3 * 1440 Me.TestText.Height = 2 * 1440 ' twips are used as a measurement scale 1440 twips = 1 inch Else Me.Detail.Height = 1.5 * 1440 Me.TestText.Height = 0.5 * 1440 End If End Sub الشروط: 1. Set all can grow and can shrink properties to no. 2. Insert the following code into On Format event of the Detail section. هذه الطريقة تمكنك من السيطرة برمجيا بواسطة الكود على مساحة الحقل و تنسيقه. المثال المرتبط بالكود فيما يخص مسميات الحقول و الجدول,مع الملاحظة أن الكود غير موجود في المثال و يمكنك استعمال هذا الكود في المثال المرفق لدراسة النتيجة. المثال من موقع أجنبي. reportcgcstest.zip

ملاحظة الملف المرفق هو عبارة عن صفحة ويب قمت بحفظها

أخي مصلح , أستاذ طاهر بعد عملية بحث وجدت كود ربما يحقق الغرض لكما أن تناقشانه اٍن كا ن فيه فائدة, و أسأل المعذرة اٍن لم أخطأت في المحاولة. Microsoft_Access_Reports___Wrapping_memo_field_for_text_file.rar

أخي egyptian_eg هو نفس المثال الذي أقصده و هو فعلا مثال جدا للأستاذ أبو هاجر ضاعف الله في حساناته

اْليك هذا المثال على ذلك و قد اٍستعملت الكود و نجح autonum2k.zip

شكرا أستا طاهر على اٍتاحة الفرصة لتحميل الملف. Rpt_On_Popup_formA97.zip

قم بانشاء حقل سميه ID نوع البيانات رقم ,في النموذج أنشىء حقل نص و سميه تسلسل مثلا. في تصميم النموذج في حدث في الحالي أكتب الكود التالي: Private Sub Form_Current() If Me.NewRecord Then On Error Resume Next 'It should never occur, just to be sure... Me!ID.DefaultValue = Nz(DMax("[iD]", "tblList"), 0) + 1 End If End Sub حيث أن tblList هو اٍسم الجدول الموجود به حقل ID هكذا تتخلص نهائيا من مشكلة الترقيم التلقائي.

في الرابط التالي يمكن بداية الحل لما تريد, التقرير في المثال يتم فتحه في اطار نموذج و به زر للطباعة و آخر للخروج أي يمكنك اٍخفاء شاشة الأكسس حتى في حالة عرض التقرير. و حسب رأيي فاٍن مظهر التقرير في نموذج أحسن من عرضه بطريقة الأكسس التقليدية. http://uni.hiarab.net/showthread.php?p=17647#post17647 أرجو من الأستاذ محمد طاهر أن يضع الملف مباشرة في المنتدى لتعميم الفائدة كون جامعة أهلا عرب تضع شرزط لتنزيل الملفات ربما أنك على علم بها. طبعا اٍذا رأيت أن هناك فائدة فعلية.