Dim I As Integer On Erreur GoTo err_ With Tableau If Not (Rs.BOF And Rs.EOF) Then Rs.MoveFirst .FixedRows =1 .Rows =2 .FixedCols =1 .Cols =4 Do While Not Rs.EOF I=.Rows-1 .TextMatrix(I, 0) = Rs!NumId .TextMatrix(I, 1) = Rs!Codes .TextMatrix(I, 2) = Rs!Validite .TextMatrix(I, 3) = Rs!CodeClient .Rows =.Rows+1 Rs.MoveNext Loop End If End With Exit Sub err_: MsgBox Err.Descriptio
Sur quelle ligne, et quelles sont les valeurs de la ligne ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTableau.TextMatrix(I, 0) =
Dim I As Integer I = 0 If Not (Rs.BOF And Rs.EOF) Then Rs.MoveFirst Tableau.Rows = Rs.RecordCount + 1 On erreur GoTo err_indice I = 1 Do While Not Rs.EOF Tableau.TextMatrix(I, 0) = Rs!NumId Tableau.TextMatrix(I, 1) = Rs!Validite I = I + 1 Rs.MoveNext Loop End If Exit Sub err_indice: MsgBox Err.Description & " / " & i
Dim I As Integer I = 0 If Not (Rs.BOF And Rs.EOF) Then Rs.MoveFirst On Error Resume Next 'Tableau.Rows = Rs.RecordCount + 1 I = 1 Do While Not Rs.EOF Tableau.TextMatrix(I, 0) = Rs!NumId Tableau.TextMatrix(I, 1) = Rs!Codes Tableau.TextMatrix(I, 2) = Rs!Validite Tableau.TextMatrix(I, 3) = Rs!CodeClient I = I + 1 Rs.MoveNext Loop End If
On Error Resume Next
'Tableau.Rows = Rs.RecordCount + 1
Tableau.TextMatrix(I, 0) =