Para cargar valores independientes, osea, de cuadros de texto independientes, te recomiendo que aprendas a usar las consultas de acción, que son parecidas a las de selección (la típicas) pero hacen "algo" con los registros consultados, Son 4 tipos de consultas de acción: De Datos Anexados (van al final de una tabla y pegan uno o más registros o valores), De Actualización (modifican datos existentes), de eliminación (borran todos o algunos registros consultados, son peligrosas hay que estar seguro de qué estamos borrando) y de creación de tabla (crean una tabla nueva con lo seleccionado)
El valor de los cuadros de texto se "obtiene" usando el concepto de parámetro en cualquiera de los tipos de consulta.
Cuando tienes hecha la consulta la visualizas como una instrucción SQL que copias, pegas y ejecutas en Visual Basic cuando lo necesites, por ejemplo al hacer clic en un botón:
Objetos:
- Tabla: Tabla1 que tiene un campo Campo1 de tipo texto
- Formulario: Formulario1 que tiene un cuadro de texto llamado Texto1 y un botón de comando llamado Comando0.
- Consulta: Del tipo datos anexados, no la grabaremos con un nombre, la vamos a usar en visual en forma de instrucción, eso evita llenarnos de consultas.
'En las propiedades del botón de comando elegimos Al Hacer Clic
Private Sub Comando0_Click()
'Quitamos las advertencias, osea no nos pregunta si "estamos seguros
'de anexar...," solo lo hace y no pregunta
DoCmd.SetWarnings False
'La consulta de datos anexados en forma de instrucción, precedida del
'comando RunSQL (se lee haga el comando ejecutar SQL)
'Fijate como saco el valor del cuadro de texto Texto1 del Formulario1, a eso se
'le llama parametro [Forms]![Formulario1]![Texto1].
DoCmd.RunSQL "INSERT INTO Tabla1 ( Campo1 ) SELECT [Forms]![Formulario1]![Texto1] AS Expr1;"
'Reestablece las advertencias, es muy importante sino te deja el access
'sin advertencias hasta que lo cierres, es peligroso porque hace todas
'las acciones sin preguntar si estamos seguros.
DoCmd.SetWarnings True
End Sub
Pruebalo, Un Saludo
