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.RecordsetDim strSQL As String
' Construye la consulta SQLstrSQL = "SELECT CampoDeseado FROM Tabla WHERE Criterios"
' Abre la base de datos y ejecuta la consulta Set db = CurrentDbSet rs = db.OpenRecordset(strSQL)
' Muestra el resultado en la barra de estado If Not rs.EOF ThenMe.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 = NothingEnd Sub

