Skip to main content
título editado
Enlace
Huntzberger
  • 487
  • 3
  • 30
  • 60

Validar Recuperar valor de un Array Vacioen diferentes métodos del mismo modulo VB6

se añadieron 223 caracteres en el cuerpo
Origen Enlace
Huntzberger
  • 487
  • 3
  • 30
  • 60

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

Tengo un array el cual necesito validar cuando esté vacío, ya intenté varias alternativas y no funciona. Esto es lo que he intentado y muestra el error 'No coinciden los tipos', o 'error fuera del intérvalo' en el for

Dim arrData() As Integer
 
If arrData Is Empty Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

If arrData Is Nothing Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

If isnull(arrData)=true Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

For I = 1 To UBound(arrData)
MsgBox "Valor: " & (arrData(I)), vbInformation, "Mensaje"
Next

Tengo un array el cual lleno en el formulario1 y 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 el array esta vacío y manda el error "valor fuera del intervalo".

Formulario 1

Frm2.LlenarVales(array())
 

Formulario 2

Dim array() as Integer
Dim I As Long

Public Function Grabar()    

    For I = 1 To UBound(array)
        MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
    Next
    
End Function

Public Function LlenarVales(array() As Integer) 
    array() = array()
                 
    For I = 1 To UBound(array)
        MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
    Next
    
End Function

título editado
Enlace
Huntzberger
  • 487
  • 3
  • 30
  • 60

Validad Validar Array Vacio

Origen Enlace
Huntzberger
  • 487
  • 3
  • 30
  • 60
Loading