cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
13 mai 2005 à 18:02
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
14 mai 2005 à 18:29
bonsoir
voila,j'ai se code pour comptabiliser le nombres de photos qu'il y a dans la listebox,mais il ne se met pas à jour instantanément dés que j'insére une nouvelle données dans la listbox,il se met à jour dés que je ferme et que j'ouvre mon programme,ou je dois placer se code pour qu'il se mette à jour dés que j'insére une données
Text1.Text = List1.ListCount & " Photos".
j'ai essayé dans le LOAD,INITIALISE de la form mais rien.
c'est du VB6
merci
@plus
petchy
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 14 mai 2005 à 12:35
Bonjour,
Si ta Liste est dans la même Form, avant End Sub, essaye de rajouter
List1_Click, pour provoquer l'évenement click de la liste, puisque tu dis que cela fonctionne quand tu tu le fais.
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 20154 13 mai 2005 à 20:04
voila le code,sa c'est la form ou j'enregistre les données
Private Sub Command1_Click()Dim MaX As Integer
'Ajoute un nouveau enregistrement ou le modifie
On Error GoTo prob
If LoLo = True Then
If Txt_Titre = "" Then
MsgBox "Vous devez entrer le titre du film", vbInformation, "GestionDivX"
Txt_Titre.SetFocus
Else
Set Rs = New ADODB.Recordset
Rs.Open "select max(code_film) as lolo from film", DB
If IsNumeric(Rs!LoLo) = False Then
MaX = 1
Else
MaX = Rs!LoLo + 1
End If
Rs.Close
Set Rs = New ADODB.Recordset
Rs.Open "Film", DB, adOpenDynamic, adLockOptimistic
Rs.AddNew
Rs.AddNew
Unload Me
'ajout.Hide
Frm_Accueil.Show
End If
Else
If Txt_Titre = "" Then
MsgBox "Vous devez entrer le titre du film", vbInformation, "GestionDivX"
Txt_Titre.SetFocus
Else
Set Rs = New ADODB.Recordset
Rs.Open "select * from film where code_film=" & CodeFilm, DB, adOpenDynamic, adLockOptimistic
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 13 mai 2005 à 20:19
Essaye de rajouter entre Rs.Update et Rs.Close, Rs.Refresh
Parce que si j'ai bien compris c'est qaund tu fait un Update que tu dois fermer et rouvrir l'application pour toi voir le changement.
La méthode refresh normalement doit mettre ta list à jour sans fermer
l'Appli.
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 20154 13 mai 2005 à 20:50
toujours rien,
j'ai mis mon code dans l'événement "click" de ma listbox,la c'est sur ça fonctionne, mais bon ,il faut que je click
je vais refaire des essais,on verra bien
en tous cas,merci pour vos réponses.
bonne soirée
petchy