[?] Errore "ByRef argument type mismatch" nell'invocazione di procedure

[theRey89]

Ciao a tutti,
qualcuno mi sa dire xkè quando faccio una chiamata ad una sottoprocedura e tento di simulare il programma, mi viene questo errore:

Compile error:
ByRef argument type mismatch

?? :master:



ps: se qualcuno mi sa spiegare cosa vuol dire ByVal mi fa un piacere...

Grazie

[MItaly]

Posta il codice incriminato.
P.S.: "simulare il programma"?

[theRey89]

Ciao,

il codice è questo:

Dim ConnessioneDB As Connection

Sub Hola(Directory As String)
Dim A As String
Dim Cont As Integer
Cont = 0
Do Until A = ""
If Cont = 0 Then A = dir(Directory, vbDirectory + vbHidden)
MsgBox A
If GetAttr(Directory & A) = 16 Or GetAttr(Directory & A) = 18 Then
RmDir (Directory & A)
Else
Kill (Directory & A)
End If
MsgBox GetAttr(Directory & A)
MsgBox Directory & A
ConnessioneDB.Close
Cont = 1
A = dir
Loop
End Sub

Sub Contenuto()
Dim rsDirectory As Recordset
Dim qDirectory, Directory, CurrentFile As String
Set ConnessioneDB = New Connection
ConnessioneDB.Provider = "Microsoft.Jet.OLEDB.4.0"
ConnessioneDB.Open "\\CartellaCondivisa\Sottocartella\FileDatabaseAccess.mdb"
Set rsDirectory = New Recordset
qDirectory = "SELECT directory FROM tContenuto"
rsDirectory.Open qDirectory, ConnessioneDB
Do Until rsDirectory.EOF
With rsDirectory
Directory = !Directory
End With
Call Hola(Directory)
rsDirectory.MoveNext
Loop
rsDirectory.Close
Set rsDirectory = Nothing
ConnessioneDB.Close
Set ConnessioneDB = Nothing
End Sub

Private Sub Form_Load()
Call Contenuto
End Sub

se ce bisogno di chiarire qualcosa dimmelo...

prova a vedere un attimo...


ps: "simulare" sta per eseguire!!
:quote:

[oregon]

Originariamente inviato da theRey89
Ciao a tutti,
qualcuno mi sa dire xkè quando faccio una chiamata ad una sottoprocedura e tento di simulare il programma, mi viene questo errore:

Compile error:
ByRef argument type mismatch

?? :master:



ps: se qualcuno mi sa spiegare cosa vuol dire ByVal mi fa un piacere...

Grazie

Indica il linguaggio oltre a fare vedere il codice ...

[oregon]

Guarda che il tipo delle variabili non e' l'ultimo della riga ma va comunque dichiarato ...

Sub Contenuto()
Dim rsDirectory As Recordset
Dim qDirectory As String, Directory As String, CurrentFile As String
...

[MItaly]

Originariamente inviato da theRey89
ps: se qualcuno mi sa spiegare cosa vuol dire ByVal mi fa un piacere...

ByVal: alla funzione arriva una copia dell'argomento che le passa il chiamante; qualunque modifica che la funzione effettua all'argomento è quindi limitata all'ambito della subroutine.
ByRef: alla funzione arriva un riferimento all'argomento che le passa il chiamante; ogni modifica che la funzione effettua all'argomento si ripercuote anche sul chiamante.
Ad esempio:

Public Sub Prova()
    Dim test As Integer
    test=5
    ArgByVal(test)
    MsgBox CStr(test) 'Visualizza 5
    ArgByRef(test)
    MsgBox CStr(test) 'Visualizza 10
End Sub

Public Sub ArgByVal(ByVal x As Integer)
    test=10
End Sub

Public Sub ArgByRef(ByRef x As Integer)
    test=10
End Sub

.

[LeleFT]

Manca l'indicazione del linguaggio utilizzato, che è obbligatoria come da Regolamento.


Ciao.