08/06/2005, 02:44
|
| |
| Hola amigo
En realidad no me funciona. Te diré lo que he hecho
Tengo dos controles:
ADODC1:
- Cadena de conexión: Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\AUTI\Tabla1.mdb
- Origen de registros: SELECT * FROM AVISOS ORDER BY ID_AVISO
ADODC2:
- Cadena de conexión: Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\AUTI\Tabla2.mdb
- Origen de registros: SELECT * FROM AVISOS ORDER BY ID_AVISO
(La estructura de ambas bases es idéntica, por lo que en ambas hay una tabla AVISOS con un campo ID_AVISO índice autonumérico.
La intención es que revise en Tabla 1 y mueva hacia Tabla 2 cuando un CampoX (Si/No) esté marcado a Si, lo cual significa que el aviso está terminado.
He puesto el código que me mandaste en el boton actualizar:
Private Sub cmdActualizar_Click()
RS1.MoveFirst
While Not RS1.EOF
RS2.Open
RS2.AddNew
RS2!ID_Aviso = RS1!ID_Aviso
RS2!Nombre = RS1!Nombre
RS2!Fijo = RS1!Fijo
RS2!Móvil = RS1!Móvil
RS2!Dirección = RS1!Dirección
RS2!Localidad = RS1!Localidad
RS2.Update
RS1.MoveNext
Wend
End Sub
Podrías ayudarme con el resto (evento load del formulario y demás), porque no me aclaro y ya llevo rato con esto...
Gracias |