БД и Userform

Программирование на Visual Basic for Applications
Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

БД и Userform

Сообщение Legachoff » 06.04.2006 (Чт) 11:20

есть лист бд в который забиваеться информация о клиенте (через Тextbox имя и через OptionButton другие критерии), после того как заводишь клиента форма исчезает, и ВОТ ВОПРОС я через DoubleClick на клиенте вывожу форму опять, КАК СДЕЛАТЬ ТАК ЧТОБЫ в Inputbox стояла инфа которая заводилась????


http://rapidup.ru/
http://1z0.ru/
http://sports-24.ru/
http://alxblog.net/
Последний раз редактировалось Legachoff 24.12.2012 (Пн) 12:49, всего редактировалось 1 раз.

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 06.04.2006 (Чт) 11:32

Программно ее заполнить. В чем проблема-то?
Быть... или не быть. Вот. В чём вопрос?

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Сообщение Legachoff » 06.04.2006 (Чт) 11:41

для тектбокса понятно: вот

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If (Target.Column = 2) And (Target.Row > 3) Then
Cancel = True
UserForm1.клієнт.Value = Target.Offset(0, 0).Value
UserForm1.Show
End If

End Sub

не могу понять как Инпутбокс сделать?

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Сообщение Legachoff » 06.04.2006 (Чт) 11:46

все я вроде понял

if cells(1,1).value="банк" then UserForm1.банк.Value = Target.Offset(0, 0).Value
if cells(1,1).value="завод" then UserForm1.завод.Value = Target.Offset(0, 0).Value

где-то так
чёто, тормозил :?


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 0

    TopList