Error en consulta con INNER JOIN
Publicado por Omar (6 intervenciones) el 12/11/2007 20:38:58
Que tal foro com estamos, tengo el siguiente problema:
Necesito vaciar campos de dos tablas en un flexgrid pero me envia error en mi codigo, el error me lo marca en la linea "If Trim(RsConn!Sucursal) = Varf Then".
El problema es que no se como indicarle de que tabla seleccione el campo sucursal.
Private Sub MSFGridRegNumRep_Click()
StrConn = "SELECT Reportes.Cliente,Reportes.Sucursal,Reportes.Descripcion,Reportes.RefExterior,Sucursales.Sucursal,Sucursales.Municipio FROM Reportes INNER JOIN Sucursales ON Reportes.Sucursal=Sucursales.Sucursal"
AbrirConn
Set RsConn = Conn.Execute(StrConn)
Varf = MSFGridRegNumRep.Text
Do While Not RsConn.EOF
If Trim(RsConn!Sucursal) = Varf Then
LlenarCamposREP
RsConn.MoveNext
CerrarConn
Exit Sub
Else
RsConn.MoveNext
End If
Loop
End Sub
Function LlenarCamposREP()
If RsConn!RefExterior <> "" Then
TXTREFEXT.Text = RsConn!RefExterior
Else
TXTREFEXT.Text = ""
End If
If RsConn!Sucursal <> "" Then
TXTSUC.Text = RsConn!Sucursal
Else
TXTSUC.Text = ""
End If
If RsConn!Descripcion <> "" Then
TXTDESC.Text = RsConn!Descripcion
Else
TXTDESC.Text = ""
End If
End Function
De antemano, gracias.
Necesito vaciar campos de dos tablas en un flexgrid pero me envia error en mi codigo, el error me lo marca en la linea "If Trim(RsConn!Sucursal) = Varf Then".
El problema es que no se como indicarle de que tabla seleccione el campo sucursal.
Private Sub MSFGridRegNumRep_Click()
StrConn = "SELECT Reportes.Cliente,Reportes.Sucursal,Reportes.Descripcion,Reportes.RefExterior,Sucursales.Sucursal,Sucursales.Municipio FROM Reportes INNER JOIN Sucursales ON Reportes.Sucursal=Sucursales.Sucursal"
AbrirConn
Set RsConn = Conn.Execute(StrConn)
Varf = MSFGridRegNumRep.Text
Do While Not RsConn.EOF
If Trim(RsConn!Sucursal) = Varf Then
LlenarCamposREP
RsConn.MoveNext
CerrarConn
Exit Sub
Else
RsConn.MoveNext
End If
Loop
End Sub
Function LlenarCamposREP()
If RsConn!RefExterior <> "" Then
TXTREFEXT.Text = RsConn!RefExterior
Else
TXTREFEXT.Text = ""
End If
If RsConn!Sucursal <> "" Then
TXTSUC.Text = RsConn!Sucursal
Else
TXTSUC.Text = ""
End If
If RsConn!Descripcion <> "" Then
TXTDESC.Text = RsConn!Descripcion
Else
TXTDESC.Text = ""
End If
End Function
De antemano, gracias.
Valora esta pregunta


0