Hola, me estoy iniciando en este lenguaje y me he liado un poco con el tema de crear un tipo de dato.
El caso esque creo la estructura como private y la puedo manejar bien desde las funciones pero no me deja pasar ese tipo de dato como parametro a una funcion y si la creo como Public me manda un error.
Código:
Option Explicit
Type Persona
Nombre As String
Ape1 As String
Ape2 As String
CP As String
Poblacion As String
DNI As String
End Type
Public cantidad As Integer
Dim vector() As Persona
Sub AbrirFichero(vector() As Persona)
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
cantidad = 0
AbrirFichero (vector)
End Sub
Private Sub Aceptar_Click()
Dim p As Persona
If Len(Nombre.Text) <= 20 And Len(Ape1.Text) <= 20 And Len(Ape2.Text) <= 20 _
And Len(Nombre.Text) > 0 And Len(Ape1.Text) > 0 And Len(Ape2.Text) > 0 Then
If Len(CP.Text) = 5 Then
If Len(Poblacion.Text) > 0 And Len(Poblacion.Text) < 20 Then
If Len(DNI.Text) = 8 Then
ReDim Preserve vector(1 To cantidad + 1) 'Redimensiona el vector
cantidad = cantidad + 1
MsgBox ("Inscripcion Correcta: " & cantidad)
p.Nombre = Nombre.Text
p.Ape1 = Ape1.Text
p.Ape2 = Ape2.Text
p.CP = CP.Text
p.Poblacion = Poblacion.Text
p.DNI = DNI.Text
vector(cantidad) = p 'Guarda en el vector
Else
MsgBox ("Error en el DNI")
End If
Else
MsgBox ("Error en la poblacion")
End If
Else
MsgBox ("Error en el Codigo Postal, debe contener 5 digitos")
End If
Else
MsgBox ("Error en el nombre")
End If
End Sub
Solo tengo este fichero y me sale este error:
Imposible definir un tipo Public definido por el usuario dentro de un modulo e objeto.
Gracias