Discussion :

[manbas]

Bonjour
Dans mon form j'ai un sous-form qui renseigne une requête dont la table est paramétrée sur NullInterdit pour MonChampObligatoire.
Je voudrais empêcher la sortie du form, et la création d'un nouvel enregistrement, et la navigation entre enregistrements du form, sans que MonChampObligatoire (dans le sous-form) ne soit renseigné.
J'ai essayé

Code :

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

1
2
3
4
 
If isnull(Form![MonForm].[MonSousForm].Form.MonChampObligatoire) then
msgbox "stop"
exit sub

sans résultat fiable car je ne parviens pas à trouver le bon évènement pour le placer.
Merci beaucoup pour vos conseils.

[loufab]

Bonjour,

Sur activation

se produit à chaque consultation du recordset ouverture et déplacements.


Avant insertion

se produit avant l'insertion d'un enregistrement.


Pour en savoir plus sur les événements et leur enchainement tu peux récupérer l'outil Chasseur d'événement sur ma page. Code ouvert.

Cordialement,

[manbas]

Merci pour ton conseil loufab. J'ai regardé le chasseur d'évènements: c'est vachement astucieux!
Evidemment maintenant ça fonctionne (le message "stop" au bon moment), à ceci près que "exit sub" n'empêche pas la circulation entre enregistrements: pourquoi?
Certes ce n'est pas tout à fait la question de départ, mais c'est quand même intimement lié.
Ton avis?

[loufab]

Oui cet événement (sur activation) est déclenché après le changement d'enregistrement.

Il existe d'autre événement comme Sur Erreur, Avant Ajout...

à tester.

[fgiambelluco]

Bonjour
On peut y arriver en conservant le numéro de l'enregistrement courant (Me.CurrentRecord) et en cas d'erreur on passe par

Code :

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

DoCmd.GoToRecord , , acGoTo, NumEnrSauve

[manbas]

Merci Frédéric pour ta réponse.
Je ne suis pas professionnel en informatique, mon expérience du VBA vient d'excel, et je ne suis sur Acces que depuis 8 jours. L'idée de revenir vers le formulaire current m'avait traversé l'esprit mais je ne sais pas l'écrire: échec de

Code :

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

1
2
3
4
 
dim actif
actif=Me.Num_Principal.value
DoCmd.GoToRecord , , acGoTo, actif 'tente de rester sur le formulaire actif repéré par le Num_Principal

Si je place le code suivant dans l'évènement "sur activation"

Code :

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

1
2
3
4
 
If isnull(Form![MonForm].[MonSousForm].Form.MonChampObligatoire) then
msgbox "stop"
exit sub

quelle sera la suite?
Merci par avance pour tes précisions.

[fgiambelluco]

Re
Si je reprends une partie de ton code cela donnerait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Actif
Private Sub Form_Current()
   If isnull(Form![MonForm].[MonSousForm].Form.MonChampObligatoire) then
   msgbox "stop"
   if not isnull(actif) then
      DoCmd.GoToRecord , , acGoTo, actif
   end if
end if
 
   actif=me.currentrecord
end Sub

J'espère que c'est bon, car j'ai fait ça à 'l'arrache'