Discussion :

[moilou2]

Bonjour, savez vous quelle syntaxe utiliser dans une requête sql pour mettre une valeur par défaut dans une table, si une listBox d'un formulaire est restée vide?

Résumé

J'ai un formulaire avec des txtBox et des listeBox.

Je veux que lors de l'éxecution de la requête sql, si parmi tous mes champs, 2 de mes listBox sont restées vides, dans la table sa ne les laisse pas vide, mais sa mette une valeur par défaut (ex: Non Définit ou autre....).

J'ai donc construit ma requête sql comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sql = "INSERT into tbl_Référence values(" & ID_Référence & ",'" & Nz(Me.txtRéférence, "''") & "'," & Nz(Me.txtStockMinimum, "''") & ",'" & Nz(Me.cocherCommandeAuto, "''") & "'," & Nz(Me.txtQuantitéCommandeAuto, "''") & "," & Nz(Me.txtPrixUnitaireStock, "''") & ",'" & Nz(Me.listeDésignation, "''") & "'," & Nz(Me.listeMarque, "Non Définit") & ", " & Nz(Me.listeEmplacement, "Non Définit") & "," & Nz(Me.txtStockActuel, "''") & ");"
odb.Execute (sql)

Mais je craint que "Non Définit" soit la bonne syntaxe dans ma requête, quelqu'un sait-il quoi mettre?

Actuellement j'ai le message d'erreur suivant:

Erreur de syntaxe, opérateur abscent dans l'expression 'Non Définit'

[moilou2]

Sachant que si je met:

"'Non Défini'" à la place de "Non Définit" je n'ai plus d'erreur, mais dans ma table sa m'insert un champs vide.

[kariyasan]

si j'ai bien compris ... ce qu'il te faut , c'est de pouvoir faire une insertion à partir du code directement dans ta bdd. La suite est comme suit :

-> tu dois creer une séquence au niveau de ta bdd.

-> tu réalise un trigger qui va s'occuper du remplissage du champ en question de manière automatique grace à la séquence créée.

Tu dois au moins vérifier si ca marche au niveau de ta bdd, le code ca viendra après ...

[moilou2]

Do you speak french?

Re et merci pour ta réponse, mais je n'ai pas compris. Je pense que c'est bien plus simple que sa. Non mais ma syntaxe sql est correcte, mais je pense que c'est ma syntaxe de ma fonction Nz qui ne convient pas.

Ce que je veux juste faire c'est tout basique, je veux que si lors de l'appui sur mon bouton ok de mon formulaire, mes deux listes box sont restées vides, alors dans ma table, pour ces 2 champs là sa me mette Non Définit.

C'est tout

[Alexandre Sahli]

bonjour,

avant d'exécuter ton insert il te faut mettre du code

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
if Me.listeMarque ="" then' pour autant que se soit du texte
MarquelisteValeur = Me.listeMarque
else
MarquelisteValeur = "Non Définit"
end if
' ensuite dans la requête tu remplace Nz(Me.listeMarque, "Non Définit") par MarquelisteValeur
sql = "INSERT into tbl_Référence values(" & ID_Référence & ",'" & Nz(Me.txtRéférence, "''") & "'," & Nz(Me.txtStockMinimum, "''") & ",'" & Nz(Me.cocherCommandeAuto, "''") & "'," & Nz(Me.txtQuantitéCommandeAuto, "''") & "," & Nz(Me.txtPrixUnitaireStock, "''") & ",'" & Nz(Me.listeDésignation, "''") & "'," & MarquelisteValeur & ", " & Nz(Me.listeEmplacement, "Non Définit") & "," & Nz(Me.txtStockActuel, "''") & ");"
odb.Execute (sql)

Il faut faire toutefois attention si c'est du texte ou des nombres pour l'insert car dans la requête que tu as écrite ce n'est pas évident partout

[5GPCISAS1]

Bonjour,

Il suffit peut-être de mettre ta valeur par défaut directement dans ta table.

[Alexandre Sahli]

re bonjour,

Sachant que si je met:

"'Non Défini'" à la place de "Non Définit" je n'ai plus d'erreur, mais dans ma table sa m'insert un champs vide.

je relis ton poste si le champ est vide et sans erreur c'est certainement un problème de champ qui est numérique et que tu ne peux pas mettre du texte.
pour avoir un choix dans une requête tu peux peut être utiliser la fonction IIF
bonne chance

[5GPCISAS1]

Ce que je veux juste faire c'est tout basique, je veux que si lors de l'appui sur mon bouton ok de mon formulaire, mes deux listes box sont restées vides, alors dans ma table, pour ces 2 champs là sa me mette Non Définit.
C'est tout

Je crois qu'il faut simplement mettre "non défini " dans la propriété "valeur par défaut" du champ correspondant à la liste déroulante dans la table (si le champ est en format Txt).

[Pierre Fauconnier]

...
-> tu réalise un trigger qui va s'occuper du remplissage du champ en question de manière automatique grace à la séquence créée....

Un déclencheur sur une base Access ??

[moilou2]

Re, bon c'est bon j'ai trouvé comment faire. Comme il s'agissait de listBox, et que le champs dans la table était de type numérique.

Il fallait que je mette dans ma requete pour les champs Emplacement et marque une fonction Nz, non pas avec "Non Définit", mais une fonction Nz avec des le numéro d'enregistrement de la table ou les listBox piochées leurs données.

Comme dans la table marque et dans la table emplacement, le "Non définit se situe à l'enregistrement 1". Alors j'ai mis le code suivant dans ma requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sql = "INSERT into tbl_Référence values(" & ID_Référence & ",'" & Nz(Me.txtRéférence, "''") & "'," & Nz(Me.txtStockMinimum, "''") & ",'" & Nz(Me.cocherCommandeAuto, "''") & "'," & Nz(Me.txtQuantitéCommandeAuto, "''") & "," & Nz(Me.txtPrixUnitaireStock, "''") & ",'" & Nz(Me.listeDésignation, "''") & "','" & Nz(Me.listeMarque, "1") & "', '" & Nz(Me.listeEmplacement, "1") & "'," & Nz(Me.txtStockActuel, "''") & ");"
odb.Execute (sql)

[kariyasan]

puisque c'est une base access , je RETIRE MA REPONSE désolé