Consulta Tablas Multiple

[Damnyars]

Hola disculpen, tengo un problema con la consulta de tablas multiples e usado el inner join y cuando realizo la consulta me duplica la informacion, hay alguna forma de hacer sin q duplique la informacion, aca le envio la sintaxis q tengo:

Dim mysql$
Dim TAM As Long
TAM = Len(Text4.Text)
mysql$ = "SELECT "
mysql = mysql & "diseno.orden_trabajo, "
mysql = mysql & "productos.orden_trabajo,"
mysql = mysql & "diseno.trabajo, "
mysql = mysql & "productos.cliente "
mysql = mysql & "FROM diseno INNER JOIN productos "
mysql = mysql & "ON diseno.orden_trabajo = productos.orden_trabajo "
Data1.RecordSource = mysql

If Label4.Caption = "Orden de Trabajo:" Then
mysql = mysql & "WHERE mid(diseno.orden_trabajo,1,"" & TAM & "")= "" & Text4.Text & """
mysql = mysql & "ORDER BY diseno.orden_trabajo "


GRACIAS DE ANTEMANO

[Avellaneda]

Hola,

cuando dices "me duplica la información", ¿te refieres a que muestra dos veces el mismo registro (fila)?

No entiendo porqué le aplicas al control Data1 la consulta "mysql" y después continúas añadiendo claúsulas a la misma consulta si se cumple la condición If.

¿Qué código hay a continuación de lo que has escrito?

[Damnyars]

Exactamente me muestra dos veces el mismo registro, lo q sigue del programa es:

Data1.RecordSource = mysql

Data1.Refresh
Flex.Redraw = True
Flex.Col = 1
If Flex.Row = 0 Then
inicializardiseno
MsgBox "No hay registro Activo", vbDefaultButton1, "Advertencia"
End If
inicializardiseno

Aca llamo a la funcion inicializardiseno, e intentando las mil y una y no puedo hacer q la consulta me traiga informacion de dos tablas, les agradezco su ayuda, gracias