Access - Duda Access 2003

Sub ObtenerTipoDatoCampo()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim tabla As String

    Dim campo As String

    Dim tipoDato As String

    ' Cambiar el nombre de la tabla y el campo según tu caso

    tabla = "NombreTabla"

    campo = "NombreCampo"

    ' Abre la base de datos actual

    Set db = CurrentDb

    ' Abre un recordset basado en la tabla

    Set rs = db.OpenRecordset(tabla)

    ' Verifica si el campo existe en la tabla

    If rs.Fields(tabla & "." & campo).Name = campo Then

        ' Obtiene el tipo de dato del campo

        tipoDato = rs.Fields(tabla & "." & campo).Type

        ' Comprueba el tipo de dato y muestra un mensaje

        Select Case tipoDato

            Case dbText

                MsgBox "El campo es de tipo Texto."

            Case dbMemo

                MsgBox "El campo es de tipo Memo."

            Case dbDate

                MsgBox "El campo es de tipo Fecha/Hora."

            Case dbInteger

                MsgBox "El campo es de tipo Entero."

            ' Agrega más casos según los tipos de datos que desees comprobar

            Case Else

                MsgBox "El campo es de otro tipo de dato."

        End Select

    Else

        MsgBox "El campo especificado no existe en la tabla."

    End If

    ' Cierra el recordset y la base de datos

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub