Okay, I got it to compile without errors. This is the code I used: Private Sub Warranty_Click() Dim shipperid As String Dim Parmstr As String shipperid = Trim$(GetObjectValue("cshipperid_0")) Parmstr = "ROI.EXE" + PRMSEP + "WACTS/RUN" + PRMSEP + "WACTS/FORMAT" + PRMSEP + "soshipheader.shipperid =" + SParm(shipperid) + "/WHERE" + PRMSEP + "/PSCRN" serr1 = Launch(Parmstr, True, True, 0) End Sub I tried pulling up a shipper and clicking on the button. It pauses, the hour glass blinks, , but nothing happens. I went to the WACTS report and previewed it with the shipperid I was on. The report is correct. Any ideas?
↧