des textbox liés a un datacombo sur VB6

Question

salut mes frères
Private Sub DataCombo2_Click()
Adoclt.RecordSource "SELECT * FROM Clients WHERE Idclt " & DataCombo2.BoundText
For i = 0 To 3
With clt(i)
Set .DataSource = Adoclt
    .DataField = Adoclt.Recordset.Fields(i).Name
End With
Next i
End Sub

Par ce code j'estime que les textbox clt(i)se change automatiquement en sélectionnant un client sur le datacombo2
mais le problème c'est que les champs affiche toujours les informations du premier client  

merci de m'aider

liondes · Answer

salut mes frères 
Ca va C'est bon en ajoutanr les deux lignes en rouge

Private Sub DataCombo2_Change()
If DataCombo2.Text <> "" Then
Adoclt.RecordSource "SELECT * FROM Clients WHERE Nom " & DataCombo2.Text
Adoclt.Recordset.AbsolutePosition = DataCombo2.SelectedItem
For i = 0 To 3
With clt(i)
Set .DataSource = Adoclt
    .DataField = Adoclt.Recordset.Fields(i).Name
End With
Next i
End If
End Sub

Des textbox liés a un datacombo sur VB6

1 réponse

Votre réponse

Discussions similaires