Guardar registros de un formulario en diferentes tablas de access

[ernestoelunico]

Yo tengo diferente registro es decir varios text y quiero que para cada registro es decrir para cada text vaya a una tabla diferente de access salguien sabe como se puede realizar

[Insomnia]

Hola

Si los text no están enlazados a datos, utiliza la clausula insert para cada uno de los text

Código:

bd.execute "Insert into tabla1(Campo1) Values('" & text1.text & "')"
bd.execute "Insert into tabla2(Campo2) Values('" & text2.text & "')"

Donde Campo1 es el nombre que tiene el campo en el que quieres insertar el dato en tu base de datos.

--Saludos--

[ernestoelunico]

Iniciado por Insomnia

Hola

Si los text no están enlazados a datos, utiliza la clausula insert para cada uno de los text

Código:

bd.execute "Insert into tabla1(Campo1) Values('" & text1.text & "')"
bd.execute "Insert into tabla2(Campo2) Values('" & text2.text & "')"

Donde Campo1 es el nombre que tiene el campo en el que quieres insertar el dato en tu base de datos.

--Saludos--

ok ya lo intente pero me da error como que me falta declara
bd.execute

o no lo empleo bien este es parte de mi codigo

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Registro.mdb"

Adodc1.CursorType = adOpenDynamic
' Conectarlo a la tabla de prueba
Adodc1.RecordSource = "Acreedores"
' Refresh es necesario para que se cargue la tabla
Adodc1.RecordSource = "Compra"
Adodc1.RecordSource = "Bancos"
Adodc1.RecordSource = "Caja"
Adodc1.RecordSource = "Proveedores"
Adodc1.RecordSource = "IVA Credito Fiscal"
End Sub

[David]

En este caso debería ser Adodc1.Execute ya que Adodc1 es el nombre de tu control.

[ernestoelunico]

Iniciado por David el Grande

En este caso debería ser Adodc1.Execute ya que Adodc1 es el nombre de tu control.

ok ya lo intente no me funciono cambiando le me da un error.

Trate de configurar el adodc1 manualmente es decir atravez de las propiedades conextar la base de datos no por codigo pero sigue sin fucionar solo intento guardar el primer registro para probar me dice que que el RecordSource no establecido pero si lo hago por propiedades me dice que error de sintaxis en la clausula from

[ernestoelunico]

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Registro.mdb"

Adodc1.CursorType = adOpenDynamic
' Conectarlo a la tabla de prueba
Adodc1.RecordSource = "Acreedores"
' Refresh es necesario para que se cargue la tabla
Adodc1.RecordSource = "Compra"
Adodc1.RecordSource = "Bancos"
Adodc1.RecordSource = "Caja"
Adodc1.RecordSource = "Proveedores"
Adodc1.RecordSource = "IVA Credito Fiscal"
End Sub

en este procedimiento no se si hay un error al querer abrir las diferentes tablas de la base de datos es decir deberia incertar diferende ,adodc1,adodc2...adodcn
para cada tabla que necesito llamar????

[ernestoelunico]

Hola tengo una pregunta si yo usara el dao 3.51 puedo conectar baase de datos access 2003 e incluso hacer lo anterior mensionado(Guardar registros de un formulario en diferentes tablas de access)

[Avellaneda]

Iniciado por ernestoelunico

Hola tengo una pregunta si yo usara el dao 3.51 puedo conectar baase de datos access 2003 e incluso hacer lo anterior mensionado(Guardar registros de un formulario en diferentes tablas de access)

No! con la referencia a DAO 3.51, te dará error 'No se reconoce la base de datos', tendrás que referenciar DAO 3.6

En cuanto a la pregunta anterior:

Adodc1.RecordSource = "Compra"
Adodc1.RecordSource = "Bancos"
Adodc1.RecordSource = "Caja"
Adodc1.RecordSource = "Proveedores"
Adodc1.RecordSource = "IVA Credito Fiscal"

El control Adodc solamente admite una fuente de datos, en este código sólo se enlazará a la tabla "IVA Credito Fiscal". Tendrías que poner un control para cada tabla, Adodc1, Adodc2......

[ernestoelunico]

Esto es como pude resolver mi duda

activar la referencia microsoft dao 3.51 o 3.6
los combo box se pueden cambiar estan asi poque asi elegia el usurio la tabla donde iva almacenar

Option Explicit
Public base As DAO.Database
Public db1 As DAO.Recordset
Public db1 As DAO.Recordset
Dim ruta As String
/ la primera abre la base de datos, la segunda la tabla y la tercera es la ruta

Private Sub Form_Load()

ruta = App.Path & "\registros.mdb "
Set base = OpenDatabase(ruta)

Set db1 = base.OpenRecordset _
("Select*from compra", dbOpenDynaset, dbOptimistic)

Set db2 = base.OpenRecordset _
("Select*from Caja", dbOpenDynaset, dbOptimistic)

Private Sub Commandagregar_Click()

If Combo1.text = "Compras" Then
db1.AddNew
db1!Fecha = Calendar1.Value
db1!Concepto = Text7.text
db1!Debe = Val(Text1.text)
db1.Update

If Check2.Value = Checked Then
If Combo2.text = "IVA Credito Fiscal" Then

db6.AddNew
db6!Fecha = Calendar1.Value
db6!Concepto = Text7.text
db6!Debe = Val(Text2.text)
db6.Update
End If
end sub
Private Sub Commandsalir_Click()

db1.Close
db2.Close
end
end sub