Discussion :

[le_niak]

Bonjour a tous,

Voici mon problème, je crée un tableau dont les données proviennent d'un recordset, malheuresement lors de l'attribution des données dans le tableau, access me renvoie l'erreur suivante :

Erreur d'exécution 94
Utilisation incorrecte de Null

pourtant j'ai vérifié le résultat rs10(5) * rs10(riskrempl + 10) qui pose un pb et j'ai bien une valeur

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
'générer risk matrix
Private Sub Commande50_Click()
 
'création object excel
Dim Appexcel As Excel.Application
Dim Wbexcel As Excel.Workbook
 
'ouverture du fichier excel spécifié
Set Appexcel = CreateObject("Excel.Application")
Appexcel.Visible = True
Set Wbexcel = Appexcel.Workbooks.Open("H:\RiskMatrix.xls")
Appexcel.Sheets("HF Risk Matrix").Select
 
'déclaration variables
 Dim rs10 As DAO.Recordset
 Dim j As Integer
 Dim compteur As Integer
 Dim riskrempl As Integer
 Dim Tabtemp(200) As Long
 Dim test As Double
 
 
 'remplisssage tableau avec des zéros
For compteur = 1 To 200
    Tabtemp(compteur) = 0
Next compteur
 
'création du recordset à partir de la requete
Set rs10 = CurrentDb.OpenRecordset("Risk Matrix by composition")
 
j = 0
 
While Not rs10.EOF
 
 
  'données initiales : analyst, stratégies...
    Appexcel.Cells(1, 6 + j) = rs10(72)
    Appexcel.Cells(2, 6 + j) = j + 1
    Appexcel.Cells(3, 6 + j) = rs10(73)
    Appexcel.Cells(4, 6 + j) = rs10(69)
    Appexcel.Cells(5, 6 + j) = rs10(5)
 
 'boucle permettant de remplir tous les risques de chaque fond
 For riskrempl = 0 To 58
    Appexcel.Cells(8 + riskrempl, 6 + j) = rs10(riskrempl + 10)
   Tabtemp(riskrempl+1) = Tabtemp(riskrempl+1) + rs10(5) * rs10(riskrempl + 10)
   Next riskrempl
MsgBox test
 
 
j = j + 1
rs10.MoveNext
 
Wend
Set rs10 = Nothing
End Sub

[pc75]

Bonjour,

Dans ta boucle, essaie ça et vérifie que tu affiches bien toutes les valeurs

Code :

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

1
2
3
 
msgbox rs10(5)
msgbox rs10(riskrempl)

[le_niak]

C'est ce que j'ai vérifié en premier et les données s'affichent, le problème vient quand j'essaye de mettre la valeur dans une variable

test2 = rs10(riskrempl + 10)

si je fais test2=rs10(10) ou de rs10(11) ca marche

[le_niak]

Je crois avoir trouvé mon erreur mon boucle "allait trop loin"

EDDIT:
Encore une "petite erreur" qui te fait perdre quasiment toute une après-midi