affichage automatique des données ds un formulaire

[adenov]

salut à vous tous,
voila, j'ai une petite base de données, et j'ai un formulaire "Fiche employé "
dans lequel il y un champ code = clé primaire et plusieurs d'autres informations affichés basées sur la table employé et sur d'autres tables liées.
ce que je voudrais c'est qu'au moment de la saisie d'une nouvelle fiche vierge et en tapant la clé primaire (qui n'est pas un nombre automatique mais un code significatif composé ) si le code n'existe pas, alors la saisie continue normalement, en passant au champs suivant, sinon, si le code existe, toutes les informations s'affichent dans le formulaire et on pourrait modifier ou consulter par exemple !
comment je fais ?
merci
j'espere etre clair ?

[Jeannot45]

Bonsoir

Voici une petite procédure qui te permets de réaliser ce que tu envisages.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub txtAdh_AfterUpdate()
    ' Déclaration des variables
    Dim rstAdh As DAO.Recordset
    Dim strCritere As String
 
    ' Génération du critère de rercherche
    strCritere = "CodeAdherent = " & Me.txtAdh
 
    ' Récupération du jeu d'enregistrement attaché au formulaire
    Set rstAdh = Me.RecordsetClone
 
    ' Recherche l'enregistrement
    With rstAdh
        .FindFirst strCritere
        ' Si l'enregistrement n'est pas trouvé
        If .NoMatch Then
            GoTo GestionErreur
        Else
            ' si l'enregistrement est trouvé, affiche les données correspondantes
            Me.Bookmark = rstAdh.Bookmark
        End If
    End With
 
    Exit Sub
GestionErreur:
    ' Atteint un nouvel enregistrement
    DoCmd.GoToRecord , , acNewRec
    ' Transfert la valeur saisie dans la Clé Primaire
    Me.CodeAdherent = txtAdh
End Sub

Remarque : le champ txtAdh est un champ indépendant