请问如何做可以输入密码掩码的类似inputbox的函数

charr

在写程序的时候，我需要在一个具体操作前跳出个输入框输入密码和先前的操作员比对，本来可以用inputbox的，可是inputbox不可以带密码掩码，请问各位大虾有什么好办法解决？

我现在想自己写一个类似inputbox可以带密码掩码的函数，建立了一个输入密码的窗体，
在函数中用docmd.openform("密码")打开，还没有等输入密码的窗体运作，函数就执行到了后面的语句，请问怎么解决等输入密码窗体运行完在执行后面的语句的方法？

130050007

good

charr

多谢大家的指教，使我受益非浅，不写在一个窗体里面是我担心在打开窗体和执行具体操作之间的可能有其他人操作，为了确保安全所以这样干了，呵呵，还有就是想封装成一个通用的函数，可以以后调用，不然可以在具体的输入密码的窗体里实现，只是这样就不能反复调用了，我还想问一下，是否可以在ACCESS里使用application.inputbox？

zhuyiwen

将该窗体的"模式"属性设为"是".

或

如果用的ACCESS2002,则可以用如下方式打开窗体
docmd.OpenForm "密码",,,,,acDialog

good luck! [em24]

cg1

上策：

直接写在一个窗体里面，没必要两个。
人家中国人民银行网站上都是这样做的。

下策：

用

Function IsLoaded(ByVal strFormName As String) As Boolean
' 如果指定窗体在窗体视图或数据表视图中打开，返回 True。
    Dim oAccessObject As AccessObject
   
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
         If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
End Function

isloaded函数检测密码窗体是否关闭，关闭了再自行下一句，否则一直循环

do until isloaded("密码")=false
    doevents
loop