自动为窗体和报表添加代码并设置右键
来源:百度文库 编辑:神马文学网 时间:2024/04/29 18:26:25
自动为窗体和报表添加代码并设置右键
正 文:
'Public Function gfuncTransFrmAndRpt()Dim ctr As Control
Dim strInfo(30, 7) As String
Dim iCnt As Integer
Dim i As Integer
Dim rpt As Report
dim frm as Form
Dim mdl As Module
Dim lngCount As Long, lngEndProc As Long, lngBodyLine As Long, lngStartLine As Long
Dim strProcName As String
Dim strNote As String
On Error Resume Next
Set rpt = Screen.ActiveReport
'If InStr(rpt.Tag, "..") > 0 Then Exit Function
Dim aoj As AccessObject
'设置所有窗体的右键菜单(或禁用),并自动添加初始化代码到窗体的打开事件中
For Each aoj In CurrentProject.AllForms
DoCmd.OpenForm aoj.Name, acDesign,,,,acHidden
Set frm = Forms(aoj.Name)
frm.ShortcutMenu =False
'frm.ShortcutMenu =True '如果要设置有右键菜单,请使用这两句
'frm.ShortcutMenuBar = "erpRpt"
Set mdl = rpt.Module
lngCount = 0
strProcName = "Form_Open"
lngCount = mdl.ProcCountLines(strProcName, vbext_pk_Proc)
If lngCount > 0 Then Err.Number = 0
If Err.Number <> 0 Then lngCount = 0
If lngCount = 0 Then
mdl.CreateEventProc "Open", "Form"
End If
lngCount = mdl.ProcCountLines(strProcName, vbext_pk_Proc)
lngStartLine = mdl.ProcStartLine(strProcName, vbext_pk_Proc)
lngBodyLine = mdl.ProcBodyLine(strProcName, vbext_pk_Proc)
lngEndProc = (lngBodyLine + lngCount - 1) - Abs(lngBodyLine - lngStartLine)
If Not mdl.Find("glInitRptStyle Me", 0, 0, mdl.CountOfLines, 300) Then
mdl.InsertLines lngBodyLine + 1, vbTab & "glInitFrmStyle Me '调用通用窗体初始化过程 "
End If
DoCmd.Close acForm, aoj.Name, acSaveYes
Next
'设置所有报表的右键菜单(或禁用),并自动添加初始化代码到报表的打开事件中
For Each aoj In CurrentProject.AllReports
DoCmd.OpenReport aoj.Name, acViewDesign
Set rpt = Reports(aoj.Name)
rpt.ShortcutMenuBar = "erpRpt"
Set mdl = rpt.Module
lngCount = 0
strProcName = "Report_Open"
lngCount = mdl.ProcCountLines(strProcName, vbext_pk_Proc)
If lngCount > 0 Then Err.Number = 0
If Err.Number <> 0 Then lngCount = 0
If lngCount = 0 Then
mdl.CreateEventProc "Open", "Report"
End If
lngCount = mdl.ProcCountLines(strProcName, vbext_pk_Proc)
lngStartLine = mdl.ProcStartLine(strProcName, vbext_pk_Proc)
lngBodyLine = mdl.ProcBodyLine(strProcName, vbext_pk_Proc)
lngEndProc = (lngBodyLine + lngCount - 1) - Abs(lngBodyLine - lngStartLine)
If Not mdl.Find("glInitRptStyle Me", 0, 0, mdl.CountOfLines, 300) Then
mdl.InsertLines lngBodyLine + 1, vbTab & "glInitRptStyle Me '调用通用报表初始化过程 "
End If
DoCmd.Close acReport, aoj.Name, acSaveYes
Next
End Function
自动为窗体和报表添加代码并设置右键
右键添加“复制到文件夹”和“移动到文件夹”
将RichTextBox设置为自动换行
为blog添加反向链接代码
添加右键菜单
如何添加右键菜单?
水晶报表分页并自动插入空白行_.Net文摘_开发文摘_软件开发_天新网
让adsl连接建立后自动添加网关,并自动把ip同步到3322.org - fanqiang...
windows右键设置
Windows右键菜单的添加
添加右键菜单--操作系统爱好者
右键添加表情方法图解
IE右键添加QQ表情
怎么把宽带连接设置为自动连接
为博客添加rss订阅代码(asp)
为博客添加RSS订阅代码(ASP)
为图片添加移动背景图的效果与代码
禁止右键代码
禁止右键代码
如何将自己的代码自动添加版权信息 - 捕捉梦想 - 博客园
如何将自己的代码自动添加版权信息 - 捕捉梦想 - 博客园
XP右键扩展设置1.0【为你打造更方便、更人性化的右键】MACD股市技术分析俱乐部
设置电脑自动开、关机并播放音乐提醒你起床的方法(转)
设置电脑自动开、关机并播放音乐提醒你起床的方法(转)