รายละเอียดของการตอบ ::
แต่ใช้ โดยการ .Addnew ข้อมูลลงไปใน access ก่อน
ไม่ได้ใช้ในลักษณะ ของ Parameters นะครับ
.Addnew
!BANO2 = Trim("*" & Trim(STRLen) & "*") ' Lot Number
!BANO = Trim(adoMovex.Recordset!ZCBANO) ' Lot Number
.Update
Set crxApp = New CRAXDRT.Application
Set crxRpt = New CRAXDRT.Report
Set crxRpt = crxApp.OpenReport("C:\PRINTLABELOLT\Report1.rpt")
crxRpt.DiscardSavedData
crxRpt.PrintOut False, NoCopies