VBA修改Access报表标题[求助]

[liswood]

想请教

想在Access报表VBA里实现
当前报表Caption等于当前记录的特定字段值。
于是写了以下代码但是无法实现。求解。

Private Sub Report_Open(Cancel As Integer)
.
.
.
Me.Caption = CStr(Me!特定字段值)
.
.
.

[liswood]

补充说明一下前半段代码如下
Private Sub Report_Open(Cancel As Integer)

If Not IsNull(Me.OpenArgs) Then
' Split OpenArgs data into separate fields
Dim argsRec() As String
argsRec() = Split(OpenArgs, "|", , vbTextCompare)
strSubName = argsRec(0)
linkMF = argsRec(1)
linkCF = argsRec(2)
fileCate = argsRec(3)
SPCate = argsRec(4)
End If

If SPCate = "S" Then
Me.RecordSource = "Print_SI"
ElseIf SPCate = "P" Then
Me.RecordSource = "Print_PI"
End If

Me.Caption = CStr(Me!TransNo)
.
.
.

[liswood]

fsk_wyf同学……你确定你是在回复这个帖子么……

[liswood]

噢……找到答案了……
应该放在Report_Load()而不是Report_Open()里面

Private Sub Report_Load()
Me.Caption = Me.[TransNo].Value
End Sub

就可以了

[dsd999]

谢谢楼主分享答案。