Tengo un array el cual necesito validar cuando esté vacío, ya intenté varias alternativaslleno en el formulario1 y no funciona. Esto es lo envío al formulario2 al metodo Frm2.LlenarVales(array()), hasta ahí todo bien, pero cuando quiero usar el array en el método grabar parece que he intentadoel array esta vacío y muestramanda el error 'No coinciden los tipos', o 'error"valor fuera del intérvalo' en el forintervalo".
Formulario 1
Frm2.LlenarVales(array())
Formulario 2
Dim arrDataarray() Asas Integer
If arrDataDim IsI EmptyAs ThenLong
MsgBox
Public "ArrayFunction vacío",Grabar() vbInformation, "Mensaje"
Exit Function
End If
If arrData Is Nothing ThenFor I = 1 To UBound(array)
MsgBox "Array"Valor: vacío"" & (array(I)), vbInformation, "Mensaje"
Exit Function Next
End IfFunction
IfPublic isnullFunction LlenarVales(arrDataarray()=true ThenAs Integer)
MsgBox "Array vacío", vbInformation, "Mensaje"
Exitarray() Function
End= Ifarray()
For I = 1 To UBound(arrDataarray)
MsgBox "Valor: " & (arrDataarray(I)), vbInformation, "Mensaje"
Next
End Function