189477_it-IT

liliconcom

Come ottenere il contenuto della casella di modifica del testo in "variabile"?

CIAO,

Sto cercando un'alternativa al cambio manuale di variabile (" Lotto di ispezione ") all'interno dello script stesso.

 

copione precedente:

 

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

 

 

Ho provato questo - s.below, ma non funziona. Lo script è in esecuzione, ma la "variabile" non è stata utilizzata. Probabilmente c'è qualcosa che non va nel formato. Alla ricerca di consigli.

Grazie.

 

nuova versione dello script:

 

Names Default To Here( 1 );
win = New Window( "Edit Box - Enter the Inspection Lot",
<<MODAL></MODAL>

 

Ri: Come ottenere il contenuto della casella di modifica del testo in "variabile"?

Molte, molte grazie - la mia prima finestra di dialogo funziona - sono così felice!!!

Ri: Come ottenere il contenuto della casella di modifica del testo in "variabile"?

Alcuni suggerimenti per la pubblicazione in questo forum:

 

• Indenta il codice (tasto destro > Riformatta script)
• Incolla il codice nel forum usando il pulsante .Ciò manterrà i colori della sintassi

 

Al tuo problema.Il mio codice verifica se è stato inserito un valore nella casella di testo.Se c'è un valore lì crea una stringa SQL usando la variabile sql e quindi chiama Apri database.Il tuo codice chiama il database aperto con il comando IF al suo interno.Non funzionerà.

 

Prova questo codice:

 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");
);

Ri: Come ottenere il contenuto della casella di modifica del testo in "variabile"?

CIAO,

grazie mille per la tua risposta veloce. Sfortunatamente non so molto di programmazione e sto ancora lottando - vedi sotto:

 

Scusa, non ho capito dove mettere il "comando IF".

 

Open Database(
 "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;",
 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^%'",
   "HSS-Dage 4000"
  )
 )
);

Ri: Come ottenere il contenuto della casella di modifica del testo in "variabile"?

Stai chiamando la variabile per il tuo texteditbox "texteditbox", che è consentito ma non è una buona pratica di programmazione.Ecco come utilizzare il valore inserito nella casella textedit:

Names Default To Here( 1 );
tbox_value = "";
win = New Window( "Edit Box - Enter the Inspection Lot",
 <<MODAL></MODAL>

Se inserisco ABC il registro mostra questo:

sql = "SELECT foo, bar
   FROM utopia
WHERE User1 LIKE '%{ABC}%'";