Discussion :

[morobaboumar]

Bonsoir membres du forum,
Pourriez vous m'aider à gérer le nul de ma zone de texte Txt_MontantNetAPartager
qui reçoit la fonction suivante

Code :

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

=F_RamenantMontantNetAPartager([ID_FondatEMS];[lst_NumMontantAPartagerFrm_TblMembreFamilleEMS])

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
'Fonction Ramenant le MontantNetAPartager
'Nz([Champ A]; 0)
'Nz(varFreight, "No Freight Charge")
Public Function F_RamenantMontantNetAPartager(NumPa As Long, NumArg As Long) As Double
On Error GoTo MOROBABOUMAR
If IsNull(NumPa) Or IsNull(NumArg) Then Exit Function
Dim BD As Database
Dim R As Recordset
Dim sql As String
Set BD = CurrentDb
sql = "select * from [Tbl_MontantaPartagerEMS] where ID_Fond_EMS = " & NumPa & " and NumMontantApartager = " & NumArg & ";"
Set R = BD.OpenRecordset(sql)
With R
    If Not .EOF Then
    F_RamenantMontantNetAPartager = .Fields("Montant Net")
    Else
    F_RamenantMontantNetAPartager = 0
    End If
End With
Exit Function
MOROBABOUMAR:
    MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

Message d'erreur:




Cordialement.

[tee_grandbois]

boonjour,
tu aimes faire compliqué: pourquoi vouloir absolument créer une fonction alors que DLookup fait exactement la même chose ?

Code :

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

=Nz(Vraifaux(EstNull(NumPa) ou EstNull(NumArg);0;RechDom("[Montant Net]";"[Tbl_MontantaPartagerEMS]";"ID_Fond_EMS = " & NumPa & " and NumMontantApartager = " & NumArg));0)

[EDIT:] d'autre part, en regardant de près la capture d'écran, je vois que le problème vient du fait qu'à la fin de ta fonction il y a un paramètre (de trop) contenant 0 séparé par une virgule (utilisé seulement dans SQL et dans VBA) alors qu'il attend un point-virgule dans l'interface de création des formulaires

[morobaboumar]

Bonsoir tee_grandbois,
Toujours très content de vous retrouver !
Je viens d'essayer le code que vous me suggérez mais voici ce qui est affiché:




Pièce jointe
Cordialement.

[tee_grandbois]

bonjour,
j'ai été un peu vite hier soir, il faut juste remplacer les paramètres (NumPa et NumArg) par les champs du formulaire (ID_FondatEMS et lst_NumMontantAPartagerFrm_TblMembreFamilleEMS)

Code :

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

=Nz(VraiFaux(EstNull([ID_FondatEMS]) Ou EstNull([lst_NumMontantAPartagerFrm_TblMembreFamilleEMS]);0;RechDom("[Montant Net]";"[Tbl_MontantaPartagerEMS]";"ID_Fond_EMS = " & [ID_FondatEMS] & " and NumMontantApartager = " & [lst_NumMontantAPartagerFrm_TblMembreFamilleEMS]));0)

PS: Merci d'utiliser le bouton "Répondre à la discussion" plutôt que le bouton "Répondre avec citation" cela encombre inutilement les posts

[morobaboumar]

Bonsoir tee_grandbois,
Votre code marche !
Message compris !
Merci infiniment.
A bientôt pour une autre discussion.
Cordialement.

[morobaboumar]

Bonsoir tee_grandbois,

Peut on appeler ma fonction avec la méthode suivante ?

Code :

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

=VraiFaux(EstNull([ID_FondatEMS] & [lst_NumMontantAPartagerFrm_TblMembreFamilleEMS]);0;RamenantMontantNetAPartager([ID_FondatEMS];[lst_NumMontantAPartagerFrm_TblMembreFamilleEMS]))

Cordialement.