Discussion :

[marcmarc150]

Bonjour,
J'ai trouvé un petit, code qui m'a déjà bien aider, j'ai trouver comment aller au premier enregistrement, mais j'ai des difficultés pour aller sur l'enregistrement précis...

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_DblClick(Cancel As Integer)
Dim Choix As Integer
Choix = Me.id_travaux_recurent_labo.Value
Forms![fml_labo]![sfml_travaux_recurent_labo].Form.Recordset.MoveFirst
 
 
End Sub

J'aimerai bien positionner cet enregistrement sur la valeur de "CHOIX"
Comment faire ?

En vous remerciant

Marcmarc150

[ClaudeLELOUP]

Bonjour,

Comme ceci

Code :

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

1
2
DoCmd.GoToControl "CeluiQuiContiendraChoix"
DoCmd.FindRecord Choix, acStart

[marcmarc150]

Merci pour l'aide,

Lors de l'exécution du doubleclik, j’obtiens l'erreur
Impossible d'activer le contrôle....
j'ai vérifié l'orthographe du champ et c'est correct

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_DblClick(Cancel As Integer)
Dim Choix As Integer
Choix = Me.id_travaux_recurent_labo.Value
Forms![fml_labo]![sfml_travaux_recurent_labo].Form.Recordset.MoveFirst
DoCmd.GoToControl "id_travaux_recurent_par_employe"
DoCmd.FindRecord Choix, acStart

j'ai essayer aussi,

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_DblClick(Cancel As Integer)
Dim Choix As Integer
Choix = Me.id_travaux_recurent_labo.Value
Forms![fml_labo]![sfml_travaux_recurent_labo].Form.Recordset.MoveFirst
Me.id_travaux_recurent_labo.Enabled = True
DoCmd.GoToControl "id_travaux_recurent_par_employe"
DoCmd.FindRecord Choix, acStart
End Sub

Mais , cela ne passe pas non plus...

Peut tu encore m'aider pour obtenir cette solution,
En te remerciant

Marcmarc150

[ClaudeLELOUP]

1 Cette instruction ne sert à rien

Code :

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

Forms![fml_labo]![sfml_travaux_recurent_labo].Form.Recordset.MoveFirst

(soit dit en passant récurrent prend deux "r")

2 la propriété "Nom" du contrôle qui est censé contenir la valeur, est-elle bien id_travaux_recurent_par_employe ?

3 la propriété "Visible" de ce contrôle est-elle bien Oui ?

[marcmarc150]

Re bonjour,
les réponses sont oui, mais je suppose qu'il s'agit peut être du sous formulaire qui se trouve dans un des onglet
car je bloque toujours ...
j'ai encore beaucoup a apprendre....
j'ai placer un modèle test même format (plus concret)
donc dans la liste de droite, un doubleclick sur l'enregistrement choisi et dès lors un retour sur l'enregistrement identique de gauche

En te remerciant

Marcmarc150

[ClaudeLELOUP]

Le code qui marche :

Code :

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

1
2
3
4
Private Sub fktest_DblClick(Cancel As Integer)
DoCmd.GoToControl "nomtest"
DoCmd.FindRecord Me.fktest.Column(1)
End Sub

La zone de liste modifiable sur laquelle tu cliques sur la valeur à trouver affiche la 2e colonne de ta liste, la colonne liée étant la 3e colonne.
Il faut donc se référer au contenu de la colonne indicée (1). Ici Access commence sa numérotation à 0.

Une autre syntaxe valable eût été

Code :

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

1
2
3
4
Private Sub fktest_DblClick(Cancel As Integer)
DoCmd.GoToControl "nomtest"
DoCmd.FindRecord Me.fktest.Text
End Sub

Ici tu te réfères à ce qui est affiché (Text) et non à la valeur du contrôle (Value par défaut).

Compris ?

[marcmarc150]

Re,
je dirai , un peu compris, mais pas tout
mais si je fais un double click dans la liste de droite, il m'ouvre la liste déroulante de fktest, mais pour moi ce sera un champ caché tant dans la liste que le formulaire,
donc pour moi, c'est de choisir une ligne, un enregistrement dans la liste de droite et faire le double click dessus, donc sur "form"
et retour sur enregistrement de gauche du sous formulaire et pas sur le form principale
et c'est la que je coince .....

mon listing de droite c'est juste une visu des enregistrement de gauche
et pour ne pas passer en revue 1 par 1 (+/-230 enregistrements) , je choisis dans la liste et double click et il affiche le bon enregistrement a gauche


Je viens d’essayer , mais cela ne passe pas

Merci

Marcmarc

[ClaudeLELOUP]

À mon tour de ne pas comprendre.

Peux-tu poster une capture d'écran en indiquant où tu veux cliquer et l'endroit qui doit afficher la valeur choisie.

[marcmarc150]

voila une capture
afin d'obtenir le résultat

se sont peut être mes explications qui ne sont pas adéquates, sorry

En te remerciant

Marcmarc

[ClaudeLELOUP]

Je ne comprends pas trop la finalité.

Voici le code pour un double-clic sur le contrôle idtesttravaux :

Code :

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

1
2
3
Private Sub idtesttravaux_DblClick(Cancel As Integer)
DoCmd.GoToRecord acDataForm, "sfmltesttravaux", acGoTo, Me.CurrentRecord
End Sub

Avec ce code si tu double-cliques sur le contrôle « idtesttravaux » du énième enregistrement, le formulaire principal se positionne sur son énième enregistrement... pour autant qu'il existe.

C'est ça que tu veux ?

[marcmarc150]

re bonsoir, je viens d'essayer ton aide,

cela ne fonctionne pas, mm en essayant d'autres choses

la raison du double clic dans la liste de droite , c'est pour ne pas passer tous les enregistrements de gauche un par un mais choisir dans la liste un des enregistrements et avec le double clic retomber sur l'identique a gauche

ou si cela ne fonctionne pas ou si c'est impossible, peut être avec une liste déroulante, on choisi dans la liste déroulante a la place de la liste fixe et il affiche l'enregistrement choisi ?

merci quand mm de ton dévouement pour mon petit problème

Marcmarc

[ClaudeLELOUP]

Je suis désolé, je ne comprends pas ce que tu veux.

Quoi qu'il en soit, avant de poster ma réponse, j'ai évidemment testé que la programmation de ce que j'avais compris fonctionnait.

À toutes fins utiles, je te joins ta db avec les deux exemples.

[marcmarc150]

merci Claude
merci quand même de ta patience,
même si on n'as pas réussi a obtenir le résultat escompté

je regarderai encore demain si j'arrive a tomber sur l'enregistrement voulu par le double clic ou par une liste déroulante

bonne soirée a toi


Marcmarc