Access - Problema con consulta datos anexados

 
Vista:

Problema con consulta datos anexados

Publicado por Eomer (14 intervenciones) el 11/07/2007 14:10:31
Hola a todos,

Tengo un problema que no se como solucionar a la hora de hacer una consulta de datos anexados por medio de un boton de comando. Tengo un formulario en el que me aparecen en la parte izquierda (cuadro de lista) las tablas que hay en la BB.DD, segun voy pinchando en las diferentes tablas me aparecen en la derecha (subformulario) los registros.

El problema es que, al hacer la consulta, me gustaría elegir la tabla tanto de origen como de destino, ya que tengo que pasar registros continuamente de una a otra tabla. El problema es que tengo demasiadas tablas como para hacer una consulta por tabla.

Dim strSQL As String


strSQL = INSERT INTO "tabladestino" ("dni", "nombre")SELECT "dni", "nombre"
FROM "tablaorigen"

Bueno, no se si es posible, pero gracias por las respuestas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con consulta datos anexados

Publicado por Rodolfo (463 intervenciones) el 11/07/2007 16:36:10
MIra, la solucion que se me ocurre es un poco compleja como para exponertela aca y todavia no la probé, si sale, edito el codigo aca y te mando el ejemplo por mail.
Saludos

Rodolfo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con consulta datos anexados

Publicado por Eomer (14 intervenciones) el 12/07/2007 07:51:44
OK, muchs gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con consulta datos anexados

Publicado por Rodolfo (463 intervenciones) el 12/07/2007 16:57:40
Este es el codigo. Disculpen la demora.

Private Sub Tablas2_Click()

Dim Tabla1 As String
Dim Tabla2 As String
Dim Tabla3 As String
Dim Tabla4 As String
Dim TablaX As String
Dim TablaY As String

Tabla1 = "A"
Tabla2 = "B"
Tabla3 = "C"
Tabla4 = "D"
If Me.Tablas1.Value = "A" Then
TablaX = Tabla1
ElseIf Me.Tablas1.Value = "B" Then
TablaX = Tabla2
ElseIf Me.Tablas1.Value = "C" Then
TablaX = Tabla3
ElseIf Me.Tablas1.Value = "D" Then
TablaX = Tabla4
End If

If Me.Tablas2.Value = "A" Then
TablaY = Tabla1
ElseIf Me.Tablas2.Value = "B" Then
TablaY = Tabla2
ElseIf Me.Tablas2.Value = "C" Then
TablaY = Tabla3
ElseIf Me.Tablas2.Value = "D" Then
TablaY = Tabla4
End If

DoCmd.RunSQL "INSERT INTO " & TablaY & " SELECT " & TablaX & ".* FROM " & TablaX & ";"
End Sub

Donde Tablas 1 es un cuadro combinado que contiene las tablas a insertar y Tablas2 es otro cuadro combinado con las tablas a las cuales inserto las de tablas1.

Esto va en el evento Click del combo de Tablas2.

Saludos

Rodolfo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con consulta datos anexados

Publicado por Rodolfo (463 intervenciones) el 12/07/2007 17:03:49
Avisame si te llego.

Saludos

Rodolfo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con consulta datos anexados

Publicado por Eomer (14 intervenciones) el 12/07/2007 22:31:44
ok, muchas gracias por la respuesta, lo probare y te cuento.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar