Невозможно вставить данные из Combobox

Question

Я не могу вставить данные из выпадающего списка.

У меня есть 3 комбинированных списка, которые влияют друг на друга.

Если combobox1 не равно нулю, то combobox2 покажет значение, которое ему нужно, но оно может быть нулевым, если combobox2 не равно нулю, тогда combobox3 покажет значение, для которого оно здесь тоже самое.

Итак, я попытался вставить его, если все поля со списком имеют значение, тогда могут быть вставлены данные, если значение со списком 1 и 2 имеет значение, я тоже могу вставить его, но когда поле со списком 2 и 3 не имеет значения, тогда он не хочет вводить.

Я использую After Update событие.

В моем случае я должен ввести Лицензию, что не у всех есть группа, и не у всех есть подгруппа. Поэтому он вставляет его как пустую или пустую строку (""). У меня есть ссылка для поиска здесь, но я понятия не имею.

Большое спасибо заранее.

Private Sub cmb1_AfterUpdate()
    Me.cmb2.RowSource = ""
    Me.cmb2.Value = ""
    Me.cmb3.RowSource = ""
    Me.cmb3.Value = ""

    Dim strSQL As String

    If IsNull(cmb1) = False Then
        strSQL = "Select ID_Group " & _
        "From Tbl_Mst_Group " & _
        "Where ID_License = '" & Me.cmb1 & "'"

        Me.cmb2.RowSource = strSQL
        Me.cmb2.Requery
     Else
        Me.cmb2.RowSource = ""
        Me.cmb2.Value = ""
        Me.cmb3.RowSource = ""
        Me.cmb3.Value = ""
    End If

Private Sub cmb2_AfterUpdate()

    Dim strSQL As String

    If IsNull(cmb2) = False Then
        strSQL = "Select ID_SubGroup " & _
                 "From Tbl_Mst_SubGroup " & _
                 "Where ID_Group = '" & Me.cmb2 & "'"
        Me.cmb3.RowSource = strSQL
        Me.cmb3.Requery
    Else
        Me.cmb3.RowSource = ""
        Me.cmb3.Value = ""
    End If
End Sub

Answer 1

Я предполагаю, что ваша форма привязана к таблице, а поля со списками привязаны к столбцам этой таблицы.Если столбцы помечены как Required, они не могут быть Null.Поэтому создайте столбцы для ComboBox 2 & 3 Required = No.

Другая проблема заключается в том, что если вы хотите, чтобы они были пустыми, вы должны назначить их Null вместо пустой строки ("").

Me.cmb2.RowSource = ""
Me.cmb2.Value = Null
Me.cmb3.RowSource = ""
Me.cmb3.Value = Null