好东东,知晓VBA密码不用愁!-

divineka

看看

wdq

david111111

看看

yuayua23

doubtnet

搞一下

yujingchun

[原创]超强用户试用、注册及登录系统
源码全部开放(含注册机)，希望大家多提意见，测试环境：Winxp+Access2003

  

下载 (109.97 KB)
[原创]超强用户试用、注册及登录系统

2006-6-25 18:48


对不起，有一段代码忘记加上,贴上后才发现

请在模块3中或自建一个模块，然后加上一段自定义函数代码，否则注册时找不到IsYlwjcct定义

'自定义函数 IsYlwjcct("窗体名") （如果指定的窗体打开，返回True）
Function IsYlwjcct(ByVal strFormName As String) As Boolean
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If forms(strFormName).CurrentView <> conDesignView Then
IsYlwjcct = True
End If
End If
End Function

[此贴子已经被作者于2006-6-25 12:05:06编辑过]

4f5OeqEP.bmp (350.96 KB)

下载次数:4

2006-6-25 18:43



学习中


Office中国论坛

坡芽歌书

看看

CHENWK

ytfgymq

下来试试

唐玉娥

可不可以找到数据库密码呢,若数据库密码都找不到,怎么找VBA密码?