Sub test()
Dim Qt As DAO.QueryDef, rs As DAO.Recordset
For Each Qt In CurrentDb.QueryDefs
If Qt.Name Like "*-NA" Then
Set rs = CurrentDb.OpenRecordset(Qt.Name, dbOpenDynaset, dbReadOnly)
If rs.RecordCount > 0 Then
Application.SetHiddenAttribute acQuery, Qt.Name, False
Else
Application.SetHiddenAttribute acQuery, Qt.Name, True
End If
rs.Close
Set rs = Nothing
End If
Next
End Sub