189477_fr-FR

liliconcom

Comment obtenir le contenu de la zone d'édition de texte dans "variable" ?

Salut,

Je cherche une alternative au changement manuel de variable (" Lot de contrôle ") dans le script lui-même.

 

ancien script :

 

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

 

 

J'ai essayé ceci - ci-dessous, mais cela ne fonctionne pas. Le script est en cours d'exécution, mais la "variable" n'a pas été utilisée. Probablement quelque chose ne va pas avec le format. Vous cherchez des conseils.

Merci.

 

nouvelle version du script :

 

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

 

Re : Comment obtenir le contenu de la zone d'édition de texte dans "variable" ?

Merci beaucoup - ma première boîte de dialogue fonctionne - je suis si heureux !!!

Re : Comment obtenir le contenu de la zone d'édition de texte dans "variable" ?

Quelques suggestions pour poster sur ce forum :

 

• Indentez votre code (clic droit > Reformater le script)
• Collez le code dans le forum en utilisant le bouton .Cela conservera les couleurs de syntaxe

 

Passons à votre problème.Mon code vérifie si une valeur a été entrée dans la zone de texte.S'il y a une valeur, il crée une chaîne SQL en utilisant la variable sql , puis appelle Open Database.Votre code appelle la base de données ouverte avec la commande IF à l'intérieur.Cela ne fonctionnera pas.

 

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

Re : Comment obtenir le contenu de la zone d'édition de texte dans "variable" ?

Salut,

merci beaucoup pour votre réponse rapide. Malheureusement, je ne connais pas grand-chose à la programmation et j'ai toujours du mal - voir ci-dessous:

 

Désolé - je n'ai pas compris, où mettre le "IF-Command".

 

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

Re : Comment obtenir le contenu de la zone d'édition de texte dans "variable" ?

Vous appelez la variable de votre texteditbox "texteditbox", ce qui est autorisé mais pas une bonne pratique de programmation.Voici comment utiliser la valeur saisie dans la zone d'édition de texte :

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

Si j'entre ABC, le journal affiche ceci :

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