Доброго времени суток уважаемые жители планеты!
Есть данные в Аксес которые выводятся в ЛистБокс формы. В оригинале всё иное, но для образца, сделал 5 столбцов: "iD, Дата1, Марка, Примечание, Дата2".
Данные вывожу вполне стандартно:
Суть проблемы: Как правильно создать запрос для вывода данных в виде что то вроде:
То есть при выводе данных в ЛистБокс, в его пятом столбце отображалась не дата а значение "Выполнен" или "Не выполнен".
Думаю, что решение крайне простое, но в нэте не нашел, наверно из-за не понимания, как сформулировать сам вопрос.
Заранее огромное спасибо всем!
Есть данные в Аксес которые выводятся в ЛистБокс формы. В оригинале всё иное, но для образца, сделал 5 столбцов: "iD, Дата1, Марка, Примечание, Дата2".
Данные вывожу вполне стандартно:
Код |
---|
Private Sub UserForm_Initialize() Dim Conn As New ADODB.Connection Dim Filt As New ADODB.Recordset Dim sSQL As String my_Path = ThisWorkbook.Path & "\БАЗА.mdb" Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & my_Path & ";" sSQL = "Select iD,Format(Дата1,'dd.mm.yyyy'),Марка,Примечание,Format(Дата2,'dd.mm.yyyy') From Данные" Filt.Open sSQL, Conn Me.ListBox1.Column = Filt.GetRows Filt.Close Conn.Close Set Filt = Nothing Set Conn = Nothing End Sub |
Код |
---|
sSQL = "Select iD,Format(Дата1,'dd.mm.yyyy'),Марка,Примечание,If Дата2 = "" Then [Не выполнен] else [Выполнен] From Данные" |
Думаю, что решение крайне простое, но в нэте не нашел, наверно из-за не понимания, как сформулировать сам вопрос.
Заранее огромное спасибо всем!