Discussion :

[iliesss]

Bonjour
Voici le code suivant qui calcule la SOMMEPROD d'un compte sélectionné dans la zone de texte14

Mon problème si le compte n'existe pas dans le champ "Compte" table "GrandLivre" j'obtiens l'erreur suivante : Erreur d'execution '94' : Utilisation incorrecte de null
Svp qu'elle est la solution pour éviter ce message d'erreur

Code :

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

1
2
3
4
5
6
7
Private Sub Texte2_LostFocus()
Dim Debit As Currency, Credit As Currency
Debit = DSum("[Debit]", "GrandLivre", "[Compte]= " & Forms![Achat]![Texte14])
Credit = DSum("[Credit]", "GrandLivre", "[Compte]= " & Forms![Achat]![Texte14])
Me.Texte49.Value = Credit
Me.Texte51.Value = (Debit - Credit)
End Sub

Merci

[Robert1957]

Bonjour iliesss,

La fonction Nz est probablement la solution, ici votre code je remplace la valeur nul du "DSum" par un 0:

Code :

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

1
2
3
4
5
6
7
Private Sub Texte2_LostFocus()
Dim Debit As Currency, Credit As Currency
Debit = Nz(DSum("[Debit]", "GrandLivre", "[Compte]= " & Forms![Achat]![Texte14]).0)
Credit = Nz(DSum("[Credit]", "GrandLivre", "[Compte]= " & Forms![Achat]![Texte14]),0)
Me.Texte49.Value = Credit
Me.Texte51.Value = (Debit - Credit)
End Sub

Bonne journée

[iliesss]

Merci beaucoup Mr Robert
oui effectivement le message d'erreur est disparu
le problème est résolu.