Discussion :

[lumbroso]

salut j'ai fait un truc mai s le proble c que ca ne marche pas comme je le voudrai j'ai une liste de nom dans un champ listbox et des que je selectionne sur un des ces nom tout ce qui concrerne ce dernier doivent mettre automatiquement remplie dans plusieurs champs text
voici ce que j'ai fais
il me prend en compte seulement le premier enregistrement

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
 
Set db1 = OpenDatabase("prodect.mdb")
Set rs1 = db1.OpenRecordset("Intervenants", dbOpenTable)
If txtrefinter = "" Then
MsgBox "Aucun enregistrement à supprimer", vbExclamation
Else
    MsgBox ("Suppression éffectuée ...")
    rs1.Delete
    'rs1.MoveNext
    If rs1.EOF = False Then
        'rs1.MoveNext
        txtrefinter = ""
        txtnominter = ""
        txtprenominter = ""
        txtfonctioninterv = ""
        txttauxinter = ""
        While Not rs1.EOF
            List1.AddItem rs1("Ref intervenants")
        Wend
 
    End If
End If

[SfJ5Rpw8]

c'est le bon code ..? il n'as pas l'air de correspondre à sa decription ..

[lumbroso]

c'est le bon code c ca le pire ta une solutio pour m'aider?

[SfJ5Rpw8]

il est lancé quand ce code... ? à priori il ne sert pas à remplir des textbox... mais à effacer un enregistremet de ta base.. et à remplir une liste box...

[lumbroso]

excuse moi mais ce code correspond a un effacement d'un enregistrement mais il ne realimente pas mon listebox

le probleme precedent voici le code por ce probleme

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
 
 
Private Sub List1_Click()
Set db1 = OpenDatabase("prodect.mdb")
 
Set rs1 = db1.OpenRecordset("Intervenants", dbOpenTable)
 
txtrefinter = rs1("Ref intervenants")
txtnominter = rs1("nom")
txtprenominter = rs1("prenom")
txtfonctioninterv = rs1("Fonction")
txttauxinter = rs1("Taux")
cmdvalid.Enabled = False
Cmdnew.Enabled = True
cmdsupp.Enabled = True
txtrefinter.Enabled = False
txtnominter.Enabled = False
txtprenominter.Enabled = False
txtfonctioninterv.Enabled = False
txttauxinter.Enabled = False
 
End Sub

[SfJ5Rpw8]

ben dans ce code tu n'utilise nulle part la valeur de ta listbox... positionne toi d'abords sur le bon enregistrement avant de l'afficher...

[lumbroso]

c normal que je n'utilise pas list...
car le code precedentcorrespond au control listbox

Code :

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

1
2
3
4
 
Private Sub List1_Click()
Set db1 = OpenDatabase("prodect.mdb")
Set rs1 = db1.OpenRecordset("Intervenants", dbOpenTable)

[SfJ5Rpw8]

c normal que je n'utilise pas list...
car le code precedentcorrespond au control listbox

Code :

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

1
2
3
4
 
Private Sub List1_Click()
Set db1 = OpenDatabase("prodect.mdb")
Set rs1 = db1.OpenRecordset("Intervenants", dbOpenTable)

j'ai bien compris que ce code été exécuté à chaque clic sur ta list1.. mais si tu ne tient pas compte de la valeur de celle-ci .. comment ve tu que les données de tes textbox coresponde à la sélection effectuée dans la listbox...

essai :

Code :

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

1
2
 
Set rs1 = db1.OpenRecordset("select * from Intervenants where [Ref intervenants]='" & list1.txt & "'")

[lumbroso]

ca ne marche il me met l'erreur sur :

Code :

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

1
2
 
list1.text

l'erreur est 3021 pas d'enregistrement et pourtant il y a des enregistrements j'avais utiliser cette ligne de code au paravant mais je croyais que c'etait une erreur de ma part

[SfJ5Rpw8]

affiche la valeur de List1.text dans un Msgbox, histoire d'être sur qu'il contient la bonne valeur... le champ
Ref intervenants est-il bien un champ texte..? (en passant c'est pas terrible les espaces dans un nom de champ..)

sinon essai de mettre ta base en piéce jointe (une fois zippée..)

[lumbroso]

comme tu me l'as demander je t'envoi le fichier ainsi qu'une table ou figure les information desire
merci de m'aider

[SfJ5Rpw8]

bon j'ai pas VB6, ici .. mais j'ai testé sous excel et le code suivant fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub List1_Click()
Set db1 = OpenDatabase("F:\tmp\travail vb\prodect.mdb")
Set rS1 = db1.OpenRecordset("select * from Intervenants where [Ref intervenants]='" & List1.Text & "'")
Debug.Print rS1("Ref intervenants")
Debug.Print rS1("nom")
Debug.Print rS1("prenom")
Debug.Print rS1("Fonction")
Debug.Print rS1("Taux")
End Sub

je ne vois pas d'ou viens ton probléme...

[ProgElecT]

List1.text contient 4 champs
Proposition:
dans "Private Sub List1_Click()" inserer le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Rech, RefRech As String
Dim T As Integer
Rech = ""
For T = 1 To Len(List1.List(List1.ListIndex))
 If Asc(Mid$(List1.List(List1.ListIndex), T, 1)) = 9 Then 'vbTab
  Exit For
  Else
  Rech = Rech & Mid$(List1.List(List1.ListIndex), T, 1)
 End If
Next T
'Set rs1 = db1.OpenRecordset("select * from Intervenants where [Ref intervenants]='" & List1.Text & "'")
On Error Resume Next
Set rs1 = db1.OpenRecordset("select * from Intervenants where [Ref intervenants]='" & Rech & "'")
If Err.Number <> 0 Then Exit Sub

Attention si plus d'un "Ref intervenants" peuvent prendre la même valeur,
le premier enregistrement remplirat les TextBoxs.

Salut

ProgElecT

[lumbroso]

merci men mais j'ai pas trop compris ce que tu as fais pour que ca marche je serai interesse de savoir pour ca na pas marcher avec ce que j'ai fait .
entout cas merci ca marche comme sur des roulettes

[ProgElecT]

Salut

Lors du remplissage de la listbox, chaque ligne est remplis avec 5 champs.

Code :

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

1
2
3
 
 List1.AddItem rs1("Ref intervenants") & vbTab & rs1("nom") & vbTab & _
rs1("prenom") & vbTab & rs1("Fonction") & vbTab & rs1("Taux")

Au moment du "List1_Click()", la condition d'ouverture ne fait reference qu'au champs Ref intervenants,
alors que List1.List(List1.ListIndex) contient les champs :
rs1("Ref intervenants") & vbTab & rs1("nom") & vbTab & rs1("prenom") & vbTab & rs1("Fonction") & vbTab & rs1("Taux").

a la rigueur il faudrait ouvrir avec :
where [Ref intervenants]= Rech1 and [nom]= Rech2
and [prenom]= Rech3 and [Fonction]= Rech4 and [Taux]= Rech5....
Rech1, Rech2, Rech3, Rech4 , Rech5 ayant ete extrait de List1.List(List1.ListIndex).

ProgElecT