Problemas con left join
Publicado por Ceci (9 intervenciones) el 26/05/2009 14:54:32
Que tal amigos foreros!
Tengo un problemita, quizá sea una pavada pero no puedo salir de esto....
Tengo un botón en un formulario:
Private Sub Comando1_Click()
Dim SQL1 As String
strSQL1 = "INSERT INTO [Tabla de internación] (NUMHISTO, APENOMPA, NUMAFIL, TIP_DOC, DOC, FECHNACI, TIPOPLAN, FECHINGR, FECHEGRE, MEDICARG, CODIDIAG, NTIPOINTE, D1DESCRI, DIAG1, D2DESCRI, FINGRESO, FEGRESO, NNOMOBSOC, ECIVIL, PAISNACI, DOMHABI, TEDOM, JUZGADO, NRO, SEC, LOCALIDAD)"
strSQL1 = strSQL1 & " SELECT paciente.NUMHISTO, paciente.APENOMPA, paciente.NUMAFIL, paciente.TIP_DOC, paciente.DOC, paciente.FECHNACI, paciente.TIPOPLAN, paciente.FECHINGR, paciente.FECHEGRE, nov_paci.MEDICARG, nov_paci.NTIPOINTE, nov_paci.CODIDIAG, nov_paci.D1DESCRI, nov_paci.DIAG1, nov_paci.D2DESCRI, nov_paci.FINGRESO, nov_paci.FEGRESO, nov_paci.NNOMOBSOC, paci_mas.ECIVIL, paci_mas.PAISNACI, paci_mas.DOMHABI, paci_mas.TEDOM, JUDICIAL.JUZGADO, JUDICIAL.NRO, JUDICIAL.SEC, JUDICIAL.LOCALIDAD"
strSQL1 = strSQL1 & " FROM paciente LEFT JOIN JUDICIAL ON paciente.NUMHISTO = JUDICIAL.NUMHISTO LEFT JOIN nov_paci ON paciente.NUMHISTO = nov_paci.NUMHISTO LEFT JOIN paci_mas ON paciente.NUMHISTO = paci_mas.NUMHISTO"
strSQL1 = strSQL1 & "WHERE nov_paci.NTIPOINTE) Like I"
CurrentDb.Execute strSQL1, dbFailOnError
MsgBox "concluido exitosamente", , "Gracias"
End Sub
El problema es que cuando lo ejecuto me da un error "3075", error de sintaxis, falta operador en la expresión de consulta 'paciente NUMHISTO = JUDICIAL.NUMHISTO LEF JOIN nov_paci ON paciente.NUMHISTO= nov_paci.NUMHISTO.......
NO SE EN QUE ME ESTOY EQUIVOCANDO!!!, evidentemente es cuando utilizo left join porque cuando lo pruebo con una sola tabla anda bien.
Gracias!!!
Tengo un problemita, quizá sea una pavada pero no puedo salir de esto....
Tengo un botón en un formulario:
Private Sub Comando1_Click()
Dim SQL1 As String
strSQL1 = "INSERT INTO [Tabla de internación] (NUMHISTO, APENOMPA, NUMAFIL, TIP_DOC, DOC, FECHNACI, TIPOPLAN, FECHINGR, FECHEGRE, MEDICARG, CODIDIAG, NTIPOINTE, D1DESCRI, DIAG1, D2DESCRI, FINGRESO, FEGRESO, NNOMOBSOC, ECIVIL, PAISNACI, DOMHABI, TEDOM, JUZGADO, NRO, SEC, LOCALIDAD)"
strSQL1 = strSQL1 & " SELECT paciente.NUMHISTO, paciente.APENOMPA, paciente.NUMAFIL, paciente.TIP_DOC, paciente.DOC, paciente.FECHNACI, paciente.TIPOPLAN, paciente.FECHINGR, paciente.FECHEGRE, nov_paci.MEDICARG, nov_paci.NTIPOINTE, nov_paci.CODIDIAG, nov_paci.D1DESCRI, nov_paci.DIAG1, nov_paci.D2DESCRI, nov_paci.FINGRESO, nov_paci.FEGRESO, nov_paci.NNOMOBSOC, paci_mas.ECIVIL, paci_mas.PAISNACI, paci_mas.DOMHABI, paci_mas.TEDOM, JUDICIAL.JUZGADO, JUDICIAL.NRO, JUDICIAL.SEC, JUDICIAL.LOCALIDAD"
strSQL1 = strSQL1 & " FROM paciente LEFT JOIN JUDICIAL ON paciente.NUMHISTO = JUDICIAL.NUMHISTO LEFT JOIN nov_paci ON paciente.NUMHISTO = nov_paci.NUMHISTO LEFT JOIN paci_mas ON paciente.NUMHISTO = paci_mas.NUMHISTO"
strSQL1 = strSQL1 & "WHERE nov_paci.NTIPOINTE) Like I"
CurrentDb.Execute strSQL1, dbFailOnError
MsgBox "concluido exitosamente", , "Gracias"
End Sub
El problema es que cuando lo ejecuto me da un error "3075", error de sintaxis, falta operador en la expresión de consulta 'paciente NUMHISTO = JUDICIAL.NUMHISTO LEF JOIN nov_paci ON paciente.NUMHISTO= nov_paci.NUMHISTO.......
NO SE EN QUE ME ESTOY EQUIVOCANDO!!!, evidentemente es cuando utilizo left join porque cuando lo pruebo con una sola tabla anda bien.
Gracias!!!
Valora esta pregunta


0