求助：如何恢复用前辍~Tmplcp命名窗体？

fnsmydyang

　　　有些窗体设计完成后，为了不让别人看见，在窗体名称前加上~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

怎么没有人来回答呢，自已顶一下.

luhao

2# fnsmydyang
坛中，有人讲解过，快去查一查..........

fnsmydyang

这个方法行不通，怎么办？

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

好像看到过