Me tira el sguiente error:
"Al menos un parametro contiene un tipo que no esta permitido"
Ejemplo de una de las funciones en donde me tira el error:
Public Function AltaFechaFin(ByVal IdHorario As Long, ByVal fecha As Date)
If IdHorario <= 0 Then Err.Raise -1002, , "Id de Horario Nulo"
Dim cmAlta As Object
On Error GoTo ErrorAltaFechaFin
Set cmAlta = CreateObject("ADODB.Command")
With cmAlta
.ActiveConnection = CadenaConecc
.CommandType = adCmdStoredProc
.CommandText = "SH_FechaFin_upd"
.Parameters.Append .CreateParameter("@IdHorario", adInteger, adParamInput, , IdHorario)
.Parameters.Append .CreateParameter("@FechaFin", adDate, adParamInput, , fecha)
.Execute
End With
ErrorAltaFechaFin:
Set cmAlta = Nothing
If Err.Number <> 0 Then Err.Raise Err.Number, Err.Source & " _AltaFechaFin", Err.Description
End Function
EN maquinas con XP funciona perfecto.
Nu entiendo que pasa
