إخواني خبراء الأكسس أشكركمجزيل الشكر على كل ما تقدمونه من علم في سبيل الرقي بهذا المنتدى
لدي سؤال عن كيفية وضع رسائل خاصة داخل برنامج بالأكسس خاصة في مجال التقارير
و للنوضيح ، انا أنشأت تقرير يحتوي على مستويات طلاب مدرسة ، و بنيتهعلى استعلام يحتوي شرطاسم اسم [مربع النص]![النموذج] form علما ان مربع النص هنا هو فصل الطالب ، فكيق أستطيع أن أعمل رسالة تطالب المستخدم بإدخال الفصل الذي يريده بدل رسالة الاكسس التي تطالب بإدخال قيمة معلمة ؟؟
أرجوان يكون السؤال واضحًا ..
قم ببناء نموذج يحتوي علي مربع النص الذي تريد ان تدخل القيمة فيه وفي الحدث عند الفتح(Form_open) قم بنسخ الكود التالي
Me.Caption = Forms![اسم النموذج].OpenArgs
قم ببنا وحدة نمطية وسميها بأي اسم
Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function
ومن ثم قم بكتابة الاكواد التالية في الاحداث التالية في التقرير
//////////////////////عند فتح التقرير////////////////
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "اسم النموذج", , , , , acDialog
If Not IsLoaded("ac_name") Then
Cancel = True
End If
End Sub////////////////////////////عند عدم وجود بينات//////////////////////
Private Sub Report_NoData(Cancel As Integer) MsgBox "رسالة تنبية بعدم وجود بينات", vbInformation Cancel = -1 End Sub
////////////////عند اغلاق التقرير/////////////////////////////
Private Sub Report_Close() DoCmd.Close acForm, "اسم النموذج" End Sub
مع تمنياتي بان يكون ماكتبتة واضحا
اخي جزاك الله خيرا على هذا الرد لكني لم اجد فيه ضالتي فانا بنيت التقرير على استعلام و اريد ان اغير الرسالة التي تطلع لي عند فتح التقرير و التي اسمها " ادخل قيمة معلمة "إلى تعبير مني " مثلا أدخل ......"
هذا هو السؤال
الإخوة الكرام:
إن سمحتم لي بالمشاركة فأتمنى إرفاق مثال لعلنا نستطيع تقديم المساعدة المطلوبة.
يفضل ارفاق المثال
و بصورة عامة
فما ستفعله هو عدم استخدام الرسائل الافتراضية
و تصميم فورم خاص يسأل عما تريد و يعود بالقيمة التي تكتبها فى متغير عام
و يضاف القيمة التي فى هذا المتغير كشرط الي مصدر بيانات التقرير عند فتح التقرير
و لكن لماذا تريد ذلك ؟؟
تصوري لما تريد عمله ، هو وضع مثلا قائمة فى فورم و يختار منها المستخدم أو مربع نص يكتب فبه القيمة و بناء علي ما فيها يتم فتح التقرير بهذا الشرط
و قد أورد الاخوة سابقا عدة أمثلة علي ذلك ، فراجع الارشيف أو استخدم البحث ، و اان لم تجد فى الامثلة ما يلبي ما تريد
فاقترح نشر المثال ، و من المفضل جدا أن تكون أسماء الحقول و الجداول بالانجليزية لتجنب مشاكل الاكواد مع العربية
مع تحياتي
من الاستعلام قم بوضع العبارة التالية في خانة المعايير تحت حقل الفصل
[ادخل الفصل]
وسوف يعمل الاستعلام
حياك الله يااخي
اين التعديل:(
السلام عليكم ورحمة الله
الحقيقة اخجلتموني باهتمامكم ، و آسف لانقطاعي عن مراجعة المنتدى لظروف خاصة
و الحقيقة أني شبه وجدت ضالتي و سأردعليكم بعد التجربة
هذا الموضوع مغلق.
