无法从组合框插入数据
无法从组合框插入数据
提问于 2019-06-06 14:52:44
我无法从组合框插入数据。
我有3个相互影响的组合框。
如果combobox1不是null，那么combobox2将显示需要它的值，但是它可以是null，如果combobox2不是null，那么combobox3在这里显示需要它的值。
所以我试着插入它，如果所有的combobox都有值，那么可以插入数据，如果combobox 1和2有值，我也可以插入它，但是当combobox 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回答 1
Stack Overflow用户
发布于 2019-06-08 16:20:04
我假设您的表单绑定到一个表，ComboBoxes绑定到这个表的列。如果列标记为Required，则它们不能为Null。因此，将ComboBox 2和3的列设置为Required = No。
另一个问题是，如果希望它们为空，则必须为它们分配Null而不是空字符串("")。
Me.cmb2.RowSource = ""
Me.cmb2.Value = Null
Me.cmb3.RowSource = ""
Me.cmb3.Value = Null页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56480115
复制相关文章
相似问题
腾讯云开发者
