access - сбросить все комбинированные списки в itemdata (1) в форме

Question

У меня около 8 полей со списком в форме.Когда пользователь нажимает кнопку «сбросить», я бы хотел, чтобы все поля со списком отображали первые данные элемента в поле со списком.Код ниже возвращает ноль и не работает:

Private Sub Command1_Click()
     Me.Combo1.ItemData (1)
     Me.Combo2.ItemData (1)
     Me.Combo3.ItemData (1)
     Me.Combo4.ItemData (1)
     Me.Combo5.ItemData (1)
     Me.Combo6.ItemData (1)
     Me.Combo7.ItemData (1)
     Me.Combo8.ItemData (1)
End Sub

Answer 1

Если вы работаете с MS Access, вам нужно сделать что-то вроде этого:

Private Sub Command1_Click()
     Me.Combo1.Value = Nothing
     Me.Combo2.Value = Nothing
     Me.Combo3.Value = Nothing
     Me.Combo4.Value = Nothing
     Me.Combo5.Value = Nothing
     Me.Combo6.Value = Nothing
     Me.Combo7.Value = Nothing
     Me.Combo8.Value = Nothing
End Sub

Предполагая, что вы хотите установить все поля со списком обратно на пустое значение.

Answer 2

что-то вроде Me.Combo1.SelectedIndex = 0

Обычно ...

Answer 3

Попробуйте это:

Private Sub Command1_Click()
     Me.Combo1.SelectedIndex = 0
     Me.Combo2.SelectedIndex = 0
     Me.Combo3.SelectedIndex = 0
     Me.Combo4.SelectedIndex = 0
     Me.Combo5.SelectedIndex = 0
     Me.Combo6.SelectedIndex = 0
     Me.Combo7.SelectedIndex = 0
     Me.Combo8.SelectedIndex = 0
End Sub