Mejorar un SQL en mi aplicación
Dim mySql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI = 1018413461 ORDER BY FechaConsulta DESC"
Debug.Print DNI, FechaConsulta
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(mySql, dbOpenSnapshot)
'Asignamos el valor al TextBox
Me.txtUltimaConsulta.Value = rst.Fields(1).Value
'Cerramos el recordset y liberamos memoria
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
Lo que necesito es cambiar el numero de la cedula En la expresión DNI= 1018413641 por el nombre del textbox del formulario que es DNI para que quede universal y no estar colocando el valor de la cedula, les agradezco el consejo ya que estoy varado en este tópico, y no soy muy experto en DAO Gracias
Si tu cuadro de texto en el formulario se llama DNI (lo puedes ver sacando sus propiedades->pestaña Otros->Nombre), la sql te quedaría así:
mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI =" & me.DNI & " ORDER BY FechaConsulta DESC"
Teniendo en cuenta que DNI es un campo numérico. Si fuera de texto, sería así:
mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI ='" & me.DNI & "' ORDER BY FechaConsulta DESC"
