Question

我已经从组合框中选择的特定用户名创建了一个请求历史记录表单。它只适用于以下代码。

UserName Ticket＃Req #start_date是我的列文件我放在表单的详细信息部分下。（另外我在命令按钮中加入了详细信息，因此我的每条记录显示的命令按钮都显示在搜索中）

Ticket＃是我的主键。

现在问题出在这里，我不知道从vba逻辑开始。我的命令按钮如何读取我当前的记录源Ticket＃以便我可以调用“fndEdit”表单。

实施例：我对“userA”的搜索显示了历史记录中的10条记录，如何编辑当前表单中的第5条记录，以便将我的编辑格式“frmedit”称为特定记录。

Option Compare Database
Option Explicit

'Set default record source of form
Const strsql = "SELECT Temp.userName,Temp.Recordcreated,Temp.[req#],Temp.[Ticket#],Temp.[start_date] FROM Temp"


Private Sub cbouser_Change()
Dim strFilterSQL As String
strFilterSQL = strsql & " Where [UserName] = '" & Me.cbouser & "' ORDER BY [Recordcreated] DESC;"

Me.RecordSource = strFilterSQL
'DoCmd.RunSQL strFilterSQL

End Sub

Answer 1

上面的代码应该在组合框的click事件中，你可能需要一个

Me.Requery

更改记录源后

。

将表单的“默认视图”属性设置为“连续”表单。在详细信息部分中放置一个命令按钮，标题为“编辑此记录”

按钮的点击事件

DoCmd.OpenForm "EditForm", acNormal, , "RecordId=" & Me.RecordId

由特定用户编辑来自请求历史表单的记录

1 个答案: