كيف أستطيع إخفاء أو تغيير هذه الرسالة ؟

[zoom10]

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

عند الضغط على زر ( عرض تقرير السلعة ) وهي غير معروضة بياناتها في الحقول تظهر هذه الرسالة وهذا طبيعي لأن البيانات ليست معروضة .

سؤالي كيف استطيع تغيير هذه الرسالة أو إخفاءها عن المستخدم لأن فيها إمكانية الولوج إلى أكواد البرمجة في حال قام بالضغط على Debug.

 

وهذا هو كود الزر :

Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria

End Sub

ودمتم

[essam rabea]

13 دقائق مضت, zoom10 said:

سؤالي كيف استطيع تغيير هذه الرسالة أو إخفاءها عن المستخدم لأن فيها إمكانية الولوج إلى أكواد البرمجة في حال قام بالضغط على Debug.

غير الكود الى 

On Error Resume Next
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![Id]
DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria

 

[عبد اللطيف سلوم]

جرب اكتب قبل الكود

on error resume next

احتمال تختفي وما عاد تظهر

[kanory]

جرب هذا .....

Private Sub أمر12_Click()
On Error GoTo err_أمر12_Click
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria
exit_أمر12_Click:
Exit Sub
err_أمر12_Click:

    If Err.Number = 3075 Then
        MsgBox "ضع رسالتك هنا"
        Resume exit_أمر12_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

 End Sub

 

[zoom10]

بارك الله فيكم وفي علمكم

- سلمت أخي الكريم  essam rabea دائما حاضر بالإجابة . أكرر شكري وتقديري لك .

- سلمت أخي عبد اللطيق أيضا ولك مني جزيل الشكر على ردك .

- بارك الله فيك أخي kanory كانت هي الإجابة الرائعة وكل الإجابات رائعة . ولكن إضافتك للكود  Msgbox لتنبيه المستخدم بأن البيانات خالية كانت جميلة جدا .