valeur introuvable dans listbox et msgbox

[azde7015]

Bonjour

j'ai un formulaire, ou il y a dessus la saisi de toutes les données concernant des règlements, j'ai aussi une liste box ou il y a dedans les références des règlements ce qui me permet de saisir la référence pour avoir ensuite les données le concernant.

je voudrais que sur l'événement sur entrée si après la saisi d'une valeur qui n'existe pas, un msgbox apparaisse et indique a l'utilisateur que cette enregistrement n'existe pas. Actuellement il le renvoi a un enregistrement peut être d'une façon aléatoire ce qui n'est pas normal et pourrait induire en erreur l'utilisateur.

Merci d'avance.

[Philippe JOCHMANS]

Bonjour

J'ai relu plusieurs fois pour essayer de comprendre, merci de vous relire avant d'envoyer un message.

D'abord, comment fais-tu le contrôle pour avoir un retour aléatoire ?

Si tu nous mettais le code, cela permettrait de trouver le problème.

Philippe

[azde7015]

bonjour.
ce que je voulais dire, c que quant je saisi une référence de règlement qui n'existe pas dans mes données, access me renvoi sur un enregistrement qui n'a rien a voir, donc aléatoire.
Il est donc plus logique d'avoir un message qui nous indique que la référence de règlement saisi n'existe pas.
Justement je n'arrive pas a formuler sous vba le code.

merci

[Philippe JOCHMANS]

Bonjour

Et quel est le code actuel qui te retourne cette donnée aléatoire ?

Philippe

[azde7015]

voici le code ou du moin celui que j'ai trouver

 Private Sub Modifiable48_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Numero de cheque] = " & Str(Me![Modifiable48])
    Me.Bookmark = rs.Bookmark
End Sub
 

merci

[Jack78960]

salut,
c'est la propriété nomatch qui va t'être utile

Private Sub Modifiable48_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Numero de cheque] = " & Str(Me![Modifiable48])
    If rs.NoMatch Then
        MsgBox "Ton message"
    Else
        Me.Bookmark = rs.Bookmark
    End If
End Sub
 

[Renardo]

Bonjour
sur la proprietee de ta liste deroulante
Limiter a liste est sur oui ?

[azde7015]

ca marche jack 78960 c tout a fait ce que je voulais.

Renardo la propriété est a non .

[azde7015]

bien entendu merci a tous

a bientot

[Renardo]

A tu une raison pour le mettre a Non?
si tu le met a oui tu ne pourras entrer que les données de ta liste
Sinon pense a mettre Résolu