Cómo imputar datos en tablas por código VBA

En un evento del formulario pon

docmd.setwarnings false

Dim i as integer

for i= 1 to 10

DoCmd.RunSQL "insert into movimientos(cuentacliente,concepto,monto) values(""Pepe"",""Cuota"" & "" "" & " & i & " & "" ""& ""de 10"", 100)"

Next i

Lo de setwarnings es para que no te de el coñazo de "Va a insertar...

Si CuentaCliente estuviera separado ponlo entre corchetes

Gracias por tu respuesta.

Lo que no entendí es como hacer para que los valores los tome de un pedido en una consulta. Es decir según en el pedido que este, cuando toque el botón, la información debería completarse con el monto del pedido ese, la cuenta del cliente de ese pedido, etc.

Por otro lado, ¿de esta manera se imputan varios registros? Recuerda que si ese pedido tiene un plan en 3 cuotas, deberías completarse 3 registros nuevos, cada uno con el monyo de una cuota.

Gracias nuevamente!

Por partes:

Supongamos que tienes una tabla Pedidos con Idpedido(Autonumerico), Cliente, NIF, dirección, etc y otra tabla DetallePedido con IdPedido(numérico y relacionado con el anterior Uno a Varios), Producto, Precio, etc

En el formulario Pedidos crea un botón de comando y en sus propiedades-Eventos-Al hacer clic crea un procedimiento de evento y entre Private Sub y End Sub escribe

docmd.runsql"Insert into movimientos(cliente, fecha, dirección)values('" & me.client & "', '" & me.NIF & "', '" & me.direccion & "')

Si lo que quieres es insertar alguno de los valores del formulario

Si lo quieres insertar todos, es mejor

Docmd.runsql"insert into movimientos select * from Pedidos where id pedido='" & me.pedido & "'"

En el caso de que los valores estuvieran en el subformulario,

En breves momentos continuo, que tengo que salir

Continuo, en caso de que los valores estuvieran en el subformulario

docmd.runsql"insert into movimientos select * from DetallePedido where idpedido=forms!pedidos!idpedido"

Con respecto a lo de las cuotas, como no sé donde está el numero de plazos para pagar, me remito a lo dicho anteriormente de for i =1 to...

De todas formas, si quieres, mándame una copia sin registros de tu base a [email protected], la miro y te digo, o bien te mando un ejemplo.

Hola!
Gracias de nuevo.

El tema de las cuotas: el campo estaría en la Tabla PEDIDOS. Se llamaría CUOTAS seria numérico. Pedidos. Cuotas (Cada pedido tendría un numero de cuotas, ese numero seria la cantidad de registros que hay que imputar iguales con el monto de cada cuota, pero cambiando el concepto que diga cuota 1 de POR, cuota 2 de POR, etc.

Yo tengo que dividir el monto total de la orden, que se encuentra en una consulta que se llama PEDIDOS AMPLIADOS. Donde aparece un campo de consulta llamado TOTAL (La suma del detalle de pedidos de esa orden), yo necesito que ese monto se divida por las cuotas para sacar el monto de cada cuota.
¿Se puede hacer esa fórmula INSERTO INTO buscando un campo de una consulta? Para hacer así un campo calculado con el monto de cada cuota en una consulta dividiendo el campto TOTAL/CUOTAS = VALOR CUOTA.
Puedes explicarme mejor como funcina esa formula INSERT INTO y despues la formula FOR i=! to... ? Para entender la estructura bien.
Gracias por tu ayuda desde ya!

Si en el formulario tienes un cuadro de texto llamado Cuotas(mira en sus propiedades-Otras-Nombre), y otro cuadro llamado Total el código que te puse antes ponlo como

dim i as integer, M as currency

M=total/cuotas

for i= 1 to me.cuotas

lo demás igual, donde ponía 100 pones '" & M & "'