اجراي گزارش در مكان مشخص

[abas1388]

سلام
در كد هاي زير وقتي بجاي stDocName در دستور Reports![stDocName].Move 10000, 5000, 3000, 3000 مستقيماً نام گزارش (R) را وارد بكنيم و بر روي كمند باتن مربوطه كليك كنيم كزارش با مختصات فوق و در مكان مربوطه اجرا ميشود . اما اگر نام گزارش را در تكست باكس وارد كنيم گزارش اجرا نميشود .
لطفاً راهنمائي بفرمائيد چگونه ميتوان با استفاده از كد زير موقعيت مكاني گزارش را تعيين نمود .
لازم به ذكر است كه 1- اجراي كد فوق در حالت باز بودن گزارش بايد صورت بگيرد و 2- براي اجراي كد فوق نبايد مجدداً اقدام به باز نمودن گزارش (با استفاده از دستور DoCmd.OpenReport ) نمود
با تشكر




On Error GoTo a
Dim stDocName As String
stDocName = name_report
If Len(name_report) > 0 Then
Reports![stDocName].Move 10000, 5000, 3000, 3000
End If
a:
If Err.Number = 94 Then
MsgBox " !äÇ㠐ÒÇÑÔ ÏÑ ÊßÓÊ ÈÇßÓ æÇÑÏ ÔæÏ "
End If

[amirzazadeh]

سلام
در كد هاي زير وقتي بجاي stDocName در دستور Reports![stDocName].Move 10000, 5000, 3000, 3000 مستقيماً نام گزارش (R) را وارد بكنيم و بر روي كمند باتن مربوطه كليك كنيم كزارش با مختصات فوق و در مكان مربوطه اجرا ميشود . اما اگر نام گزارش را در تكست باكس وارد كنيم گزارش اجرا نميشود .
لطفاً راهنمائي بفرمائيد چگونه ميتوان با استفاده از كد زير موقعيت مكاني گزارش را تعيين نمود .
لازم به ذكر است كه 1- اجراي كد فوق در حالت باز بودن گزارش بايد صورت بگيرد و 2- براي اجراي كد فوق نبايد مجدداً اقدام به باز نمودن گزارش (با استفاده از دستور DoCmd.OpenReport ) نمود
با تشكر




On Error GoTo a
Dim stDocName As String
stDocName = name_report
If Len(name_report) > 0 Then
Reports![stDocName].Move 10000, 5000, 3000, 3000
End If
a:
If Err.Number = 94 Then
MsgBox " !äÇ㠐ÒÇÑÔ ÏÑ ÊßÓÊ ÈÇßÓ æÇÑÏ ÔæÏ "
End If


سلام
كد رو به اين شكل اصلاح كنيد:

Reports(stDocName).Move 10000, 5000, 3000, 3000