这是我使用 MS Access 所做的一个示例。我有一个包含人名的表格和两个用于添加电话号码的文本字段。我创建了一个包含名称的列表框。我设法将列表框中选定的姓名和文本字段(Tel1 和 Tel2)中的电话号码插入表(ContactTable)中。我使用的脚本如下所示。如何更改此脚本以使用组合框而不是列表框。
Private Sub ListBoxEnter_Click()
Dim Name As String
Dim Tel1 As Integer
Dim Tel2 As Integer
If ListBox.ItemsSelected.Count = 1 Then
Name = ListBox.Value
Tel1 = Tel1field
Tel2 = Tel2field
values = "VALUES ("
values = values & "'" & Person_Id & "','" & Name & "','" & Tel1 & "','" & Tel2 & "')"
SQL = "INSERT INTO ContactTable (Person_Id, Name, Tel1, Tel2)"
SQL = SQL & values
DoCmd.RunSQL SQL
Me.Tel1.Value = Null
Me.Tel2.Value = Null
End If
End Sub
只需替换为组合框:
Private Sub ListBoxEnter_Click()
Dim Name As String
Dim Tel1 As Integer
Dim Tel2 As Integer
If Not IsNull(Me!ComboBox.Value) Then
Name = Me!ComboBox.Value
Tel1 = Tel1field
Tel2 = Tel2field
values = "VALUES ("
values = values & "'" & Person_Id & "','" & Name & "','" & Tel1 & "','" & Tel2 & "')"
SQL = "INSERT INTO ContactTable (Person_Id, Name, Tel1, Tel2)"
SQL = SQL & values
DoCmd.RunSQL SQL
Me.Tel1.Value = Null
Me.Tel2.Value = Null
End If
End Sub
如果组合框中有两列:
FirstName = Me!ComboBox.Value ' The bound column, often column 0.
LastName = Me!ComboBox.Column(1) ' The second/other column
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)