Discussion :

[gwenagan]

Bonjour à tout le monde.

J'ai un souci d'affichage dans un formulaire. Un des champs de mon formulaire principal fait référence au champs d'un sous-formulaire dans lequel il n'y a pas encore d'enregistrement. Donc le résultat de mon calcul est nul et cela m'affiche une Erreur (image 1)



Et quand je quitte mon formulaire, j'effectue sur "Sortie" une mise à jour d'une table avec le champs en erreur, ce qui me provoque le message de debogage (image 2)



Et je me retrouve dans le code (image 3)


Comment puis je éviter cela ?

Evidemment, un DLookup pour vérifier si l'enregistrement existe ne fonctionne pas puisque si l'enregistrement existe, pas de problème, mais si il n'existe pas mon DLookup me renvoie une valeur nulle et le résultat est le même.

Merci par avance pour votre aide et très bonne journée à vous tous.

[tee_grandbois]

bonjour,
il faut utiliser IsError() dans les 2 cas:
pour les contrôles du sous-formulaire, il faut ajouter Vraifaux:

Code :

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

=VraiFaux(IsError([NomduSousForm].[Formulaire]![ChampduSF]);0;[NomduSousForm].[Formulaire]![ChampduSF])

pour le bouton de sortie, IsError suffit pour tester l'existence :

Code :

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

1
2
3
4
5
Private Sub WFIN_Click()
If IsError(Me.[NomduSousForm].[Form]![ChampduSF]) = False Then
    ' ici ton code ...
End If
End Sub

[gwenagan]

Bonsoir et merci beaucoup,

La premiere solution marche super bien et me mets des Zéro si erreur. Super (image 1)




En revanche, la seconde, j'ai mis un point d'arrêt pour vérifier l'exécution du code, le programme exécute mon code quoi qu'il arrive.
En même temps, comme la première erreur est résolu, c'est moins grave. Il fait une mise à jour avec Zéro. (Image 2)




Peut être ai je mal mis le contrôle ?

Merci encore et bonne soirée à tous.

[tee_grandbois]

dans ce cas, il faut tester si Me.CTRL_J <> 0

[gwenagan]

Bonjour à tous.

Comme d'habitude, vous êtes très efficace. Bien sur, "Me.CTRL_J <> 0" fonctionne donc tout va bien.
Et grand merci et à bientôt.
Bonne soirée.