Tablas iguales

Hola campeon, me gustaria q me ayudaras a crear dos tablas en donde al modificar los datos en la primera de igual manera se modifiquen en la segunda tabla......

1 respuesta

Respuesta
1
Tendrias que hacerlo a traves VB... con openrecordset.
Te envio un ejemplo:
En esta rutina... modificala a tu necesidad..
Private Sub Actualizar_DblClick(Cancel As Integer)
Dim dbs As Database, rst1, rst2, rst3 As Recordset
Dim idx As Index
Dim imne, imna, itca As Double
Dim nmes As Integer
Set dbs = CurrentDb
' Al cerrar el formulario sumariza los registros de fecha en el archivo TSUBPARTIDAS y lo
' graba en el archivo TPARTIDAS segun sea el mes
' sumando todas las subpartidas asociadas de la entidad
' Para encontrar el monto presupuestado en el mes
' Crear el objeto Recordset de tipo tabla.
Set rst1 = dbs.OpenRecordset("TSUBPARTIDAS", dbOpenTable)
' Establecer el índice actual.
rst1.Index = "fechas"
imne = 0
imna = 0
itca = tcam()
Set rst2 = dbs.OpenRecordset("TDIARIO", dbOpenTable)
rst2.Index = "fechas"
' Localizar el registro y suma todo
rst1.Seek "=", Me!SELECENT, Me!SELECPAR, Me!WWFACT, Me!WWCOME1
If rst1.NoMatch Then
' Lo adicionamos
rst1.AddNew
rst1![PACENT] = Me![SELECENT]
rst1![PANANO] = Me![SELECANO]
rst1![PANMES] = Me![SELECMES]
rst1![PADPAR] = Me![SELECPAR]
rst1![PAFCRE] = Me!WWFACT
rst1![PAIMNE] = Me![dolares]
rst1![PAIMNA] = Me![bolivianos]
rst1![PACOME] = Me![WWCOME1]
rst2.Seek "=", Me!SELECENT, Me!SELECPAR, Me!WWFACT, Me!WWCOME1
If rst2.NoMatch Then
rst2.AddNew
rst2![PACENT] = Me![SELECENT]
rst2![PANANO] = Me![SELECANO]
rst2![PANMES] = Me![SELECMES]
rst2![PADPAR] = Me![SELECPAR]
rst2![PAFCRE] = Me!WWFACT
rst2![PAIMNE] = Me![dolares]
rst2![PAIMNA] = Me![bolivianos]
rst2![PACOME] = Me![WWCOME1]
End If
Else
rst1.Edit
rst1![PACOME] = Me![WWCOME1]
rst1![PAIMNE] = Me![dolares]
rst1![PAIMNA] = Me![bolivianos]
rst2.Edit
rst2![PACOME] = Me![WWCOME1]
rst2![PAIMNE] = Me![dolares]
rst2![PAIMNA] = Me![bolivianos]
End If
rst1.Update
rst2.Update
' Establecer el índice actual.
rst1.Index = "SUBPARTIDAS"
rst1.Seek "=", Me!SELECENT, Me!SELECPAR, Me!SELECANO, Me!SELECMES
With rst1
Do While Me!SELECENT = rst1![PACENT] And Me!SELECANO = rst1![PANANO] And Me!SELECPAR = rst1![PADPAR]
rst1.Edit
If rst1![PAIMNE] > 0 Then
If itca > 0 Then
rst1![PAIMNA] = rst1![PAIMNE] * itca
End If
Else
If itca > 0 Then
rst1![PAIMNE] = rst1![PAIMNA] / itca
End If
End If
' Moneda Nacional & Moneda Extranjera
imne = imne + rst1![PAIMNE]
imna = imna + rst1![PAIMNA]
rst1.MoveNext
If .EOF Then
Exit Do
End If
Loop
End With
Set rst2 = dbs.OpenRecordset("TPARTIDAS", dbOpenTable)
' Establecer el índice actual.
rst2.Index = "SUBPARTIDAS"
' Localizar el registro y suma todo
rst2.Seek "=", Me!SELECENT, Me!SELECANO, Me!SELECMES, Me!SELECPAR
If Not rst2.NoMatch Then
If imne > 0 And imna > 0 Then
rst2.Edit
rst2![PAIMNA] = imna
rst2![PAIMNE] = imne
rst2.Update
End If
Else
rst2.AddNew
rst2![PACENT] = Me!SELECENT
rst2![PANANO] = Me!SELECANO
rst2![PANMES] = Me!SELECMES
rst2![PADPAR] = Me!SELECPAR
rst2![PAIMNA] = imna
rst2![PAIMNE] = imne
If VarType(Me!SELECPAR) <> vbNull Then
rst2![PAIMRE] = estimado(Me!SELECPAR, Me!SELECANO, Me!SELECMES)
End If
rst2.Update
End If
' Refresca el formulario
Me. Refresh
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas