Red de conocimientos sobre prescripción popular - Conocimiento del confinamiento - ¿Cómo utilizar VBA para obtener el tipo de datos del campo en la base de datos de Access?

¿Cómo utilizar VBA para obtener el tipo de datos del campo en la base de datos de Access?

1. Abrir la base de datos de acceso correspondiente.

2. Haga clic en el módulo en la barra de objetos de la izquierda y observe la ventana de la derecha. Si hay módulos dentro, puede hacer doble clic para abrirlos. Si el nuevo módulo aún no se ha creado, haga doble clic en él para abrirlo.

3. Pegue el siguiente código, ejecútelo y observe la ventana inmediata.

¿Privado? ¿Sub? aaaa()

¿Atenuado? ¿Nombre de la tabla? ¿Como? Cadena,? ¿Nombre del campo? ¿Como? Cadena,? ¿I? ¿Como? Entero

¿Nombre de tabla? =?"tb1"? ¿Nombre de la tabla? tb1

¿Nombre del campo? =?"número"? ¿Nombre del campo? Número

¿Seleccionar? ¿caso? Db actual. TableDefs(NombreTabla)(NombreCampo). Tipo

¿Caso? dbBoolean

Depurar. ¿Imprimir? "S/N"

¿Caso? dbByte

Depurar. ¿Imprimir? "Número (byte)"

¿Caso? dbInteger

Depurar. ¿Imprimir? "Número (entero)"

¿Caso? dbLong

¿Y si? (CurrentDb. TableDefs(TableName)(FieldName). ¿Propiedades? ¿Y luego qué? dbAutoIncrField)? =?dbAutoIncrField? Luego

depurar. ¿Imprimir? "Número automático (entero largo)"

Otros

Depuración. ¿Imprimir? "Número (entero largo)"

¿Fin? ¿Y si

caso? dbSingle

Depurar. ¿Imprimir? "Número (precisión simple)"

¿Caso? dbDouble

Depurar. ¿Imprimir? "Número (doble)"

¿Caso? dbDecimal

Depurar. ¿Imprimir? "Número (decimal)"

¿Caso? dbCurrency

Depurar. ¿Imprimir? ¿Caso "Dinero"

? Fecha de la base de datos

Depurar. ¿Imprimir? "Fecha/Hora"

¿Caso? dbText

Depurar. ¿Imprimir? "Texto"

¿Caso? Memo de base de datos

¿Y si? (CurrentDb. TableDefs(TableName)(FieldName). ¿Propiedades? ¿Y luego qué? dbHyperlinkField)? =?dbHyperlinkField? Luego

depurar. ¿Imprimir? "Hipervínculo"

Otros

Depurar. ¿Imprimir? "Observaciones"

¿Fin? ¿Y si

caso? dbGUID

Depurar. ¿Imprimir? "Numeración automática (copia automática del DNI)"

¿Fin? Selección

¿Finalizar? Submarino