Torna al Thread
Private Sub Visualizza_ListBox()
Me.Anomalie_Visualizza.Enabled = True
Dim rs As DAO.Recordset
Dim query As String
query = "SELECT Descrizione_Anomalie.Data, Descrizione_Anomalie.Turno, Descrizione_Anomalie.Id_Macchina, Descrizione_Anomalie.Tipo_Anomalia,Descrizione_Anomalie.Fermo FROM Descrizione_Anomalie WHERE ( ( (Descrizione_Anomalie.Data)=Date()) And (Descrizione_Anomalie.Id_Macchina= '" & Id_Macchina_m & "') and (Descrizione_Anomalie.Turno='" & Turno_m & "'))ORDER BY Descrizione_Anomalie.Data, Descrizione_Anomalie.Id_Macchina, Descrizione_Anomalie.Fermo DESC "
Me.Anomalie_Visualizza.RowSource = query
Me.Anomalie_Visualizza.ColumnHeads = True
Me.Anomalie_Visualizza.ColumnCount = 5
Set rs = CurrentDb.OpenRecordset(query)
rs.Close
End Sub