|
|
|
новичок
участник
Last Login: 20.12.2009 19:37
Сообщ.: 1,
Visits: 9
|
|
надо написать две программы для вставки полей из таблиц в TextBox в документе word. Для одной кнопки написал, а для второй пишу тоже самое, но работать не хочет... выдает ошибку 3464...
вот тексты обеих прог
1.работает
Private Sub CommandButton1_Click()
Dim bd1 As DAO.Database
Dim r1 As Recordset
Dim wd As Word.Application
Dim k1 As String, s As String, m As String
Set bd1 = OpenDatabase("E:\Dima\University\Computer tecnology\Лабы\Склад\db1.mdb")
k1 = UserForm7.ComboBox1.Text
s = "Select * From [Товары] Where [Товар]= """ & k1 & """"
m = InputBox("Введите цену товара")
Set r1 = bd1.OpenRecordset(s)
Set wd = CreateObject("Word.Application")
wd.Documents.Open Filename:="E:\Dima\University\Computer tecnology\Лабы\Склад\reklama.doc"
wd.Visible = True
wd.Documents("reklama.doc").TextBox1.Text = r1!Товар
wd.Documents("reklama.doc").TextBox3.Text = m
wd.Documents("reklama.doc").TextBox2.Text = r1!Описание
End
End Sub
2.не работает
Dim bd1 As DAO.Database
Dim r1 As DAO.Recordset
Dim w1 As Word.Application
Dim k As String, s1 As String, m As String
Set bd1 = OpenDatabase("E:\Dima\University\Computer tecnology\Лабы\Склад\db1.mdb")
k1 = UserForm8.ComboBox1.Text
s1 = "Select * From [контракты] Where [номер] = """ & k1 & """"
Set r1 = bd1.OpenRecordset(s1)-------строка где выдает ошибку
UserForm8.TextBox1.Text = r1!номер
|
|
|
|