Discussion :

[NAIMA2]

bonjour, mon probleme est le suivant j ai fait un petit programme au niveau de l evenement en change de combobox mais apparament il s éxucute pas il n pas compiler je ne sais pas pour quoi sa fonctionne pas
merci pour votre aide

[Najdar]

Bonjour NAIMA2

Essais avec l'événement _Click.
_Click se produit quand tu utilise ta souris pour sélectionner un élément.
_Change se produit si tu change le texte de la conbo au clavier.

[NAIMA2]

bonjour, le voila le code source.
'Private Sub Cobssfam_Click()
'Dim strTmp As String
'Dim rstTmp As Recordset
'Dim j As Integer
'Dim jmax As Integer

'Debug.Print "bonjour"
'Exit Sub


'j = MSFGssfam.Col
'strTmp = "SELECT * FROM materiel WHERE ssfam = " & Chr(34) & (Cobssfam.Text) & Chr(34)
'Debug.Print strTmp
'Set rstTmp = dbsBase.OpenRecordset(strTmp)

'If rstTmp.RecordCount <> 0 Then
'rstTmp.MoveLast
'rstTmp.MoveFirst
'jmax = rstTmp.RecordCount

'For j = 1 To jmax
'If rstTmp.RecordCount <> 0 Then
' rstTmp.MoveLast
' rstTmp.MoveFirst
' MSFGmat.AddItem " "
'MSFGmat.TextMatrix(j, 0) = rstTmp.Fields(2)
'MSFGssfam.TextMatrix(j, 1) = rstTmp.Fields(1)

'Debug.Print rstTmp(0)

'rstTmp.MoveNext
'End If
'Next j
'MSFGmat.Rows = jmax + 1
'End If
'End Sub
'********************************************************
svp essai de faire quelque chose sa fait des jours ou j ai coinser sur sa
merci d avance

[Najdar]

Le plus simple c'est de nous montrer ton code et de nous expliquer.