¿Cómo utilizar VBA para obtener el tipo de datos del campo en la base de datos de Access?
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