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

liswood 2012-03-30 01:38:44
想请教

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

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

...全文
129 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dsd999 2012-03-31
谢谢楼主分享答案。
回复
liswood 2012-03-31
噢……找到答案了……
应该放在Report_Load()而不是Report_Open()里面

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

就可以了
回复
liswood 2012-03-30
fsk_wyf同学……你确定你是在回复这个帖子么……
回复
liswood 2012-03-30
补充说明一下前半段代码如下
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)
.
.
.
回复
相关推荐
发帖
Office开发/ VBA
创建于2007-08-27

5001

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2012-03-30 01:38
社区公告
暂无公告