我有一个带有列表框的表单。列表框显示SELECT查询的结果,我希望用户能够按下按钮来删除列表框中选定的项。下面是我想在用户单击按钮时运行的查询。
DELETE *
FROM Client
WHERE
(([Client].[ClientID])=[Forms]![UpdateDeleteClientInformationForm]![ClientFullNameListBox]);
问题是,我不确定如何从列表框中的选定内容访问当前的ClientID。如何访问SQL查询中选定项的列表框中每一列中的数据?
目前,我对Access并不是特别满意。
添加:我在MS 2010的列表框中使用这个查询,在我的列表中选择不同的值(在本例中,用于AOM):
SELECT First([Exhibit Recording].ReferenceNo) AS FirstOfReferenceNo, [Exhibit Recording].AOM
FROM [Exhibit Recording]
GROUP BY [Exhibit Recording].AOM;
它工作得很好,只是我将它与AOM文本框连接,以便用此VB代码输入数据:
Private Sub txtAOM_AfterUpdate()
If (VBA.Strings.Len(txtAOM
如何突出显示MS-Access列表框行?我使用的是MS-Access 2007。我希望通过VBA突出显示多列列表框的第一行。我试过Me.LstSample.Selected(0) = True,但它不起作用。
代码:
Private Sub LstStation_AfterUpdate()
With Me.LstSample
If IsNull(Me.LstStation) Then
.RowSource = ""
Else
.RowSource = _
"SELECT * FROM Samples
在MS Access 2016中,是否有可能确定在单击列表框时选择了哪一行。
我试过这样的方法
With Me.lstSector
For lngRow = 0 To .ListCount - 1
If .Selected(lngRow) Then
End If
Next lngRow
End With
在列表框的Click事件上,但Access似乎没有注册任何行。
我正在尝试将这些项目从一个列表框(总共19)转移到MS Access数据库。
以下代码
For i = 0 To Me.lstResourceTypes.Items.Count - 1
command.Parameters.AddWithValue("@ResourceType", lstResourceTypes.Items(i).ToString)
MsgBox(lstResourceTypes.Items(i).ToString)
command.ExecuteNonQuery()
我使用查询来计算各种供应商信息(平均准备时间、该供应商的总支出、平均价格等)。所有输出都显示在Ms ACCESS中的窗体列表框中。
一个计算数的例子:
如何将这些查询的输出格式化为四舍五入为两个小数?我一直在玩列表框设置,但在那里找不到它。我相信我必须在查询本身中这样做,但我不确定如何做到。
上述号码的查询代码:
SELECT Avg([Item Master].PlannedLeadTime) AS AverageLeadTime
FROM [Item Master]
WHERE ((([Item Master].DateStamp)>=[Forms]![History Su
我正在用存储过程中的结果填充MS Access 2010表单上的列表框。我用来填充列表框的代码如下:
Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("PassThroughQuery")
qdf.SQL = "EXEC Search '" & searchValue & "'"
Set rs = qdf.OpenRecordset
While Not rs.EOF
Me.searchResultsBox.AddItem rs("name"
我有access 2007,我想使用列表框List191更新文本字段eng,该列表框包含3个值value1、value2、value3
当我单击此列表并选择一个或两个值时,我希望将这个值作为文本在该文本字段中分隔(,)
类似于:
Private Sub List191_Click()
Form_tbltest.[eng].Value = Form_tbltest.[eng].Value &","& Form_tbltest.List191.value
End Sub
这个代码不适用于我,有什么建议吗??
我在MS Access中有一个列表框,它从查询中检索结果。第四列包含相当长的文本,我想知道是否可以添加额外的代码来将文本包装在列中。
下面是在列表框中加载我的查询结果集的一些代码
Private Sub Form_Load()
Dim NbrCol As Integer
Dim db As DAO.Database
Set db = CurrentDb()
NbrCol = db.QueryDefs("QryRestructuringToDo").Fields.Count
Restructuring_List.RowSource = ""
Restruct
我有一个带有程序列表框的MS访问表单。程序代码存储在表单中。还有一个按钮。单击按钮时,我希望它在列表框中循环,并从选定的项中运行过程。我使用Call和Application.Run调用过程,但这两种方法都出现了错误。
调用‘编译错误:预期的子、函数或Proeprty
Application.Run 'MS Access找不到“过程名称”
Private Sub button_Click()
With Me.listbox1
For Each varItem In .ItemsSelected
currSub = .ItemData(varItem)