关于编辑窗体的问题

流星　发表于：2015-04-19 21:32:10 　

代码中[ & str1 & ]在执行时出错，请大神帮忙！

Public Sub btnEdit_Click()

On Error Resume Next

Dim int1 As Integer

Dim str1 As String

Dim frm1 As String

Select Case Me.sfrList.Value

Case 0

int1 = 1

frm1 = "frm合同主表_Edit"

str1 = "序号"

Case 1

int1 = 2

frm1 = "frm合同明细_Edit"

str1 = "关单号"

End Select

If Me.Controls("child" & int1).Form.CurrentRecord < 1 Then

Exit Sub

End If

Me.Controls("child" & int1).SetFocus

RunCommand acCmdSelectRecord

DoCmd.OpenForm FormName:=frm1, _

DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _

OpenArgs:=Me.Controls("child" & int1)![ & str1 & ]

End Sub

金宇发表于：2015-04-19 22:49:16

OpenArgs:=Me.Controls("child" & int1)![ & str1 & ] 改为如下

OpenArgs:=Me.Controls("child" & int1)![str1] 试试。

流星发表于：2015-04-19 23:13:33

显示查不到，字段“str1”

流星发表于：2015-04-19 23:51:34

终于解决了，哈哈！

1、把 str1 = "序号" 改成 str1 = Me.Child1![序号]

2、OpenArgs:=Me.Controls("child" & int1)![ & str1 & ] 改成 OpenArgs:=str1

总记录：3篇页次：1/1 9 1 :

Access交流中心