Помогите пожалуйста! В Excel заполняется каждый день информация и сохраняется в конце дня в базу basa1.mdb
В ячейке (допустим) К2 через ComboBox можно выбрать службу (Slu)
Как мне через параметр сделать выборку из базы для службы, чтобы этот параметр, ссылаясь на ячейку К2, выбирал службу и выводил соответствующую строку из базы в файл
К2
Это Excel лист
Участок фио служба(Slu) дата факт штат отп
Private Sub CommandButton2_Click()
Dim Slu As String
Dim xlApp As Excel.Application
Dim RWB As Workbook
Dim DB1 As Database
Set DB1 = OpenDatabase("c:\basa1.mdb")
Set RS1 = DB1.OpenRecordset(Name:="Select ush, fio, data, fakt, stat,otp from TAB2 where Slu = ?????????", Type:=dbOpenDynaset)
Set xlApp = New Excel.Application
Set RWB = Workbooks.Open("d:\Vibor\Vstav.xls")
Worksheets("Лист1").Range("A1").CopyFromRecordset RS1
End Sub
Спасибо всем. еmail : karag1@yandex.ru
Если я правильно понял, то...16.09.04 03:32 Автор: Korsh <Мельников Михаил> Статус: Elderman
> Private Sub CommandButton2_Click() > Dim Slu As String > Dim xlApp As Excel.Application > Dim RWB As Workbook > Dim DB1 As Database Dim str as String
> Set DB1 = OpenDatabase("c:\basa1.mdb") str="Select ush, fio, data, fakt, stat,otp from TAB2 where Slu = '" & Worksheets("Лист1").Range("K2") & "'"
Set RS1 = DB1.OpenRecordset(Name:=str,Type:=dbOpenDynaset)
> Set xlApp = New Excel.Application > Set RWB = Workbooks.Open("d:\Vibor\Vstav.xls") > Worksheets("Лист1").Range("A1").CopyFromRecordset RS1 > End Sub
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
