标题: 求助：如何恢复用前辍~Tmplcp命名窗体？ [打印本页] 作者: fnsmydyang 时间: 2009-9-13 13:28 标题: 求助：如何恢复用前辍~Tmplcp命名窗体？ 有些窗体设计完成后，为了不让别人看见，在窗体名称前加上~tmplcp,结果是隐藏了，但再要修改设计如何再显示呢？
用代码如何重新命名？
dim frm as form
dim dbs as database
dbs=currentdb
for each frm in dbs.forms
if left(frm.name,7)="~temlcp" then
如何重新命名？
end if
next
谢谢指教。作者: fnsmydyang 时间: 2009-9-13 21:07
怎么没有人来回答呢，自已顶一下.作者: luhao 时间: 2009-9-14 07:05 2#fnsmydyang
坛中，有人讲解过，快去查一查..........作者: fnsmydyang 时间: 2009-9-14 21:20
这个方法行不通，怎么办？
Private Sub Command0_Click()
Dim frm As Object
For Each frm In CurrentProject.AllForms
If Left(frm.Name, 7) = "~tmplcp" Then
DoCmd.Rename Mid(frm.Name, 8), acForm, frm.Name
End If
Next
End Sub作者: shenxb 时间: 2009-9-21 11:49
好像看到过