Ingresar datos a varias tablas relacionadas con un botón de formulario access vba

Buenas tardes, tengo varias tablas relacionadas, y un formulario que contiene campos de varias de esas tablas. Lo que necesito es actualizar varias tablas con los campos de ese formulario al presionar un botón de "agregar" utilizando vba. Aquí les dejo un ejemplo de como actualizar solo una tabla, pero realmente necesito actualizar varias a la vez y también tomando en cuenta que están relacionadas:

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase("C:\Control de Documentos y Citas\Control de Documentos y Citas V2.mdb")
Set Rs = Db.OpenRecordset("crédito")
Rs.Index = "primarykey"
Rs.Seek "=", N_credito
If Rs.NoMatch Then
Rs.AddNew
Rs![N_credito] = N_credito
Rs![Nombre_cliente] = Nombre_cliente
Rs![Tipo_ident] = Tipo_ident
Rs![N_identificacion] = N_identificacion
Rs![dir1] = txtdir1
Rs![dir2] = txtdir2
Rs![nom-propi] = txtpropi
Rs![NOM-EMP] = empleado
Rs.Update
SW = True
End If
If SW = False Then
DoCmd.Hourglass False
MsgBox "La solicitud ya existe verifique", 32, "VERIFIQUE"
Exit Sub
End If
DoCmd.Hourglass False
End Sub

Agradezco mucho la ayuda que me puedan prestar

0

Añade tu respuesta

Haz clic para o