cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010
-
13 avril 2007 à 15:40
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010
-
14 avril 2007 à 13:31
Voici mon code..........
Call OuvRir(CheMin(4))
Rc.Open "Select * from TableClients where Id like '" & List4.List(List3.ListIndex) & "'", Ct, adOpenDynamic, adLockOptimistic
Do While Not Rc.EOF
Label10.Caption = Rc!code
Text6.Text = Rc!Nom
Text7.Text = Rc!Prénom
Text9.Text = Rc!Date_de_naissance
Text10.Text = Rc!Rue_Numéro
Text21.Text = Rc!Npa_Ville
Text27.Text = Rc!Téléphone
Text28.Text = Rc!Portable
Text29.Text = Rc!fax
Text30.Text = Rc!TelProf
Text31.Text = Rc!Adresse_mail
Text32.Text = Rc!CodeBarre
rt2.Text = Rc!commentaires
Rc.MoveNext
Loop
Rc.Close
Ct.Close
'-----------------------------------------------------------------------------------------
Function OuvRir(Fichiers As String)
Set Ct = New ADODB.Connection
Set Rc = New ADODB.Recordset
Ct.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & "'" & Fichiers & "'"
Ct.Open
End Function
bref j'en perd mon latin....
rt2= un richtextbox; j'ai essayé avec un champs text même résultat
le champ : commentaires, est un champs mémo j'ai essayé de le modifier en champ texte ; même résultat.
J'ai fais un copier- collé du nom du champs donc pas de fautes d'orthographeet si je suprime la ligne "rt2.Text Rc!commentaires" il bug en me disant que rc.movenext n'est pas autorisé si l'objet est fermé, et avec la ligne rt2.Text Rc!commentaires, il me dit qu'il trouve pas le champs (Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé).
j'ai aussi essayé de supprimer la boucle compte tenu du fait que le champ id est à numérotation auto.... il me cherche aussi le champ qu'il ne trouve pas.....
Bref... à devenir Chèvre et à mangé du foin....
j'ai bientôt plus de cheveux... alors si quelqu'un à une idée....... je l'en remercie d'avance infiniment
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 13 avril 2007 à 16:06
très chèr Exploreur comme je l'ai dis j'ai fais un copié collé depuis la base, donc il existe..... promis juré... je vais pas craché par terre (je suis chez moi).... excuse-moi c'est un peu nerveux....
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 13 avril 2007 à 16:09
cher Renfil j'ai aussi essayé sans boucle... de toute façon il ni à qu'un enregistrement possible vu que le champ recherché est un numéro auto... j'ai essayé avec et sans... idem
HUGOFLASH
Messages postés27Date d'inscriptionvendredi 10 octobre 2003StatutMembreDernière intervention 5 juin 2007 13 avril 2007 à 19:04
Bonjour,
As-tu essayé de mettre ta requête dans access pour voir ce que affiche ta requête?
car je ne vois pas d'erreur dans ton code.
mais je ne comprend pas pourquoi tu as une autre erreur quand tu supprimes la ligne "rt2.Text = Rc!commentaires".
as-tu vérifier ce que Renfielda dit:
vérifies le contenu de la collection Fields de Rc
( en fait, RC.Fields(n).Name) pour valider la liste des champs retournés
tu peux le vérifier avec un espion sur ta variable Rc.
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 14 avril 2007 à 02:41
je te remercie infiniment, mais je dois avoir une erreur ailleur dans le programme, car avec ce que tu m'as mis il ne détecte plus rien...
D'autre part si je me une ' devant le rt2!Commentaires donc il ne prends plus la ligne en compte... il bug sur la ligne suivante... (rc.close) donc le champ n'est pas en cause... je vous dis c'est à s'arracher les cheveux....
mais je vais regarder... plus loin..... Merci encore