Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Люди добрые, господа, граждане (кому как удобнее) подскажите пожалуйста
Dim rs As Recordset
Dim strSQL As String
strSQL = "select id, inomer, naimenovanie, valut, cena, faktdate FROM sved_ob_yslug where faktdate <= #" & Format(CDate(Me.text1.Text), "mm\/dd\/yyyy") & "#"
Set rs = data1.Database.OpenRecordset(strSQL)
Set Me.data1.Recordset = rs
' объявление объектов экселя
Dim oExcel As Object ' объявление самого экселя
Dim oBook As Object ' объявление книги
Dim oSheet As Object ' обявление объекта
Set oExcel = CreateObject("Excel.Application") ' указание экселя
Set oBook = oExcel.Workbooks.open("C:\new\basa97.xls") ' указание пути книги
Set oSheet = oBook.Worksheets(1) ' объявление рабочего листа 1
With oSheet
.Range("A1") = "ID"
.Range("B1") = "Наименование организации "
.Range("C1") = "Наименование услуги "
.Range("d1") = "Валюта"
.Range("e1") = "Цена"
.Range("f1") = "Дата нач. предост. услуги"
.Range("A2").CopyFromRecordset rs
End With
oExcel.Visible = True
вот одит переноски данных из аксеса в эксель. Бд работает через DAO. Данные перекидываются таким образом, если фактическая дата начала предоставления услуги (FAKTDATE) меньше или равна чем введеная, то выводятся данные. Мне надо чтобы фактическая дата окончания предосавления услуги (fakt), если она больше введенной, то строка с этой организацией окрашивалась в желтый цвет в экселе.
1.Вводишь переменную типа дата.
2.Задаешь ей значение вводимой даты.
3.Перекидываешь данные из рекордсета в ексель (в качестве параметра уже не значение поля используешь, а значение переменной)
4.Проходишься циклом по ячейкам фактической даты и сравниваешь их значения со значением переменной.
5.Если значение удовлетворено то перекрашиваешь ячейку.
dim tmpR as range
dim CheckDate as date
set tmpR=Range( "F3:F" & rs.recordcount +3 )
tmpR.FormatConditions.Delete
tmpR.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:= "=" & CheckDate
tmpR.FormatConditions (1 ).Interior.ColorIndex = 44
