存储由行源查询生成的列表框值

Question

我正在尝试存储通过行源查询生成的列表框 (Actual_Polygon_Area) 的值。每次我运行脚本时，我的消息框都会告诉我列表框的值为空，我怀疑这是由行源引起的。可疑的列表框名为 Actual_Polygon_Area，我试图将其存储在的字段是 table FS_Actual_Polygon.

中的 Polygon_Area

Private Sub Actual_Polygon_Save_Click()

If IsNull(Actual_Polygon_Year) Then
    MsgBox "Please enter a year in which this polygon received treatment"
    Actual_Polygon_Year.SetFocus
ElseIf IsNull(Actual_Polygon_Season) Then
    MsgBox "Please enter the season in which this polygon received treatment"
    Actual_Polygon_Season.SetFocus
ElseIf IsNull(Actual_Polygon_Treatment) Then
    MsgBox "Please select the treatment type that was completed in this polygon."
    Actual_Polygon_Treatment.SetFocus
ElseIf IsNull(Actual_Polygon_Notes) Then
    MsgBox "Please write a short summary regarding treatment goals and objectives."
    Actual_Polygon_Notes.SetFocus
ElseIf IsNull(Actual_Polygon_Area) Then
    MsgBox "Polygon Area is null, please enter a value"
    Actual_Polygon_Area.SetFocus

Else

    Dim MyConnection As ADODB.Connection
    Set MyConnection = CurrentProject.Connection

    Dim rsFS_Actual_Polygon As ADODB.Recordset
    Set rsFS_Actual_Polygon = New ADODB.Recordset


    If IsNull(PolygonNo) Then
        'add
        rsFS_Actual_Polygon.Open "select * from FS_Actual_Polygon where PolygonNo= " & Actual_Polygon_ID & " and Treatment_Season= '" & Actual_Polygon_Season & "' and Treatment_Type= '" & Actual_Polygon_Treatment & "' and Project_Name = '" & Actual_Polygon_Project_Name & "' and Polygon_Area = " & Actual_Polygon_Area.Value & " and Treatment_Year = " & Actual_Polygon_Year, _
            MyConnection, adOpenDynamic, adLockOptimistic

    If Not rsFS_Actual_Polygon.EOF Then
        MsgBox "The combination of Polygon ID, treatment-year, treatment-season, and treatment type already exist.  Please check the combination."
        Actual_Polygon_Year.SetFocus
    Else
        With rsFS_Actual_Polygon
        .AddNew
            ![PolygonID] = Actual_Polygon_ID
            ![Project_Name] = Actual_Polygon_Project_Name
            ![Polygon_Area] = Actual_Polygon_Area.Value
            ![Treatment_Year] = Actual_Polygon_Year
            ![Treatment_Season] = Actual_Polygon_Season
            ![Treatment_Type] = Actual_Polygon_Treatment
            ![Polygon_Notes] = Actual_Polygon_Notes
        .Update
        End With

        Actual_Polygon_Record.Requery
        Actual_Polygon_New_Click
    End If

如果需要，我可以 post 其余代码，我只是不想 post 一大块。

Answer 1

您可以使用 .ItemsSelected 和 .ItemData 方法查找 selected 行的值并将其从列表框传递到 table。

这是一个相当典型的列表框控件的使用，比处理多select控件要容易一些，但仍然有点麻烦。您将需要创建一个 For Each...Next 循环来收集列表框中 selected 行的行号并保存到一个变量中。然后将该变量用作 .ItemData 方法的参数 return 该 select 行的绑定列值。

这篇 MSDN 文章应该有您需要的一切。

编辑： 虽然上述解决方案适用于多个和单个 select 列表框，但对于单个 select 列表框有更方便的方法：

Dim i as Integer
i = Me!Actual_Polygon_Area.ListIndex
If i = -1 Then
  MsgBox "No item has been selected"
  Exit Sub
End If
'Do above prior to `WITH` loop
...'Then in your `WITH` loop:
![Polygon_Area] = Actual_Polygon_Area.ItemData(i)

存储由行源查询生成的列表框值

Storing Listbox Value Generated by a Row Source Query

database

ms-access

vba

ms-access-2010