Barra de estado
Publicado por Jonathan (85 intervenciones) el 06/06/2007 12:05:13
hola tengo un problema necesito saber como puedo poner el resultado de una consulta en la barra de estado... es urgente por favor respoder
Valora esta pregunta
0
Private Sub MiBoton_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
' Construye la consulta SQL
strSQL = "SELECT CampoDeseado FROM Tabla WHERE Criterios"
' Abre la base de datos y ejecuta la consulta
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
' Muestra el resultado en la barra de estado
If Not rs.EOF Then
Me.StatusBar = "Resultado: " & rs!CampoDeseado
Else
Me.StatusBar = "No se encontraron resultados."
End If
' Cierra el recordset y la base de datos
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub