Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/sql-server-2005/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 访问VBA在列中设置焦点_Ms Access_Vba_Setfocus_Subforms - Fatal编程技术网

Ms access 访问VBA在列中设置焦点

Ms access 访问VBA在列中设置焦点,ms-access,vba,setfocus,subforms,Ms Access,Vba,Setfocus,Subforms,下午好 我有一个子表单(sub\u frm\u robo2)的访问权限,该子表单有一个特定列(CD\u SENHA) 在表单加载事件中,我输入了代码:(Me.sub\u frm\u robo2.Form!SENHA.InputMask=“Password”) 我试图创造一个条件,在这个专栏中 (CD_SENHA)接收焦点(Me.sub_frm_robo2.Form!SENHA.SetFocus) 数据掩码将被删除(Me.sub\u frm\u robo2.Form!SENHA.InputMask

下午好

我有一个子表单(sub\u frm\u robo2)的访问权限,该子表单有一个特定列(CD\u SENHA

表单加载事件中,我输入了代码:(Me.sub\u frm\u robo2.Form!SENHA.InputMask=“Password”

我试图创造一个条件,在这个专栏中 (CD_SENHA)接收焦点(Me.sub_frm_robo2.Form!SENHA.SetFocus

数据掩码将被删除(Me.sub\u frm\u robo2.Form!SENHA.InputMask=“”

当焦点切换到下一列时,将数据掩码返回到初始格式(Me.sub\u frm\u robo2.Form!PASSWORD=“PASSWORD”

下面是一些更好的例子

聚焦前

有焦点

聚焦后

我想代码应该是这样的

Do While Me.sub_frm_robo2.SetFocus = True
If Me.sub_frm_robo2.Form!SENHA.SetFocus Then
    Me.sub_frm_robo2.Form!SENHA.InputMask = ""
End If
Next

你能帮我吗?

好吧,我在这里没有任何帮助,但我在尝试了几次并出现了一些错误后设法解决了问题,只是在子表单的每一列中编写了一个代码,以使其正常工作。祝大家好运

Private Sub CNPJ_AF_GotFocus()

Me.Form!SENHA.InputMask = "Password"

End Sub

Private Sub SENHA_GotFocus()

Me.Form!SENHA.InputMask = ""

End Sub