Access - validar

hola , tengo el sgte problema

Private Sub cantidad_AfterUpdate()
Dim cadNombreTabla As String
Dim cadReglaValid As String
Dim cadTextoValid As String, entX As Integer

cadNombreTabla = "datos_detalle_producto"
cadReglaValid = "cantidad >= existencia"
cadTextoValid = "La cantidad es mayor de este producto existente."
entX = EstablecerValidaciónDeCampo(cadNombreTabla, cadReglaValid, cadTextoValid)
End Sub

La idea es : Cuando entre la cantidad, que este vaya a la tabla de datos_detalle_producto y compare con la existencia

Function EstablecerValidaciónDeCampo(cadNombreTabla As String, _
cadReglaValid As String, _
cadTextoValid As String) As Integer

Dim dbs As Database, tdf As TableDef, fld As Field

Set dbs = CurrentDb
Set tdf = dbs.TableDefs(cadNombreTabla)
fld.ValidationRule = cadReglaValid
fld.ValidationText = cadTextoValid
End Function

SE POSECIONA EN fld.ValidationRule y fld.ValidationText

ERROR DE COMPILACION
NO SE ENCONTRO EL METODO O EL DATO MIEMBRO

QUE PROBLEMA ES, GRACIAS , O ME PUDIERAN MANDAR ALGO PARECIDO

ECA

Cambia esta línea
"Dim dbs As Database, tdf As TableDef, fld As Field "

por esta
Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field

si no lo haces te va dimensionar las varibles de la clase ADO.

Tambien tendrás que asegurarte de añadir una referencia a la libreria DAO de microsoft