PDA

View Full Version : ارتباط بین Report اکسس با وی بی



M_P_1374
چهارشنبه 26 فروردین 1388, 11:00 صبح
من یه گزارش از بانک اطلاعاتی اکسس تهیه کردم و میخوام اونو با ویبی ارتباط بدم یعنی هر وقت رو یه دکمه کلیک شد اون گزارش لود بشه
اگه میشه راهنمایی کنید

M_P_1374
یک شنبه 30 فروردین 1388, 15:58 عصر
یه نفر راهنماییم کنه الزامیه

vbhamed
یک شنبه 30 فروردین 1388, 19:25 عصر
سلام

قبل از استفاده از كد زير از منوي 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