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