![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
semur
comment toi tu ferai car la je suis perdue
Eh bien tu prends un formulaire, fondé sur ta table qui contient tes personnes avec tous les champs, y compris le champ Remarques.
Tu nommes ce formulaire frmPersonnes.
Tu créés un second formulaire nommé frmRecherche avec une liste déroulante, un bouton Rechercher et un bouton Annuler.
Tu cliques 2x sur la liste déroulante de manière à afficher ses propriétés et tu localises Contenu et tu y colles ce code (à adapater selon tes champs):
SELECT [TBLPersonnes].[N°], [Nom] & " " & [Prénom] AS NomComplet, [TBLPersonnes].[Nom] FROM TBLPersonnes ORDER BY [TBLPersonnes].[Nom];
Sur la propriété Largeur colonnes : 0cm;2,54cm;2,54cm
Sur la propriété Colonne liée : 1
Sur la propriété Largeur liste : 6
Ensuite, sur l'événement Click ()du bouton cmdRechercher, tu colles ce code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Private Sub cmdChercher_Click()
Dim strCriteria As String
Dim blnExiste As Boolean
strCriteria = "[N°]=" & Me!cmbListNoms
blnExiste = (DCount("[N°]", "TBLPersonnes", strCriteria)) > 0
If blnExiste Then
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmPersonne", acNormal, , strCriteria, , acDialog
End If
End Sub
Private Sub cmdAnnuler_Click()
DoCmd.Close acForm, Me.Name
End Sub |
Tu sauves, tu fermes frmPersonnes et tu testes.
Argy
Partager