Bonjour j'ai la fonction suivante :
Mais j'obtiens une 'incompatibilité de type' à la ligne :
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
23
24
25 Function get_operation_suivante(ByVal op As Integer, cnn As ADODB.connection) As Variant Dim rst As New ADODB.Recordset Dim requetteSQL As String requetteSQL = "SELECT numOperation FROM operation WHERE numOperation > " & op _ & " ORDER BY numOperation;" Debug.Print requetteSQL rst.Open requetteSQL, cnn Dim operation As Variant Dim i As Integer For i = 1 To rst.RecordCount operation(i) = rst.Fields("numOperation") Next i rst.Close get_operation_suivante = operation(1) End Function
Pourquoi mon type n'est pas valable svp ? J'ai essayé avec as integer en valeur de retour, mais cela ne fonctionne pas non plus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part get_operation_suivante = operation(1)
une idée svp ?
Merci !![]()
Partager