Valeur "" dans Update

Le
Jacques
Bonjour,

Avec cette ligne de code je voudrais effacer les valeurs des champs N
°remise et Date de remise mais il
refuse la valeur "" de lstr_Val2.

lstr_val2 = IIf(cmbN°Remise.Value > 0, "", "")
lstr_val1 = cmbN°Remise.ItemData(cmbN°Remise.ListIndex)
lstr_val = IIf(OptAnnulRemise.Value = -1, "false", "")

If lstr_val <> "" Then
DoCmd.RunSQL "update [Tbl Chèques] SET Imprimé=" + lstr_val + ", N
°Remise=" + lstr_val2 + ", DateRemise=" + lstr_val2 + " where N
°Remise=" + lstr_val1 + ";"

Merci pour votre aide.

Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pierre CFI [mvp]
Le #6388991
bonjour
utilise Null , et mets pas "False" mais 0

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Jacques"
Bonjour,

Avec cette ligne de code je voudrais effacer les valeurs des champs N
°remise et Date de remise mais il
refuse la valeur "" de lstr_Val2.

lstr_val2 = IIf(cmbN°Remise.Value > 0, "", "")
lstr_val1 = cmbN°Remise.ItemData(cmbN°Remise.ListIndex)
lstr_val = IIf(OptAnnulRemise.Value = -1, "false", "")

If lstr_val <> "" Then
DoCmd.RunSQL "update [Tbl Chèques] SET Imprimé=" + lstr_val + ", N
°Remise=" + lstr_val2 + ", DateRemise=" + lstr_val2 + " where N
°Remise=" + lstr_val1 + ";"

Merci pour votre aide.

Salutations
Jacques
Le #6388961
On 7 oct, 16:26, "Pierre CFI [mvp]" wrote:
bonjour
utilise Null , et mets pas "False" mais 0

--
Pierre
MVP Access
***************************************
Conseils MPFA:http://www.mpfa.info/
*********************************************************
"Jacques"
Bonjour,

Avec cette ligne de code je voudrais effacer les valeurs des champs N
°remise et Date de remise mais il
refuse la valeur "" de lstr_Val2.

lstr_val2 = IIf(cmbN°Remise.Value > 0, "", "")
lstr_val1 = cmbN°Remise.ItemData(cmbN°Remise.ListIndex)
lstr_val = IIf(OptAnnulRemise.Value = -1, "false", "")

If lstr_val <> "" Then
DoCmd.RunSQL "update [Tbl Chèques] SET Imprimé=" + lstr_val + " , N
°Remise=" + lstr_val2 + ", DateRemise=" + lstr_val2 + " where N
°Remise=" + lstr_val1 + ";"

Merci pour votre aide.

Salutations


Bonsoir Pierre,

J'ai essayé mais cela ne fonctionne toujours pas.

Salutations

Jacques
Le #6388931
On 7 oct, 19:54, Jacques
On 7 oct, 16:26, "Pierre CFI [mvp]" wrote:





bonjour
utilise Null , et mets pas "False" mais 0

--
Pierre
MVP Access
***************************************
Conseils MPFA:http://www.mpfa.info/
*********************************************************
"Jacques"
Bonjour,

Avec cette ligne de code je voudrais effacer les valeurs des champs N
°remise et Date de remise mais il
refuse la valeur "" de lstr_Val2.

lstr_val2 = IIf(cmbN°Remise.Value > 0, "", "")
lstr_val1 = cmbN°Remise.ItemData(cmbN°Remise.ListIndex)
lstr_val = IIf(OptAnnulRemise.Value = -1, "false", "")

If lstr_val <> "" Then
DoCmd.RunSQL "update [Tbl Chèques] SET Imprimé=" + lstr_val + ", N
°Remise=" + lstr_val2 + ", DateRemise=" + lstr_val2 + " where N
°Remise=" + lstr_val1 + ";"

Merci pour votre aide.

Salutations


Bonsoir Pierre,

J'ai essayé mais cela ne fonctionne toujours pas.

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Re Bonsoir Pierre,

Toutes mes escuses je n'avais pas bien compris pour les Valeurs
Null,maintenant ça fonctionne.

DoCmd.RunSQL "update [Tbl Chèques] SET Imprimé=" + lstr_val + ", N
°Remise=Null, DateRemise=Null where N
°Remise=" + lstr_val1 + ";"

Salutations


Publicité
Poster une réponse
Anonyme