Discussion :

[SIENWEST]

bonjour,
j'utilise un formulaire appelé 'saisie' qui utilise la table 'projet' et un autre formulaire appelé 'soumission'; ce formulaire reprend quelques variables de la table projet, et par un un sous-formulaire, des variables d'une autre table appelée 'CNIL'.

Il y a une relation de 1 vers n entre la table 'projet' et la table 'CNIL' à l'aide de la variable NUM_DOSSIER (NUM_DOSSIER étant la clé primaire de la table projet).

Par un bouton de commande sur le formulaire 'saisie' j'ouvre le formulaire 'soumission'. De même, un bouton de commande sur le formulaire 'soumission' me permet de revenir au formulaire de saisie.

Mon problème est que je n'arrive pas à rester sur l'enregistrement actif en passant d'un formulaire vers un autre.

Avec la commande suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Commande69_Click()
Rem DoCmd.Minimize
On Error GoTo Err_commande69_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "soumission"
    stLinkCriteria = "[num_dossier]=" & Me![NUM_dossier]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "saisie"
 
Exit_Commande69_Click:
    Exit Sub
 
Err_commande69_Click:
    MsgBox Err.Description
    Resume Exit_Commande69_Click
    End Sub

cela marcherait quand je passe du formulaire saisie au formulaire soumission mais en plaçant un code similaire sur le bouton de commande du formulaire 'soumission' cela ne marche jamais, je retombe toujours sur un formulaire 'saisie' où tous les champs de saisie sont vides. Je ne comprends pas pourquoi.
Merci d'avance à celui qui pourrait m'aider et me trouver une solution.
Bien cordialement.
SIENWEST

[argyronet]

Bonjour,

Première chose, nommes tes contrôles, quels qu'ils soient.
Un développeur qui reprendra ton projet, voire toi même dans quelques temps, tu pestera contre l'auteur qui aura employé des noms comme Commande69 entre autres.

Pour ton cas de figure, plusieurs optiosn s'offrent à toi.
La plus accessible et la plus souple serait l'usage de l'argument OpenArgs de la méthode OpenForm.
Dedans, tu peux passer une chaîne ou un nombre pour tomber sur l'enregistrement de ton choix, pourquoi pas issu d'une variable (ou mieux, une propriété) publique :

Code :

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

DoCmd.OpenForm "MonForm", acNormal, , , , acDialog, "ID;123456789"

Tu peux aussi envisager le simple usage d'une condition Where dans la même méthode :

Code :

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

DoCmd.OpenForm "MonForm", acNormal, , "[ID]=" & gIDValue

Enfin, si ton formulaire est vide à l'ouverture, c'est que tu as affecté les propriétés Ajout Autorisé et Entrée de données à Oui ce qui ne doit pas être le cas pour une consultation de fiche.

Argy