[A-03] Test et valeur par défaut d'une variable

Bonjour j'ai un problème très simple je suppose, mais je n'y arrive pas.

J'ai deux variables, ID_emplacement et ID_marque qui sont déclarées comme "Variant".

Je voudrais que si lors de l'insertion dans la table, ces deux variables qui sont en fait relié à 2 txtbox restent vide, sa me mette dans la table "Non définit".

J'ai donc fait les tests suivants sur mes 2 variables:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If Not IsNull(Me.listeMarque) Then ID_Marque = Me.listeMarque Else ID_Marque = "Inconnu" End If   If Not IsNull(Me.listeEmplacement) Then ID_Emplacement = Me.listeEmplacement Else ID_Emplacement = "Inconnu" End If

---

Mais je n'ai rien dans ma table lors de l'insert

Bonjour,

Pourrait-on voir la requete d'insertion svp ?

Bon alors tu m'a un peu mit sur la route en m'indiquant d'aller voir mes requêtes.

Effectivement, m'a requéte était la suivante:

Code:

---

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, "''") & ", " & Nz(Me.listeEmplacement, "'") & "," & Nz(Me.txtStockActuel, "''") & ");"

---

Donc logique que sa ne me méttait pas non définit puisque je luis disait de mettre "''".

Mais j'ai essayé aussi en faisant:

Code:

---

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, "''") & ");"

---

Mais sa ne change rien

Alors la je ne suis pas sur de tout comprendre ....

dans ton premier post tu teste les variables unes a unes avec un isnull. Puis dans ton dernier post, tu remplace le isnull par nz ? c 'est bien ca ou bien tu fais les 2 traitements (dans ce cas ca fait un peu double emploi ...).

Avant d'aller plus loin je te conseille de nommer les champs de ta table :

Code:

---

1 2	Insert into MaTable (Champ1,Champ2) values (Val1,Val2)

---

D'autre part, y a t'il un message d'erreur généré ? si oui, lequel ?
essaie aussi de faire attention aux types de tes données : par exeple je vois que tu as un stockMin, je suppose que c'est un type numerique, mais je vois aussi que dans le nz avec le stockMini, tu mets du texte "''" si la valeur est nulle ...

J'ai enlevé le 1er test. C'est parce que je ne me souvenais plus que ma requête était construite de la sorte.

Maintenant sans modifié le style de la requete, parce que sa fonctionne partout donc je ne pense pas que sa vienne de sa, il faut que je trouve comment mettre par défaut "Non Définit", si au moment de l'appuye sur le bouton OK les champs emplacement et marque sont resté vides.

Code:

---

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)

---

Sachant que à mon avis :
" & Nz(Me.listeMarque, "'Non Définit'") & "
et
" & Nz(Me.listeEmplacement, "'Non Définit'") & "

N'est pas la bonne syntaxe tout simplement pour le faire