Discussion :

[snaxisnake]

Tout d'abord, on choisi un client dans une liste, on clique sur un bouton, puis un un formulaire apparait normalement avec les données du client choisi auparavant dans la liste...
Quel est le problème?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Activate()
Set mabase = CurrentDb
Set enregistrement = "select * from client where NumCli= '" & Forms.Application.CurrentData & "'"
Me.Nom = enregistrement("NomCli")
Me.Nom = enregistrement("Prenom")
Me.Nom = enregistrement("Rue")
Me.Nom = enregistrement("CP")
Me.Nom = enregistrement("Ville")
Me.Nom = enregistrement("Tel")
 
End Sub

[SfJ5Rpw8]

il y as quoi comme donnée dans ton formulaire, une fois le code exécuté ?

il n'y as pas trop de Me.Nom ... dans ton code ?

[Pierre Fauconnier]

Bonjour

Il manque sûrement quelque chose à la ligne

Code :

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

Set enregistrement = "..."

Je suppose que Enregistrement est un objet de type dao.recordset.
Il faudrait donc adapter la ligne et avoir

Code :

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

1
2
 
set Enregistrement = mabase.openrecordset("select ...")

Ok?

[snaxisnake]

le problème vient apparement de la requête SQL. La syntaxe est-elle bonne? Surtout la fin, est le bon code pour reprendre les données d'une liste d'un autre formaulaire?

Code :

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

1
2
 
Set enregistrement = "select * from client where NumCli= '" & Forms.Application.CurrentData & "'"

[Pierre Fauconnier]

Re...

Comme dit précédemment, la ligne

Code :

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

set enregistrement = "..."

n'est pas correcte, à mon avis (voir mon précédent message)... qu'en penses-tu?

De plus, application.currentdata n'est pas correct.
Pour moi, je ferais ceci

Code :

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

1
2
3
4
5
6
 
set enregistrement = mabase.OpenRecordset("select * from clients " & _
where numcli = '" & Forms("NomFormulaire").Recordset!numcli)
Me.Nom = rs!Nom
Me.Prénom = rs!Prénom
Me.Adresse = rs!Adresse

Ok?

[snaxisnake]

toujous pas...

Code :

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

1
2
3
4
5
6
7
8
 
Set mabase = CurrentDb
Set enregistrement = mabase.OpenRecordset("select * from Client where NumCli= '" & Forms("SélectionClient").Recordset!NumCli & "'")
Me.Nom = enregistrement("NomCli")
Me.Prenom = enregistrement("Prenom")
Me.Rue = enregistrement("Rue")
Me.CP = enregistrement("CP")
Me.Tel = enregistrement("Tel")

il dit " variable objet ou variable de bloc With non définie"

[Pierre Fauconnier]

De mon côté, cela fonctionne.

Il faut bien entendu que ce code placé dans le formulaire appelé, pas dans le formulaire appelant.

Sur quelle ligne de code l'exécution s'arrête t-elle?
Peux-tu donner le code complet de la procédure?