Access - Decimales

Private Sub MiControlTexto_AfterUpdate()

    Dim numero As Double

    Dim decimales As Integer

    ' Verificar si el valor introducido es un número válido

    If IsNumeric(Me.MiControlTexto.Value) Then

        numero = CDbl(Me.MiControlTexto.Value)

        ' Verificar si el número tiene decimales

        If numero <> Fix(numero) Then

            ' Obtener la cantidad de decimales

            decimales = Len(CStr(numero - Fix(numero))) - 2

            ' Mostrar la cantidad de decimales

            MsgBox "El número introducido tiene " & decimales & " decimales."

        Else

            ' El número no tiene decimales

            MsgBox "El número introducido no tiene decimales."

        End If

    Else

        ' El valor introducido no es un número válido

        MsgBox "El valor introducido no es un número válido."

    End If

End Sub