Tengo el siguiente tipo definido en un modulo (*.bas).
Código:
y una función que retorna dicho tipo de dato.Public Type tPaciente paciRut As String paciNroFicha As Long paciFecIng As Date paciNom As String paciApe1 As String paciApe2 As String paciSexo As String paciFecNac As Date paciEdad As Integer 'Edad en dias End Type
Código:
Pero al momento de llamar a la función me sale el siguiente error.Public Function getPaciente(pNroFicha As Long) As tPaciente Dim sPaci As tPaciente Dim query As ADODB.Recordset Dim sql As String vSql = "select * from hfpaci where numero_ficha = " + pNroFicha Set query = New ADODB.Recordset 'query.RecordSource = vSql query.Open vSql, cogestion, adOpenForwardOnly, adLockReadOnly sPaci.paciRut = query.Fields("rut_paciente") sPaci.paciNroFicha = query.Fields("numero_ficha") sPaci.paciFecIng = query.Fields("fecha") sPaci.paciNom = query.Fields("nombre_paciente") sPaci.paciApe1 = query.Fields("apellido_paciente") sPaci.paciFecNac = query.Fields("fecha_nacimiento") sPaci.paciSexo = query.Fields("sexo") query.Close query = Nothing getPaciente = sPaci End Function
---------------------------
Microsoft Visual Basic
---------------------------
Error de compilación:
Sólo los tipos definidos por el usuario de módulos de objeto públicos se pueden pasar a funciones enlazadas en tiempo de ejecución o forzar a o desde un Variant