Discussion :

[babady]

bsr, j'ai tjrs des erreurs de compilation et erreur de syntaxe au niveau du code suivant:
nb ; c'est au niveau de :

Code :

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

1
2
3
4
5
6
7
8
9
reponse = msgbox("formclient:" & vbnewline & _
".........." & vbnewline & _
"RéfClient:" & varRéfClient & vbnewline & _
"NomSciété:" & varNomSociété & vbnewline & _
"PrénomContact:" & varPrénomContact & vbnewline _
"Ville:" & varVille & vbnewline & vbcrlf & _
"pour plus d'information , cliquez sur ok " ,vbOKCancel,"information Clientèle")
If reponse = vbOK Then
DoCmd.OpenForm "formclient", , , "[RéfClient]=" & liste1.Column(0)

voici le code complet

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
17
18
19
20
21
22
23
Private Sub liste1_DblClick(Cancel As Integer)
'declaration des variables
Dim rownumber As Integer
Dim varRéfClient, varNomSociété, varPrénomContact, varVille
Dim reponse As Integer
'affectation des variables
rownumber = Me.liste1.ListIndex + 1
varRéfClient = liste1.Column(0, rownumber)
varNomSociété = liste1.Column(1, rownumber)
varPrénomContact = liste1.Column(2, rownumber)
varVille = liste1.Column(3, rownumber)
reponse = msgbox("formclient:" & vbnewline & _
".........." & vbnewline & _
"RéfClient:" & varRéfClient & vbnewline & _
"NomSciété:" & varNomSociété & vbnewline & _
"PrénomContact:" & varPrénomContact & vbnewline _
"Ville:" & varVille & vbnewline & vbcrlf & _
"pour plus d'information , cliquez sur ok " ,vbOKCancel,"information Clientèle")
If reponse = vbOK Then
DoCmd.OpenForm "formclient", , , "[RéfClient]=" & liste1.Column(0)
Else
   Exit Sub
End If

[marot_r]

Bonjour.

À l'œil je ne vois rien d'anormal.

Personnellement quand j'ai un message complexe à créer je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim mess as string
mess="formclient:" 
mess=mess & vbnewline & ".........." 
mess=mess & vbnewline & "RéfClient:" & varRéfClient 
mess=mess & vbnewline & "NomSciété:" & varNomSociété 
mess=mess & vbnewline & "PrénomContact:" & varPrénomContact
mess=mess & vbnewline & "Ville:" & varVille 
mess=mess & vbnewline & vbNewLine & "pour plus d'information , cliquez sur ok "
 
if vbyes=msgbox(mess,vbOKCancel,"information Clientèle") then

Je trouve que cela aide au débogage en sortant les calculs du msgBox.

A+

[babady]

bjr monsieur
le code que vous m'avez envoyer est presque bon, mais ce qui n'est pas encore bon, ce que le formclient ne s'ouvre pas;
et des que je déroule la liste et que je sélectionne un enregistrement et faire un double click, dessus,la liste se referme automatiquement et m'affiche un petit formulaire intitule information de la clientèle avec des bouton ok et annuler
et des que je click sur le bouton ok ,le formulaire intitule information de la clientele se ferme au lieu d'ouvrir le formclient

[tee_grandbois]

bonjour,

Code :

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

if vbyes=msgbox(mess,vbOKCancel,"information Clientèle") then

vbyes ce ne sera jamais retourné avec VBOKCancel, essaie :

Code :

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

if vbOK=msgbox(mess,vbOKCancel,"information Clientèle") then