Discussion :

[djibysadji]

Bonsoir le forum!
Comment compléter le code ci-dessous de sorte à éviter l'alerte: "Vous avez peut-être entré du texte dans dans un champ numérique ou un nombre supérieur à ce que permet le paramètre de la propriété TailleChamp."

Nous utilisons l'auto-completion pour faire des recherches. Pour cela nous avons une liste déroulante et un bouton de recherche. Quand nous saisissons une lettre, la liste se déroule et nous propose des élèves en fonction cette valeur et en suite logiquement nous devons sélectionner un élève avant de cliquer sur le bouton de recherche. Mais il peut arriver qu'un utilisateur clique sur le bouton avant d'avoir entrer l'identifiant numérique de l'élève sur lequel s'opère la recherche. Ce qui génèrera l'alerte mentionnée plus haut.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub cmdRecherche_Click()
 With Me.RecordsetClone
 
        .FindFirst "Eleve_id=" & Nz(Me.RechercherEleves.Column(-1), 0) ' effectue la recherche
 
        If Not (.NoMatch) Then ' si ça matche
            Me.Bookmark = .Bookmark ' on se positionne sur l'enregistrement trouvé
        Else
            MsgBox ("Pas de résultat !")
        End If
 
  End With
 
       Me.RechercherEleves.Value = ""
 
End Sub

Code :

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

1
2
3
4
5
Private Sub RechercherEleves_Change()
 Me.RechercherEleves.RowSource = "SELECT Eleve_id, PrenomNom, Datenaiss, Classe_libelle FROM R_RECHERCHER_ELEVES WHERE PrenomNom LIKE '" & RechercherEleves.Text & "*'"
    Me.RechercherEleves.Dropdown ' affiche la liste des noms/prénoms correspondant
 
End Sub

djibysadji

[User]

Bonsoir,

Pourquoi ne pas mettre le code du bouton directement sur l'événement après-maj de la liste déroulante RechercherEleves :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub RechercherEleves_AfterUpdate()
 
    With Me.RecordsetClone
 
        .FindFirst "Eleve_id=" & Nz(Me.RechercherEleves.Column(0) ' effectue la recherche
 
        If Not (.NoMatch) Then ' si ça matche
            Me.Bookmark = .Bookmark ' on se positionne sur l'enregistrement trouvé
        Else
            MsgBox ("Pas de résultat !")
        End If
 
  End With
 
End Sub

Une fois que vous validez votre choix dans la liste déroulante (sortie ou autre) le code se déclenche et recherche l'enregistrement correspondant à la saisie.

Donc 2 procédures événementielles pour la liste :

• 1 sur changement
• 1 sur après-maj

[djibysadji]

Merci User, ça marche!