valeur introuvable dans listbox et msgbox

Version imprimable

04/10/2008, 22h35
azde7015

valeur introuvable dans listbox et msgbox

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.
05/10/2008, 03h14
Invité

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
05/10/2008, 10h07
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
05/10/2008, 10h24
Invité

Bonjour

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

Philippe

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

Code:

1
2
3
4
5
6
7
8
 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

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
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

05/10/2008, 11h45
Renardo

Bonjour
sur la proprietee de ta liste deroulante
Limiter a liste est sur oui ?
05/10/2008, 12h06
azde7015

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

Renardo la propriété est a non .
05/10/2008, 12h14
azde7015

bien entendu merci a tous

a bientot
05/10/2008, 12h22
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