| ebolo |  |
|
2007-05-26 13:35 - Respuestas: 7 - Tema nº: 2450086
Si sabes cuantos registros son, te creas un Formulario sin origen de datos, en él le pones un botón de comando y en evento Al hacer click le colocas lo siguiente:
-
Private Sub Comando21_Click()
Dim n As Integer
'Te añadirá 100 registros
For n = 1 To 100
CurrentDb.Execute "Insert into [TuTabla] (campoaño) Values(2006)"
Next n
End Sub
-
Con esto te crea 100 registros donde en el campoaño (yo lo llamo así, tu tienes que poner como lo tengas llamado) con el valor 2006.
Si quisieras añadir más campos de esa tabla separas com comas los nombres de los campos y el valor de los mismos, teniendo en cuenta que si un campo es de tipo Texto debes de poner el valor entre comillas simples, xej:
CurrentDb.Execute "Insert into [TuTabla] (campo1, campo2, campo3) Values(2006, '26/05/07', 'María25')"
donde:
- campo1 es de tipo numérico
- campo2 es de tipo Fecha/hora
- campo3 es de tipo Texto.
Saludos.
-
[Mensaje editado por ebolo con fecha: 26-05-2007 13:39:18]. | |
|
