ارتباط بین Report اکسس با وی بی

[M_P_1374]

من یه گزارش از بانک اطلاعاتی اکسس تهیه کردم و میخوام اونو با ویبی ارتباط بدم یعنی هر وقت رو یه دکمه کلیک شد اون گزارش لود بشه
اگه میشه راهنمایی کنید

[M_P_1374]

یه نفر راهنماییم کنه الزامیه

[vbhamed]

سلام

قبل از استفاده از كد زير از منوي Project گزينه References آيتم Microsoft Access ... Object Library رو به برنامه اضافه كنيد (... شماره ورژن اكسس نصب شده روي سيستمتون هست كه براي Access 2003 شماره 10 ميشه)



Private Sub PrintAccessReport()

Dim x As New Access.Application, i%
Dim rst As Recordset

On Error Resume Next

For i = 1 To 10

AppActivate "Microsoft Access"

If Err Then Exit For

DoEvents
SendKeys "%{F4}"
DoEvents

Next

For i = 1 To 40: DoEvents: Next

x.OpenCurrentDatabase "نام و مسير ديتابيس را اينجا بنويسيد", True

x.RunCommand acCmdWindowHide

For i = 1 To 10: DoEvents: Next

x.DoCmd.OpenReport "نام گزارش مورد نظر رو اينجا بنويسيد", acViewPreview

AppActivate "Microsoft Access"
x.RunCommand acCmdQuickPrint
x.RunCommand acCmdExit
Set x = Nothing

End Sub