cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
6 mai 2006 à 14:14
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
6 mai 2006 à 16:57
bonjour
j'ai un probleme avec "moveLast",j'ai mis se code dans l'activate de ma form,mais rien ne s'affiche
If Not Rs.EOF Then
Rs.MoveLast
Text1.Text = Rs.Fields(10)
Text3.Text = Rs.Fields(11)
Text4.Text = Rs.Fields(12)
Text5.Text = Rs.Fields(13)
End If
auriez vous une idée,pour faire affiché mon dernier enregistrement de ma base dans les textbox ou un msgbox
merci
@ plus
petchy
asecher
Messages postés262Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention27 avril 20071 6 mai 2006 à 16:24
Ben t'es en fin de fichier sans enregistrement...peut-être?
If Not Rs.EOF Then
Rs.MoveLast
Text1.Text = Rs.Fields(10)
Text3.Text = Rs.Fields(11)
Text4.Text = Rs.Fields(12)
Text5.Text = Rs.Fields(13)
DoEvents 'pour raffaichir un peu l'écran
ELSE
MsgBox "Aucune données disponibles"
End If
Attention aussi à la base de données qui est derrière et le type de RecordSet utilisé:
Certains n'acceptent pas le MoveLast (le plantage étant masqué par un On error Resume Next)
Au passage, plutôt que de donner le n° de colonne, je préfère indiquer le nom du champ, ce qui est plus lisible :
TxtNom.Text = Rs.Fields("DB_Nom") 'c'est un peu plus long au niveau interprétation mais c'est plus clean)