Discussion :

[Pucho Faritas]

Bonjour,

Voici mon problème :

J'ai un formulaire (Formulaire RechEnregistrements) qui me propose par le biais d'une liste déroulante (cmbRechIntitulé) les différents intitulés contenus dans le champs [Intitulé de l'affaire] d'un autre formulaire (Formulaire ModifEnregistrements).

Je souhaite avoir une sub qui une fois l'intitulé choisi dans le cmbRechIntitulé du formulaire RechEnregistrements ouvre le formulaire ModifEnregistrements sur l'enregistrement dont le champ [Intitulé de l'affaire] = le choix effectué dans cmbRechIntitulé.

voici mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Sub ShowRecord2()
Dim critere As String
Dim Nomform As String
critere = "[Intitulé de l'affaire]=" & Me.cmbRechIntitulé
Nomform = "Formulaire ModifEnregistrements"
DoCmd.OpenForm Nomform, , , critere, acFormEdit
End Sub
 
Private Sub CmbLancerRechEnregistrements_Click()
ShowRecord2
End Sub

Où est le problème ? Faut-il utiliser Recordset.find ?
Merci.

[Delias]

Salut Pucho Faritas

C'est exactement ce que j'ai fait ci-dessous. Il faut deplacer le curseur dans le formulaire que tu viens d'ouvrir en fonction de la position de l'élement selectionné dans la liste. Cela est basé sur les indexes et ne fonctionne que si la liste est dans le même ordre que les enregistrements.

Si je me souviens bien avec ta solution cela active le filtre sur les enregistrements du formulaire ouvert et t'empeche de te balader d'un enregistrement à l'autre.

Code :

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

1
2
3
4
5
6
7
8
Private Sub List_DblClick(Cancel As Integer)
    
DoCmd.OpenForm "formulaire", acNormal, , , , acWindowNormal

Application.Forms!formulaire.SelTop = List.ItemsSelected(0) + 1
    
End Sub

J'espère que cela va te servir, c'est simple(iste) mais ca marche

A Bientôt

Delias

[aciri]

Salut Pucho Faritas

C'est exactement ce que j'ai fait ci-dessous. Il faut deplacer le curseur dans le formulaire que tu viens d'ouvrir en fonction de la position de l'élement selectionné dans la liste. Cela est basé sur les indexes et ne fonctionne que si la liste est dans le même ordre que les enregistrements.

Si je me souviens bien avec ta solution cela active le filtre sur les enregistrements du formulaire ouvert et t'empeche de te balader d'un enregistrement à l'autre.

Code :

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

1
2
3
4
5
6
7
8
Private Sub List_DblClick(Cancel As Integer)
    
DoCmd.OpenForm "formulaire", acNormal, , , , acWindowNormal

Application.Forms!formulaire.SelTop = List.ItemsSelected(0) + 1
    
End Sub

J'espère que cela va te servir, c'est simple(iste) mais ca marche

A Bientôt

Delias

je me permet de corriger ce qui est cité la haut:
il faut changer une ligne par ce qui suit:
Application.Forms!nomduformulaire.Seltop=nomdelaList.Listindex+1
j'ai verifié et ca marche a merveil
en plus on peut mettre ce code sur l'evenement AMJ de la liste deroulante par exemple ,c'est plus simple encore.
j'espere que j'ai bien fait d'intervenir
veuiller me laisser un mot en me disant que c'est reglé merci

[LE VIEUX]

bonjour,
personnellement je vois 2 problèmes possibles.
1) Me.cmbRechIntitulé est du texte.

Code :

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

critere = "[Intitulé de l'affaire]= '" & Me.cmbRechIntitulé & "'"

2) Me.cmbRechIntitulé a plusieurs colonnes même si une est cachée(ID) et il faut préciser le N° de colonne :
si numérique :

Code :

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

critere = "[Intitulé de l'affaire]=" & Me.cmbRechIntitulé.Colomn(x)

si texte :

Code :

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

critere = "[Intitulé de l'affaire]= '" & Me.cmbRechIntitulé.Column(X) & "'"