Problemas en consulta inner join

   Buenas tardesNo logro que funcione este código, me podrían ayudar. Gracias
Private Sub recuperaRegistro()
    Dim rst As DAO.Recordset, SQL As String

    On Error GoTo ManipulaError
    SQL = "SELECT G.Nombre,P.Id_HojaIngreso,P.Menarca" & "FROM Pacientes AS G INNER JOIN HojaIngreso AS P ON G.Id_pacientes = P.Id_Pacientes" _
       & "WHERE G.Id_HojaIngreso = '" & Me.txtBusqueda & "'"
    Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
    With rst
        Me.txtHojaIngreso = rst!Id_HojaIngreso
        Me.txtNombre = !Nombre
        Me.txtMenarca = !Menarca

    End With
    rst.Close: Set rst = Nothing
    Me.txtBusqueda = Null
    Exit Sub

ManipulaError:
    If Not rst Is Nothing Then rst.Close: Set rst = Nothing
End Sub

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Margalli Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 28/Enero/2023 Localización: Mexico Estado: Sin conexión Puntos: 4	Opciones de entrada Responder Cita Margalli Informar de mensaje Gracias(0) Cita Respuesta Tema: Problemas en consulta inner join Enviado: 28/Enero/2023 a las 00:16
	Buenas tardes No logro que funcione este código, me podrían ayudar. Gracias Private Sub recuperaRegistro() Dim rst As DAO.Recordset, SQL As String On Error GoTo ManipulaError SQL = "SELECT G.Nombre,P.Id_HojaIngreso,P.Menarca" & "FROM Pacientes AS G INNER JOIN HojaIngreso AS P ON G.Id_pacientes = P.Id_Pacientes" _ & "WHERE G.Id_HojaIngreso = '" & Me.txtBusqueda & "'" Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly) With rst Me.txtHojaIngreso = rst!Id_HojaIngreso Me.txtNombre = !Nombre Me.txtMenarca = !Menarca End With rst.Close: Set rst = Nothing Me.txtBusqueda = Null Exit Sub ManipulaError: If Not rst Is Nothing Then rst.Close: Set rst = Nothing End Sub

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 28/Enero/2023 a las 11:45
	Hola, bienvenido. En principio me faltan blancos que separen las palabras reservadas, entre P.Menarca y FROM, entre Id_Pacientes y WHERE. Si obtienes en la ventana inmediato un print de la variable SQL lo verás muy claro. ¿por qué haces esto?, el concatenar dos literales no tiene sentido: "SELECT G.Nombre,P.Id_HojaIngreso,P.Menarca" & "FROM Pacientes mejor así, que como ves ya lleva el blanco de separaión: "SELECT G.Nombre,P.Id_HojaIngreso,P.Menarca FROM Pacientes ....
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es