Discussion :

[moilou2]

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 :

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

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

[Access Newbie]

Bonjour,

Pourrait-on voir la requete d'insertion svp ?

[moilou2]

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 :

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

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 :

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

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

[Access Newbie]

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 :

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

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 ...

[moilou2]

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 :

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)

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