Charger enregistrement qui existe

[vychretien]

J'ai un formulaire pour la saisie des clients

Quand l'utilisateur saisie l'adresse de du client, je vérifie dans l’évènement du formulaire BeforeUpdate qu'il n'y a pas de numéro de client à cette adresse. S'il y a déjà un client, je demande à l'utilisateur s'il veut utiliser le client déjà existant.

Ma question est : comment charger l'enregistrement du client qui existe déjà dans le formulaire?

Merci

Yanick

Access 2007 - Windows 7

[pgz]

Bonjour.

Juste une idée à mettre au point dans ton projet. Si le code est dans le formulaire et que tu connais le numéro de client

Code :

1
2
3
4
5
6
Dim r as DAO.Recordset
 
Set r = Me.RecordsetClone
r.FindFirst "[NumClient] = " & lngNumClient
if not r.NoMatch Then Me.Bookmark = r.bookmark
set r = nothing

Cordialement,

PGZ

[vychretien]

Malheureusement le r.recordsetclone est vide, je ne peux donc pas utiliser le bookmark

Peut-être y a-t-il une propriété de mon formulaire qui n'est pas correct par exemple.

[pgz]

Bonsoir

Envoyé par vychretien

Malheureusement le r.recordsetclone est vide, je ne peux donc pas utiliser le bookmark.

Si c'est un formulaire indépendant, je ne sais plus quelle est la question!

Envoyé par vychretien

Ma question est : comment charger l'enregistrement du client qui existe déjà dans le formulaire?

Cordialement,

PGZ

[vychretien]

Non ce n'est pas un formulaire indépendant, il pointe sur ma table tb_Client...

J'ai essayé de faire :

set r = me.recordsetclone

if r.recordsetcount = 0 then
message
end if

et j'ai toujours le message...

Merci de m'aider!

[pgz]

Bonsoir.

Ce serait plutôt

Code :

1
2
3
4
5
6
7
8
Set r = me.Recordsetclone
if r.eof then
    Msgbox "nb d'enregistrements = 0"
else
    r.MoveLast
    Msgbox "Nb enregistrements = " & r.RecordCount
end if
set r = nothing

Pour compter le nb d'enregistrement de la source.

Cordialement,

PGZ