Discussion :

[adelion7015]

Bonjour,

j'ai mis une condition après MAJ d'un formulaire, le but est de ne pas passer a un autre formulaire tant qu'un champ n'est pas renseigné, le code suivant, semble a priori juste dans son fond, mais pas dans sa forme.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_AfterUpdate()
Me.[Nom Perimetres].Value = Null
Else
 
Me.Commande64.Enabled = False
 
End Sub

cordialement.

[syrald]

Bonjour,

Je suis pas sûr d'avoir compris ce que tu veux. Est-ce que c'est ça?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_AfterUpdate()
   If IsNull(Me.[Nom Perimetres].Value) Then
      Me.Commande64.Enabled = False
   Else
      Me.Commande64.Enabled = True
   End If
End Sub

[adelion7015]

Oui, c'est ça, mais ça ne marche pas, le bouton reste actif même si le champ [Nom Perimetres] est vide.

[syrald]

Je n'ai jamais vraiment utilisé Form_AfterUpdate() et je ne sais pas si dans ton cas la fonction est bien appelée.

Ma solution serait de modifier ta fonction Commande64_Click() comme ceci:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande64_Click()
   If IsNull(Me.[Nom Perimetres].value) Then
      MsgBox "Veuillez remplir le champ correspondant au Nom du périmètre"
   Else
      'Ton Code
   End If
End Sub

[adelion7015]

l'idée, n'est pas mal, mais j'ai du code sur l'evenement click de ce bouton, alors j'ai fait ca, ca n'a pas l'air juste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande64_Click()
 Dim vr As Variant
vr = Me.Nom_Perimetres
 DoCmd.OpenForm FormName:="frm_traitement_superficie", OpenArgs:=vr
 Else
   If IsNull(Me.[Nom Perimetres].Value) Then
      MsgBox "Veuillez remplir le champ correspondant au Nom du périmètre"
   Else
      //DO STUFF
   End If
End Sub

J'ai un probleme quand il s'agit de faire des liaison entre code code different, enfin pas que la

[syrald]

Il fallait mettre ton code à la place de mon //DO STUFF

Ce que tu veux toi c'est accéder au formulaire seulement si le champs est rempli. Il faut donc que tu vérifie avant d'ouvrir le formulaire et pas après.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande64_Click()
   If IsNull(Me.[Nom Perimetres].Value) Then
      MsgBox "Veuillez remplir le champ correspondant au Nom du périmètre"
   Else
      Dim vr As Variant
      vr = Me.Nom_Perimetres
      DoCmd.OpenForm FormName:="frm_traitement_superficie", OpenArgs:=vr
   End If
End Sub

[adelion7015]

Ca marche, merci pour la solution.

cordialement.