Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access If en vba valeur NULL

If en vba valeur NULL

5 réponses
Avatar
Jpmill
Bonjour j'essaie de programmer une routine en vba mais le IF que j'ai
ici ne fonctionne pas :

Si je roule en debug je vois bien que la valeur sur laquel je fais mon
if est null mais aucune fois il entre dans la condition


Aidez moi !



If rsSelectedSite!SiteNiveauDateFin = Null Then
rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
rsTblFactureTelco!MontantFacture
rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
(rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
rsTblFactureTelco!DatePaiement = Null
rsTblFactureTelco!MontantPaiement = rsTblFactureTelco!
MontantFacture
rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
rsTblFactureTelco!MontantPaiement
rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
(rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
rsTblFactureTelco!SiteNiveauID = rsSelectedSite!
SiteNiveauID
rsTblFactureTelco.Update
ctrAjout = ctrAjout + 1
End If
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jac
... essaye avec is null au lieu de = null

Bonjour j'essaie de programmer une routine en vba mais le IF que j'ai
ici ne fonctionne pas :

Si je roule en debug je vois bien que la valeur sur laquel je fais mon
if est null mais aucune fois il entre dans la condition


Aidez moi !



If rsSelectedSite!SiteNiveauDateFin = Null Then
rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
rsTblFactureTelco!MontantFacture
rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
(rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
rsTblFactureTelco!DatePaiement = Null
rsTblFactureTelco!MontantPaiement = rsTblFactureTelco!
MontantFacture
rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
rsTblFactureTelco!MontantPaiement
rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
(rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
rsTblFactureTelco!SiteNiveauID = rsSelectedSite!
SiteNiveauID
rsTblFactureTelco.Update
ctrAjout = ctrAjout + 1
End If


Avatar
michel chambrillon
Bonjour
Remplace
If rsSelectedSite!SiteNiveauDateFin = Null Then
par
If isnull(rsSelectedSite!SiteNiveauDateFin ) Then
@plus
Michel

"Jpmill" a écrit dans le message de
news:
Bonjour j'essaie de programmer une routine en vba mais le IF que j'ai
ici ne fonctionne pas :

Si je roule en debug je vois bien que la valeur sur laquel je fais mon
if est null mais aucune fois il entre dans la condition


Aidez moi !



If rsSelectedSite!SiteNiveauDateFin = Null Then
rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
rsTblFactureTelco!MontantFacture
rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
(rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
rsTblFactureTelco!DatePaiement = Null
rsTblFactureTelco!MontantPaiement = rsTblFactureTelco!
MontantFacture
rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
rsTblFactureTelco!MontantPaiement
rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
(rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
rsTblFactureTelco!SiteNiveauID = rsSelectedSite!
SiteNiveauID
rsTblFactureTelco.Update
ctrAjout = ctrAjout + 1
End If


Avatar
chpa
Bonsoir,
tu peux aussi essayer comme ceci :
If nz(rsSelectedSite!SiteNiveauDateFin,"") = "" Then

"michel chambrillon" a écrit dans le
message de news:
Bonjour
Remplace
If rsSelectedSite!SiteNiveauDateFin = Null Then
par
If isnull(rsSelectedSite!SiteNiveauDateFin ) Then
@plus
Michel

"Jpmill" a écrit dans le message de
news:
Bonjour j'essaie de programmer une routine en vba mais le IF que j'ai
ici ne fonctionne pas :

Si je roule en debug je vois bien que la valeur sur laquel je fais mon
if est null mais aucune fois il entre dans la condition


Aidez moi !



If rsSelectedSite!SiteNiveauDateFin = Null Then
rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
rsTblFactureTelco!MontantFacture
rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
(rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
rsTblFactureTelco!DatePaiement = Null
rsTblFactureTelco!MontantPaiement = rsTblFactureTelco!
MontantFacture
rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
rsTblFactureTelco!MontantPaiement
rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
(rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
rsTblFactureTelco!SiteNiveauID = rsSelectedSite!
SiteNiveauID
rsTblFactureTelco.Update
ctrAjout = ctrAjout + 1
End If





Avatar
Jpmill
On 16 oct, 09:35, "michel chambrillon"
wrote:
Bonjour
Remplace
If rsSelectedSite!SiteNiveauDateFin = Null Then
par
If isnull(rsSelectedSite!SiteNiveauDateFin ) Then
@plus
Michel

"Jpmill" a écrit dans le message denews:f0ca9f9c-eeb

> Bonjour  j'essaie de programmer une routine en vba mais le IF que j'a i
> ici ne fonctionne pas :

> Si je roule en debug je vois bien que la valeur sur laquel je fais mon
> if est null mais aucune fois il entre dans la condition

> Aidez moi !

> If rsSelectedSite!SiteNiveauDateFin = Null Then
>               rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
> rsTblFactureTelco!MontantFacture
>               rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
> (rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
>               rsTblFactureTelco!DatePaiement = Null
>               rsTblFactureTelco!MontantPaiement = rsTbl FactureTelco!
> MontantFacture
>               rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
> rsTblFactureTelco!MontantPaiement
>               rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
> (rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
>               rsTblFactureTelco!SiteNiveauID = rsSelect edSite!
> SiteNiveauID
>               rsTblFactureTelco.Update
>               ctrAjout = ctrAjout + 1
>            End If



C'est ce que j'ai fait et ca fontionné merci
Avatar
peyre
bonjour
Change la première ligne comme cela
If isNull(rsSelectedSite!SiteNiveauDateFin) Then
la suite...




"Jpmill" a écrit dans le message de groupe de discussion
:
Bonjour j'essaie de programmer une routine en vba mais le IF que j'ai
ici ne fonctionne pas :

Si je roule en debug je vois bien que la valeur sur laquel je fais mon
if est null mais aucune fois il entre dans la condition


Aidez moi !



If isNull(rsSelectedSite!SiteNiveauDateFin) Then
rsTblFactureTelco!TPSFacture = (TPSValue / 100) *
rsTblFactureTelco!MontantFacture
rsTblFactureTelco!TVQFacture = (TVQValue / 100) *
(rsTblFactureTelco!MontantFacture + rsTblFactureTelco!TPSFacture)
rsTblFactureTelco!DatePaiement = Null
rsTblFactureTelco!MontantPaiement = rsTblFactureTelco!
MontantFacture
rsTblFactureTelco!TPSPaiement = (TPSValue / 100) *
rsTblFactureTelco!MontantPaiement
rsTblFactureTelco!TVQPaiement = (TVQValue / 100) *
(rsTblFactureTelco!MontantPaiement + rsTblFactureTelco!TPSPaiement)
rsTblFactureTelco!SiteNiveauID = rsSelectedSite!
SiteNiveauID
rsTblFactureTelco.Update
ctrAjout = ctrAjout + 1
End If