Ayuda con este error
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
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