How to get content of text edit box into "variable"?

PS_Ato

Hi,

I'am looking for an alternative to manual change of variable ("Inspection Lot") within the script itself.

 

former sript:

 

Names Default To Here( 1 );
Open Database(
"DBQ=X:...
WHERE User1 LIKE '%Inspection Lot%'", "HSS"
);

 

 

I tried this - s.below, but it does not work. The script is running, but the "variable" was not used. Probably something is wrong with the format. Looking for advice.

Thank you.

 

new script version:

 

Names Default To Here( 1 );
win = New Window( "Edit Box - Enter the Inspection Lot",
<<Modal,
<<Return Result,
Text Box( "HSS Test: Enter the Inspection Lot" ),
texteditbox = TextEdit Box( "Inspection Lot" ),
Text Box( "Pressing OK - display of HSS graphs will be done automatically." ),
Button Box( "OK" ),
Button Box( "Cancel" )
);

Open Database(
"DBQ=X:...
WHERE User1 LIKE '%{"texteditbox"}%'", "HSS"
);

 

pmroz

A few suggestions for posting in this forum:

 

• Indent your code (right-click > Reformat script)
• Paste the code into the forum using the <JSL> button.  That will retain syntax colors

 

On to your problem.  My code checks to see if a value was entered into the text box.  If there is a value there it creates a SQL string using the variable sql, and then calls Open Database.  Your code calls open database with the IF command inside it.  That won't work.

 

Try this code:

	If( tbox_value != "",
		sql = Eval Insert(
			"SELECT TRBallShearHSBTTSF.Sample, Test, .... 
FROM TRBallShearHSBTTSF INNER JOIN SSBallShearHSBTTSF
ON TRBallShearHSBTTSF.Sample = SSBallShearHSBTTSF.Sample
WHERE User1 LIKE '%^tbox_value^%'");
		);

		dsn_string = "DBQ=X:\- ...HS.mdb;DefaultDir=X:\- ...;Driver={Driver do Microsoft Access (*.mdb)};DriverId=..;FIL=MS Access;FILEDSN=X:\...dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";

		Open Database(dsn_string, sql, "HSS-Dage 4000");
);