Ayuda con este error

bali
07 de Octubre del 2003
Le he insertado este código a mi formulario de inicio para desactivar las mayusculas, pero cuando intento compilarlo para verificarlo me da el siguiente error "NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO".

Me he dejado algo??? donde tengo que ponerlo??? ayudarme por favor. Gracias

El código que he insertado es el siguiente:

Function ap_DisableShift()
'Esta función Elimina el salto de inicio con Shift'

On Error GoTo errDisableShift

Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270


Set db = CurrentDb

db.Properties("AllowByPassKey") = False

Exit Function

errDisableShift:

If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If

End Function



daniel
07 de Octubre del 2003
debes de insertar la referencia Microsoft DAO, para ello vete al menú proyecto, elige referencias e inserta la referencia Microsoft DAO 2.5/3.5 Compatibility library