Discussion :

[Alain9999999999Niala]

bonjour tous d'adord
j'ai un petit souci que je n'arrive pas à régler
j'ai un champs texte qui reprend une valeur d'un sous-formulaire et qui évidemment lorsqu'il n'y a pas d'enregistrement pour le sous-formulaire, me retourne la valeur #erreur
j'ai essayé par différent moyen de changer la valeur par 0 lorsqu'il n'y a pas d'enregistrement dans le sous-formulaire sans succès
existe t il une solution simple (je n'ai rien trouver dans les faq)
merci d'avance

[Jean-Philippe André]

Salut Alain (ca doit être drôle de se logger ),
est-ce que la fonction Nz peut t'aider ?
sinon, autre approche :
- test si le formulaire est ouvert,
si oui, no soucy,
sinon, valeur 0.

[Alain9999999999Niala]

bonjour jpchek
merci pour ta réponse
je ne sais pas trop comment formaliser le code pour la fonction Nz
et pour la deuxieme solution je ne sais pas inscrire dans ma formule la condition de vérification de l'ouverture du sous formulaire
ma formule actuel est la suivante:

Code :

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

=[DEVIS_DETAIL_SAISIE].[Formulaire]![SommeHTT€Realise]

mais lorsqu'il n'y a pas d'enregistrement j ai le message d'erreur j ai bien essaye avec une formule vraifaux mais je ne sais pas comment faire reference au faite qu'il n y a pas d enregistrement dans le sous formulaire
merci d'avance

[Renardo]

Bonjour
En VBA tu peux faire un code de ce genre

Code :

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

1
2
3
4
5
6
If Me.NomDeTonSousForm.Form.RecordsetClone.RecordCount = 0 Then
Me.MonChamp = 0
Else
Me.MonChamp= Me.NomDeTonSousForm!NonDuChamp
End If
End Sub

A mettre sur la procédure qui convient le mieux

[Jean-Philippe André]

l'idée est d'avoir

Code :

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

NZ([DEVIS_DETAIL_SAISIE].[Formulaire]![SommeHTT€Realise],0)

[Alain9999999999Niala]

Merci pour ta réponse
Malheureusement j ai fait des tests sans succès
le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
 
If Me.FACTURE_DETAIL_CONSULTATION.Form.RecordsetClone.RecordCount = 0 Then
Me.THTDR = 0
Else
Me.THTDR = FACTURE_DETAIL_CONSULTATION!SommeHTT€Realise
End If
End Sub

est le résultat est le suivant: cas ou il n'y a pas d'enregistrement j ai le champs affiche bien 0
Mais le cas ou il devrait récuperer la valeur du champs il n'affiche rien

je sais pas si tu as une piste sur la cause
mais merci pour tes réponses

[Renardo]

Form current va te mettre a jour ton champ uniquement quand tu vas changer d'enregistrement dans ton form
Sinon
SommeHTT€Realise est bien le nom du champ du sous form?
je te joint un exemple

[Alain9999999999Niala]

pour information j ai aussi testé le code suivant sans succès:

Code :

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

1
2
3
Private Sub Form_Current()
Me.THTDR = Nz([FACTURE_DETAIL_CONSULTATION].[Formulaire]![SommeHTT€Realise], 0)
End Sub

il y a une erreur d'exécution '438'

merci d'avance et pour l'ensemble de tes réponses

[Renardo]

Le code de Jpcheck est a mettre sur source controle de ton champ

Code :

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

 Nz([FACTURE_DETAIL_CONSULTATION].[Formulaire]![SommeHTT€Realise]; 0)

[Alain9999999999Niala]

Merci à tous
malheureusement tous mes tests son resté vain
notamment le code

Code :

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

=Nz([FACTURE_DETAIL_CONSULTATION].[Formulaire]![SommeHTT€Realise];0)

me donne un message d'erreur si le formulaire est en mode uniquement consultatif et qu'il n'y a rien dans le sous formulaire
je transmet un extrait de ma base pour permettre de voir l'erreur

en esperant que l'on puisse m'expliquer pourquoi ca ne marche pas
merci d'avance à tous

[Renardo]

Après pas mal de temps a chercher d'ou venais le problème j'ai fini par trouver
Il faut que la barre du pied de formulaire soit quasiment en contact avec ton champ (PrixHttotale€Realisé)
Demande moi pas pourquoi je n'en sais rien
D'ailleurs si quelqu'un a la réponse