اين هو آمر 17 ؟؟؟؟؟

[dayslife]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء كيفكم ان شاء الله بخير يارب

عندي مرفق لملف عن اعطاء التنبيه عند نفاذ التاريخ المحدد

واخذت اراجع الكودات فيه لعلي اسبر اغوار الاكسس الذي هزمني دوما

ووقفت عن كود فيه زر امر رقم 17 ...

ولكن ضمن الازرار في النماذج والاستعلام لا اجد مكان هذا الزر

فأين هو .... هل هو مخفي ام ماذا ...

وله كود ينفذه وهو

فاتمنى ان تبحثوا معي اين هو وما هو عمله

اي اتمنى من اخواني ترجمت هذا الكود لي لعلي

افهم منه ما بزيدني علما

الف شكر اخواني مقدما على كل شيء

اختكم ديزلايف

Option Compare Database

Private Sub ÃãÑ12_Click()
On Error GoTo Err_ÃãÑ12_Click

    Dim stDocName As String

    stDocName = "over_date"
    DoCmd.OpenReport stDocName, acPreview

Exit_ÃãÑ12_Click:
    Exit Sub

Err_ÃãÑ12_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ12_Click

End Sub

______________________________________________.rar

تم تعديل فبراير 28, 2009 بواسطه dayslife

[أبو رهف]

أهلاً بك أختي الكريمة بالنسبة لزر الأمر 12 وليس 17 كما تفضلتي موجود في الفورم - over_date - ومهمة هذا الزر فتح التقرير - over_date --- ولتشغيله من خصائص زر الأمر قومي بتنشيط حدث عند النقر ...

آمل أن أكون أفدتك

[dayslife]

أهلاً بك أختي الكريمة بالنسبة لزر الأمر 12 وليس 17 كما تفضلتي موجود في الفورم - over_date - ومهمة هذا الزر فتح التقرير - over_date --- ولتشغيله من خصائص زر الأمر قومي بتنشيط حدث عند النقر ...

آمل أن أكون أفدتك

السلام عليكم ورحمة الله وبركاته

اكيد ... ابو رهف ... استفدت من قولك حيث اني كنت كتبت رقم 17 بدل 12 سهوا

وقد رأيت الزر عند النقر ... ولكن يا ريت تشرح لي الكود وخصوصا

On Error GoTo Err_ÃãÑ12_Click

Dim stDocName As String

stDocName = "over_date"

ولو بكلمات سريعة لكي افهم المغزى من

On Error GoTo Err_ÃãÑ12_Click

والف الف شكر لكل شيء بارك الله فيك وزادك من فضله وكرمه عليك

اختك ديزلايف

[أبو رهف]

الكود المدرج هو لزر الأمر 12 كما أوضحت لك سابقاً ومهمته فتح التقرير المسمى -- over_date -- وهذا كل مايهم الكود .

تم تعديل مارس 1, 2009 بواسطه أبو رهف