в Listbox вывести CheckBox
Никак не могу сделать такую вещь...
Hеобходимо вывести, допустим из таблицы "студенты" всех студентов из определенной группы и напротив каждой фамилии чтобы выводился CheckBox.
Выделяем некоторых студентов и сохраняем их в другую таблицу...уже все перепробовал и много литературы но там нет ничего.
Все это я делаю а Аксесе, но так как нет форума по VBA пришлось написать тут.
Hеобходимо вывести, допустим из таблицы "студенты" всех студентов из определенной группы и напротив каждой фамилии чтобы выводился CheckBox.
Выделяем некоторых студентов и сохраняем их в другую таблицу...уже все перепробовал и много литературы но там нет ничего.
Все это я делаю а Аксесе, но так как нет форума по VBA пришлось написать тут.
Я решил делать по другому, так по моему не получится...
Помогите тогда только с сохранением.
То есть надо выделеные в ListBox записи сохранить в таблице
Помогите тогда только с сохранением.
То есть надо выделеные в ListBox записи сохранить в таблице
Option Compare Database
Dim MyNumCount
MyNumCount = List1.ListCount
Dim a() As String
ReDim a(MyNumCount)
========================================
For i = 0 To IDstud.ListCount - 1
IDstud.ListIndex = i
If IDstud.Selected(IDstud.ListIndex) = True Then
a(i) = IDstud.List(IDstud.ListIndex)
Else
a(i) = ""
End If
Next i
Подскажите что я делаю не так???
В Visual Basic 6 все работает, а этом ... аксесе чет матерится, сил уж не хватает......:mad:
Dim MyNumCount
MyNumCount = List1.ListCount
Dim a() As String
ReDim a(MyNumCount)
========================================
For i = 0 To IDstud.ListCount - 1
IDstud.ListIndex = i
If IDstud.Selected(IDstud.ListIndex) = True Then
a(i) = IDstud.List(IDstud.ListIndex)
Else
a(i) = ""
End If
Next i
Подскажите что я делаю не так???
В Visual Basic 6 все работает, а этом ... аксесе чет матерится, сил уж не хватает......:mad: