Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Помогите пожалуйста сделать запрос с параметром из vba 15.09.04 16:27
Автор: Мила Статус: Незарегистрированный пользователь
|
Помогите пожалуйста! В Excel заполняется каждый день информация и сохраняется в конце дня в базу basa1.mdb
В ячейке (допустим) К2 через ComboBox можно выбрать службу (Slu)
Как мне через параметр сделать выборку из базы для службы, чтобы этот параметр, ссылаясь на ячейку К2, выбирал службу и выводил соответствующую строку из базы в файл
К2
Это Excel лист
Участок фио служба(Slu) дата факт штат отп
44444 ППППП бухг 09.06.2004 11 10 1
34567 ПЕПЕП тэс 10.06.2004 5 5 1
89101 АAAA хим 11.06.2004 154 154 2
12134 МMMM хим 12.06.2004 30 28 1
45678 яяяя тэс 26.08.2004 1 2 3
33333 тытыты бухг 10.06.2004 5 4 4
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
|
|
|
подробно о проекте
Анализ криптографических сетевых...
