[VB6] Matrice globale

[lboratto]

Ciao a tutti. Ho un problema nell'utilizzare le matrici globali. Ho un errore di compilazione ma non trovo una souzione in internet.

In un modulo variabili.bas, dichiaro questa matrice
Public tecnico (23, 6) as Single

In un form invece, faccio uso della matrice dentro un for:

Private Sub Command1_Click()
...
For i = 0 To 23
tecnico (i, 0) = ...

Quando premo il pulsante Command1 e il form prova a salvare i dati nella matrice, compare questo errore...

Compile error:
Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

Inutile dirvi che dichiarando dentro il form una matrice tecnico(23, 6) tutto funziona, ma non ho i dati a disposizione negli altri form.

Dove sbaglio? Come risolvere il problema? Esistono regole particolari per i vettori globali? Spero possiate aiutarmi.

Ringraziandovi anticipatamente, vi saluto.

[oregon]

Mi sa che il problema non e' la matrice ...

Quali librerie hai referenziato nel progetto?

[lboratto]

Assolutamente nessuna. E' un programmino semplice e sto usando VB giusto per la connessione al database Access, ma non ho incluso alcuna libreria.
Ho pensato il problema fosse la matrice perchè altre variabili Integer dichiarate globali sono modificabili tranquillamente da qualunque form...

[oregon]

Beh, se usi un db Access allora userai pure una libreria come DAO o ADO ...!

[lboratto]

Si, per il collegamento al database uso un Adodc, ma non nel form in cui riscontro il problema

[oregon]

Puoi mostrare tutto il contenuto del click del button?

E segnare la linea in cui ti viene evidenziato l'errore?

[lboratto]

Ecco la parte di codice del click del Command...

Private Sub Command1_Click()
Dim i, k, z, q, max, err, lastp, lastc As Integer

Label98.Visible = True

numcav = 0

For i = 0 To 23
If (quota(i).Text <> "") Then
numcav = numcav + 1
maxcav = i + 1
Else
perc(i).Caption = ""
prob(i).Caption = ""
t(i).Caption = ""
grafico(i).X2 = grafico(i).X1
grafico(i).Y2 = grafico(i).Y1
End If
Next i

For i = 0 To maxcav - 1
If (quota(i).Text <> "") Then
tecnico(i, 0) = num(i).Caption
tecnico(i, 1) = quota(i).Text
tecnico(i, 2) = tecnico(i, 1) / 100
tecnico(i, 3) = 1 / tecnico(i, 2)
Else
perc(i).Visible = False
prob(i).Visible = False
t(i).Visible = False
grafico(i).X2 = grafico(i).X1
grafico(i).Y2 = grafico(i).Y1
End If
Next i

Quando compare l'errore di compilazione vengono evidenziate la riga iniziale del Command1 e tecnico(i, 0) =

Grazie tante

[lboratto]

Nella speranza che qualcuno possa aiutarmi, vi faccio sapere che se inserisco in un nuovo progetto il form che fa uso della matrice e il modulo .bas contenente la dichiarazione del vettore globale, i valori vengono salvati dentro la matrice.
Pensando che il problema fosesro gli Adodc, ho eliminato i form contenenti gli Adodc, ma il problema si ripresenta.

Qualcuno sa da cosa può nascere questo problema? Non so davvero più cosa provare.
Grazie

[Socket2000]

Mi sembra che tu stia tentando di assegnare alla variabile di tipo 'single' una proprietà che è una stringa (Caption)... Dovresti usare la funzione Val.

[lboratto]

Originariamente inviato da Socket2000
Mi sembra che tu stia tentando di assegnare alla variabile di tipo 'single' una proprietà che è una stringa (Caption)... Dovresti usare la funzione Val.

Grazie, faccio subito una prova. Anche se, come ho scritto prima, il form messo da solo all'interno di un progetto è funzionante.ti farò sapere