** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Obtener el último registro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoObtener el último registro

 Responder Responder
Autor
Mensaje
sauro69 Ver desplegable
Habitual
Habitual


Unido: 27/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 109
Enlace directo a este mensaje Tema: Obtener el último registro
    Enviado: 06/Agosto/2018 a las 11:38
Buenas de nuevo.
En una nueva vuelta de tuerca tengo un formulario para dar de alta los expedientes. En función del colectivo que designes te da un listado de todos los expedientes de ese colectivo creados en el año, mediante la siguiente instrucción:

Select Case Me.Busqueda

'CENTROS
Case Is = "1"
    Me.Lista0.RowSource = "SELECT [consulta alta CENTROS].ID, [consulta alta CENTROS].CENTRO_NUMERO, [consulta alta CENTROS].NOMBRE, [consulta alta CENTROS].LOCALIDAD, [consulta alta CENTROS].COLECTIVO, [consulta alta CENTROS].TIPO " & _
                        "FROM [consulta alta CENTROS] " & _
                        "where [consulta alta CENTROS].COLECTIVO like 'MAYORES' and [consulta alta CENTROS].Expr2 like '*" & Me.Busca & "*' " & _
                        "ORDER BY [consulta alta CENTROS].COLECTIVO ASC, [consulta alta CENTROS].expr2 desc, [consulta alta CENTROS].expr3 desc;"
Case Is = "2"
    Me.Lista0.RowSource = "SELECT [consulta alta CENTROS].ID, [consulta alta CENTROS].CENTRO_NUMERO, [consulta alta CENTROS].NOMBRE, [consulta alta CENTROS].LOCALIDAD, [consulta alta CENTROS].COLECTIVO, [consulta alta CENTROS].TIPO " & _
                        "FROM [consulta alta CENTROS] " & _
                        "where [consulta alta CENTROS].COLECTIVO like 'DISCAPACIDAD' and [consulta alta CENTROS].Expr2 like '*" & Me.Busca & "*' AND [CONSULTA ALTA CENTROS].TIPO LIKE 'DIS*' " & _
                        "ORDER BY [consulta alta CENTROS].COLECTIVO ASC, [consulta alta CENTROS].expr2 desc, [consulta alta CENTROS].expr3 desc;"
...

Donde expr2 es el año y expr3 es el expediente.

Lo que quiero es que una vez que saque el listado filtrado me aparezca en un cuadro de texto (llamado "Expte") el número de expediente que debo crear, es decir, el último expediente más uno.

No sé si me he explicado bien.
Un saludo,
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5326
Enlace directo a este mensaje Enviado: 06/Agosto/2018 a las 14:08
Hola!

Una opción es crear un cuadro de lista de una sola columna y utilizando la clausula "Top":-

Select Case Me.Busqueda

'CENTROS
Case Is = "1"
    Me.Lista0.RowSource = "SELECT [consulta alta CENTROS].ID, [consulta alta CENTROS].CENTRO_NUMERO, [consulta alta CENTROS].NOMBRE, [consulta alta CENTROS].LOCALIDAD, [consulta alta CENTROS].COLECTIVO, [consulta alta CENTROS].TIPO " & _
                        "FROM [consulta alta CENTROS] " & _
                        "where [consulta alta CENTROS].COLECTIVO like 'MAYORES' and [consulta alta CENTROS].Expr2 like '*" & Me.Busca & "*' " & _
                        "ORDER BY [consulta alta CENTROS].COLECTIVO ASC, [consulta alta CENTROS].expr2 desc, [consulta alta CENTROS].expr3 desc;"

Me.Lista1.RowSource = "SELECT Top 1 [consulta alta CENTROS].ID +1 " & _
                        "FROM [consulta alta CENTROS] " & _
                        "where [consulta alta CENTROS].COLECTIVO like 'MAYORES' and [consulta alta CENTROS].Expr2 like '*" & Me.Busca & "*' " & _
                        "ORDER BY [consulta alta CENTROS].COLECTIVO ASC, [consulta alta CENTROS].expr2 desc, [consulta alta CENTROS].expr3 desc;"


Case Is = "2"
    Me.Lista0.RowSource = "SELECT [consulta alta CENTROS].ID, [consulta alta CENTROS].CENTRO_NUMERO, [consulta alta CENTROS].NOMBRE, [consulta alta CENTROS].LOCALIDAD, [consulta alta CENTROS].COLECTIVO, [consulta alta CENTROS].TIPO " & _
                        "FROM [consulta alta CENTROS] " & _
                        "where [consulta alta CENTROS].COLECTIVO like 'DISCAPACIDAD' and [consulta alta CENTROS].Expr2 like '*" & Me.Busca & "*' AND [CONSULTA ALTA CENTROS].TIPO LIKE 'DIS*' " & _
                        "ORDER BY [consulta alta CENTROS].COLECTIVO ASC, [consulta alta CENTROS].expr2 desc, [consulta alta CENTROS].expr3 desc;"

Me.Lista1.RowSource = ................


Editado por mounir - 06/Agosto/2018 a las 14:10
Un Saludo.
Arriba
sauro69 Ver desplegable
Habitual
Habitual


Unido: 27/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 109
Enlace directo a este mensaje Enviado: 06/Agosto/2018 a las 14:34
Perfecto como siempre.
Solucionado.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable