Drimon

надо написать две программы для вставки полей из таблиц в 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("EimaUniversityComputer 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:="EimaUniversityComputer tecnologyЛабыСклад
eklama.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("EimaUniversityComputer tecnologyЛабыСкладdb1.mdb")

k1 = UserForm8.ComboBox1.Text

s1 = "Select * From [контракты] Where [номер] = """ & k1 & """"

Set r1 = bd1.OpenRecordset(s1)-------строка где выдает ошибку

UserForm8.TextBox1.Text = r1!номер