Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Opening report from pushbutton.

Status
Not open for further replies.

caosity

Technical User
Sep 10, 2009
13
0
0
US
Ok, I know how to create a pushbutton to run a query and return a tableview, or even open a report, and this works when everything is in the working directory. I have, however, run into a problem when trying to open a report not in the working directory, since not everyone uses the same working directory I wanted to make it work for anyone. I have tried using an alias TEMP, but to no avail. I am running WinXP with Paradox 9. The code is below:

method pushButton(var eventInfo Event)
var
myQuery Query
xraydt String
r Report
endVar

xraydt.view("Enter Date of X-Ray")
myQuery = Query
ANSWER: :pRIV:ANSWER.DB

SORT: X-Ray DB.DB->"LAST NAME",
X-Ray DB.DB->"FIRST NAME", X-Ray DB.DB->"MIDDLE"

X-Ray DB.DB | SS # | TITLE | LAST NAME |
| Check | Check _join2 | Check |

X-Ray DB.DB | FIRST NAME | MIDDLE | DOB | DATE OF XRAY |
| Check | Check | Check | Check ~xraydt |

X-Ray DB.DB | PLACE OF X-RAY |
| Check _join1, ..COT.. |

0DOCTORS.DB | PLACE OF X-RAY | DOCTOR | CITY | STATE |
| _join1 | Check | Check | Check |

0GENDER.DB | TITLE | GENDER |
| _join2 | Check |

EndQuery

if myQuery.executeQBE() then
if r.open(":TEMP:XR-LABEL.rsl") then
r.wait()
endIf
endIf

endMethod

What am I missing?
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top