Fejl i Dim Array
Den nedenfor viste kode ligger i et modul til AccessNår koden ligger på form_Current er der ingen fejl men når jeg flytter den ned i et modul fejler Arrayet. Jeg har prøvet med ReDim men det bliver ikke bedre. Kan i hjælpe
Public Sub Billed2Disk(...........)
Dim Link1Del() As String <== Fejler
If Nz(InStr(1, Billed, "#")) > 0 Then
Link1Del = Split(Billed, "#")
end if
.
.
end sub