RE:llenar de un formulario a dos tablas diferente
Si no estas usando ningun control como el adodc o el data, puedes utilizar la instruccion Insert Into que te permite grabar en cualquier tabla que desees dentro de la misma base de datos:
Ejemplo Guardar en dos Tablas diferentes con los mismo datos con conexion DAO:
Sub Guardar()
Dim sql As String
Dim BDMAT As Database
Set BDMAT = OpenDatabase("c:\Datos.mdb")
sql = "Insert Into TMateriales(Cantidad,Material,Costo,Importe,Area) " & _
"Values (" & vlCantidad & ", '" & vlMaterial & "', " & vlCosto & ", " & vlImporte & ", '" & vlArea & "')
BDMAT.Execute Sql
sql = "Insert Into TMaterialesAux(AuxCantidad,AuxMaterial,AuxCosto,AuxImporte,AuxArea) " & _
"Values (" & vlCantidad & ", '" & vlMaterial & "', " & vlCosto & ", " & vlImporte & ", '" & vlArea & "')
BDMAT.Execute Sql
End Sub