не работает recordset

[callbitz]

не получается вывести запрос в листбокс с помощью рекордсет.
Есть листбокс zzz. Есть таблица tb c полями id, a, b. В свойствах листбокса стоит вывод по значению.

Private Sub zzz_BeforeUpdate(Cancel As Integer)
Dim s As String
Dim baza As Database
Dim rec As Recordset
    s = "select * from tb"
    'Set baza = OpenDatabase("C:\z\dbtests.mdb")
    Set baza = CurrentDb
    Set rec = baza.OpenRecordset(s)
            
        Do Until Not rec.EOF
            Me.zzz.AddItem rec.Fields("b")
            rec.MoveNext
        Loop
End Sub

[gluk_fm]

Попробуйте вместо "select * from tb" вывести все поля - я думаю тогда будет нормально

[callbitz]

Попробуйте вместо "select * from tb" вывести все поля - я думаю тогда будет нормально

не совсем понял...

[gluk_fm]

Выложите лучше пример, тогда будет понятней. А так я предлагаю Вам в запросе на выборку который Вы вставляете в рекордсет вывести все поля по отдельности, что позваолит потом посмотреть правильно ли перебираются значения написав:
p = rec![name pole]
И если значение будет то смотреть где ошибка, а если нет - то проблема в самом запросе на выборку.

[callbitz]

вывести все поля по отдельности

так "select a from tb"

Private Sub zzz_BeforeUpdate(Cancel As Integer)
Dim s As String
Dim baza As Database
Dim rec As Recordset
    s = "select a from tb"   'Так?
    'Set baza = OpenDatabase("C:\z\dbtests.mdb")
    Set baza = CurrentDb
    Set rec = baza.OpenRecordset(s)
            
        Do Until Not rec.EOF
            Me.zzz.AddItem rec.Fields("a")
            rec.MoveNext
        Loop
End Sub

Выложите лучше пример, тогда будет понятней.

Так это и есть пример, я с рекордсет хочу разобраться. Есть таблица с 3мя столбцами и этот код... и всё :-)

[callbitz]

елки палки. Я от этого рекордсета чесаться начал! Почему он не работает?

[callbitz]

Я нашел причину! Нужно было это код не в листбокс, а в кнопку писать!
Private Sub Butt_Click()

Private Sub Butt_Click()
Dim s As String
Dim baza As Database
Dim rec As Recordset
    's = "select * from tb"
    'Set baza = OpenDatabase("C:\z\dbtests.mdb")
    
    Set baza = CurrentDb
    Set rec = baza.OpenRecordset("select * from tb")
    
    'Set Me.zzz.Recordset = rec
        Do While Not rec.EOF
            Me.zzz.AddItem rec.Fields("a")
            rec.MoveNext
        Loop
    
End Sub

Возникает у меня вопрос! Как сделать так, чтобы в листбоксе данные выводились сразу после запуска формы, а не после нажатия кнопки?

[callbitz]

Дошло! Нужно запихнуть всё в процедуру Load_Form !