Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Valeur "" dans Update

3 réponses
Avatar
Jacques
Bonjour,

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

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

If lstr_val <> "" Then
DoCmd.RunSQL "update [Tbl Ch=E8ques] SET Imprim=E9=3D" + lstr_val + ", N
=B0Remise=3D" + lstr_val2 + ", DateRemise=3D" + lstr_val2 + " where N
=B0Remise=3D" + lstr_val1 + ";"

Merci pour votre aide.

Salutations

3 réponses

Avatar
Pierre CFI [mvp]
bonjour
utilise Null , et mets pas "False" mais 0

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Jacques" a écrit dans le message de news:

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
Avatar
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" a écrit dans le message de news:

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

Avatar
Jacques
On 7 oct, 19:54, Jacques wrote:
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" a écrit dans le message de news:

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