Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Опять Listbox  [new]
fbgvfbfgn
Member

Откуда:
Сообщений: 63
Нужно по двойному щелчку листбокса отобразить соответствующую инфу на 2 странице. ПОМОГИТЕ!!! параметр текстовый. Я в VBA полный ноль, в жизни его не учил, а сейчас понадобился. Скажите хотя бы ссылку где можно почитать,если лень объяснить. Пробовал:

Private Sub List1_DblClick(Cancel As Integer)
Dim sql As String
Page2.SetFocus
sql = "Select * from brandcar where brand = " & list1.value
Me.RecordSource = sql
Text1.Requery
End Sub



Private Sub List1_DblClick(Cancel As Integer)
Dim sql As String
Dim strbrand As String
Page2.SetFocus
strbrand = list1.Column(0, list1.ListIndex)
sql = "Select * from brandcar where brand = " & strbrand
Me.RecordSource = sql
Text1.Requery
End Sub
29 мар 07, 12:51    [3955474]     Ответить | Цитировать Сообщить модератору
 Re: Опять Listbox  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Private Sub List1_DblClick(Cancel As Integer)

    Dim sql As String

    Page2.SetFocus
    sql = "Select * from brandcar where brand = " & list1.value 
    'если brand тестовый то надо было окружить кавычками
    Me.RecordSource = sql 
    'вы уверены, что надо всю форму поставить на другой источник данных ?
    Text1.Requery 
    'почему реквери какому-то полю, ведь всей форме уже дали больно ?

End Sub
29 мар 07, 12:56    [3955505]     Ответить | Цитировать Сообщить модератору
 Re: Опять Listbox  [new]
fbgvfbfgn
Member

Откуда:
Сообщений: 63
Если окружить одинарными, то работает так же что и без них, а если двойной то пишет ошибка компиляции. что делать?
30 мар 07, 05:45    [3958771]     Ответить | Цитировать Сообщить модератору
 Re: Опять Listbox  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Читать фак и учиться вставлять в строку любое коичество любых кавычек.
30 мар 07, 08:45    [3958931]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить