Discussion :

[mnssylvain]

bonjour,

une fois encore je m'en remet à votre savoir faire......

j'ai un formulaire et un sous-formulaire en mode feuille de données dans lequel je controle en vba la valeur d'un champ sur l'évènement sortie

Le probleme c'est que si l'utilisateur clique sur le bouton fermer du formulaire, j'ai mon message m'indiquant que la valeur (de mon sous-formulaire) n'est pas bonne mais il me ferme quand meme le formulaire.

J'ai trouvé une parade pas tres propre qui consiste à réouvrir mon formulaire si j'ai le message d'erreur.

Mais je voudrais qu'il m'ouvre ce formulaire en mettant le focus sur l'enregistrement à modifier (celui qui a provoqué l'erreur).

A la fermeture de mon formulaire j'enregistre la valeur qui pose pb dans une variable public "datetenueerreur"

voici le code sur open form qui doit me permettre de me positionner sur la valeur à modifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If datetenueerreur = "" Or IsNull(datetenueerreur) Then
Exit Sub
Else
'se placer sur la tenue qui pose pb
Dim rs3 As Object
Dim essai As Variant
    Set rs3 = Forms![liste des Tenues]![liste des tenues sous formulaire].Form.Recordset.Clone
rs3.FindFirst "[date] = " & datetenueerreur
'MsgBox rs3.Bookmark   ' me renvoie un "?"
 
' essai = Me.CurrentRecord 
' MsgBox essai  'me renvoie 1 (le 1er enregistrement logique il me semble....
 'If Not rs3.EOF Then Me.Bookmark = rs3.Bookmark  'me dit signet non valide logique puisque rs3.bookmark renvoie "?"
End If

merci beaucoup de votre aide

[javelot69]

Bonjour,

Pourquoi mets-tu

If datetenueerreur = "" Or IsNull(datetenueerreur) Then
Exit Sub

alors que tu ne veux pas fermer le formulaire ?

Tu peux mettre

Code :

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

1
2
If datetenueerreur = "" Or IsNull(datetenueerreur) Then
datetenueerreur.SetFocus

pour placer le pointeur sur le champ qui n'est pas rempli correctement.

Petit conseil : évites les espaces dans les noms des formulaires ou autres objets de ton application ; mets plutôt des _ cela t'évitera des problèmes.

Bonne continuation.

[mnssylvain]

bonjour merci de ta réponse.

Le code que j'ai mis s'execute à l'ouverture de mon formulaire. Le formulaire s'est donc déjà déjà fermé et se réouvre

datetenueerreur est une variable public qui n'est remplie que si en sortant du formulaire il y a eu une erreur.

donc si sa valeur est nulle le code s'arrete.

mon problème c'est donc de se mettre sur l'enregistrement désigné par datetenueerreur à l'ouverture de mom formulaire

[javelot69]

Bonjour,

Dans ce cas, je te suggère de mettre un champ caché (non visible) sur ton formulaire et à l'ouverture du formulaire

Code :

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

1
2
3
4
ChampCache = datetenueerreur
If ChampCache = "" Or IsNull(ChampCache) Then
datetenueerreur.SetFocus
End If

J'espère que cela t'aidera.

[mnssylvain]

je ne comprends pas pourquoi

Code :

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

datetenueerreur.SetFocus

puisque datetenueerreur est une variable

j'avais essayé ça

Code :

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

1
2
3
Forms![liste des Tenues]![Liste des tenues sous formulaire].SetFocus
'Forms![liste des Tenues]![Liste des tenues sous formulaire]![date].SetFocus
'DoCmd.GoToRecord , , acLast

Mais ca me permet juste d'atteindre le dernier enregistrement pas celui que je veux

[mnssylvain]

Bonsoir,

Ca y est j'ai trouvé une solution.......

Code :

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

1
2
3
4
5
6
7
8
9
10
'se placer sur la tenue qui pose pb
Dim rs3 As Object
Dim essai As Variant
    Set rs3 = Forms![liste des Tenues]![liste des tenues sous formulaire].Form.Recordset
    rs3.MoveFirst
    Do Until rs3!date = datetenueerreur
    rs3.MoveNext
    Loop
 
End If

et voilou
merci pour les pistes

[javelot69]

Bonsoir,

Désolé j'ai écrit un peu vite.

Code :

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

1
2
3
4
ChampCache = datetenueerreur
If ChampCache = "" Or IsNull(ChampCache) Then
valeuramodifier.SetFocus
End If

Si tu as trouvé la solution, c'est tout bon !

Bonne continuation.