Discussion :

[steffspqr]

Bonjour à tous,

J'utilise Access 2010 (depuis 3 jours),

J'ai réalisé 4 tables, transformés en 4 formulaires tabulaires eux mêmes intégrés dans un formulaires à 4 onglets (un par formulaires).

En parallèle, les 4 tables ont été transformé en 4 formulaires colonne simple, pour une représentation enregistrement par enregistrement et non en lignes.

Voila mon problème : Comment puis je, via un bouton ou un doubleclick sur chaque ligne d'enregistrement, retrouver ma ligne du formulaire tabulaire au formulaire colonne simple ?

J'ai essayer ceci :

Code :

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

1
2
3
4
Private Sub Commande35_DblClick(Cancel As Integer)
DoCmd.OpenForm "Détails Logements",
DoCmd.GotoRecord,,AcCurrentRecord
End Sub

mais je ne tombe jamais sur la bonne ligne

Par avance merci de votre aide

[Pepito78]

J'ai essayer ceci :

Code :

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

1
2
3
4
Private Sub Commande35_DblClick(Cancel As Integer)
DoCmd.OpenForm "Détails Logements",
DoCmd.GotoRecord,,AcCurrentRecord
End Sub

Peut être en passant au formulaire "Détails Logement" un argument d'ouverture

Mettons que votre clé primaire s'appel ID_Enregistrement (NuméroAuto) et soit contenu dans un champs du formulaire au même nom

Code :

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

1
2
 
DoCmd.OpenForm "Détails Logements",,,,,ID_Enregistrement.value

Et dans l'évènement Sur Chargement de Détails Logements

Code :

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

1
2
3
 
'Récupère l'argument d'ouverture et l'utilise pour chercher l'enregistrement
Me.Recordset.FindFirst "ID_Enregistrement=" & cstr(Me.OpenArgs)

Cordialement

[steffspqr]

Merci de votre attention, je teste cela vendredi dans la journée et vous tiens au courant dans la foulée .
Cordialement.

[steffspqr]

La manipulation fait apparaître l erreur suivante:
Erreur d' exécution " 424"
Objet requis

Qu'en pensez vous?

Par avance merci.

[Pepito78]

Sur quelle ligne de code ? (dans le formulaire origine ou le formulaire destinataire)

Je m'aperçois en même temps qu'il manque une virgule dans mon code !

Code :

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

DoCmd.OpenForm "Détails Logements",,,,,,ID_Enregistrement.value

et non pas

Code :

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

DoCmd.OpenForm "Détails Logements",,,,,ID_Enregistrement.value

[steffspqr]

Sur le formulaire d origine .

[Pepito78]

J'ai oublié une virgule

Code :

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

DoCmd.OpenForm "Détails Logements",,,,,,ID_Enregistrement.value

[steffspqr]

La virgule ne change rien hélas

[Pepito78]

La virgule ne change rien hélas

Bon résumons.

1) Vous avez bien dans votre table un champ clé primaire de type numérique ou NuméroAuto ? Quel est le nom de ce champ ?

2) Dans votre formulaire "Origine" vous avez bien une zone de texte lié à ce champ ? Quel est le nom de cette zone de texte ?

[steffspqr]

1) Pour faciliter nos échanges j ai nommé le champ de la table "Enregistrement" et c est effectivement un champ clé primaire numeroauto.
2) Réf.

[Pepito78]

Donc vous faites bien ?

Code :

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

1
2
 
DoCmd.OpenForm "Détails Logements",,,,,,Réf.value

[steffspqr]

Précisément

[Pepito78]

Précisément

Pouvez vous rajouter avant le DoCmd...

Code :

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

msgbox cstr(Réf.value)

et communiquer le résultat ?


Pouvez me mettre en zip votre base ?

Si c'est Access 2003 je m'y penche de suite, si Access 2010 ce soir à la maison

[Pepito78]

Le code est donc le suivant :

Code :

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

1
2
3
4
5
If Not IsNull(Enregistrement.Value) Then
    DoCmd.OpenForm "Détails Ecoles", , , , , , Enregistrement.Value
Else
    MsgBox "Impossible tant que vous êtes entrain d'ajouter une nouvelle ligne", 48
End If

Nous nous étions mal compris sur le nom du champ.

Cordialement

[steffspqr]

Merci beaucoup pour votre aide, bonne continuation!!!