SetFocus似乎不起作用。 [英] SetFocus Doesnt Seem to be Working.
问题描述
Private Sub SupplierSKUCode_AfterUpdate()
如果是Nz(DLookup(SupplierSKUCode,tblProduct,SupplierSKUCode =''"& _
Me.SupplierSKUCode&"''")," zzzz")<> " ZZZZ"然后MsgBoxSupplierSKUCode已经存在。,vbCritical
如果MsgBox(重复记录。_
& vbCrLf& vbCrLf& ;你想要重复记录吗?_
,vbYesNo,所做的改变......= vbYes然后
Me.ProductDescription。 SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
结束如果
''测试控件是否包含文本
如果IsNull(Screen.ActiveControl)= False那么
''将文本转换为正确的案例
Screen.ActiveControl = StrConv(Screen.ActiveControl,vbUpperCase)
结束如果
结束子
设定的焦点似乎不起作用,请帮我解释我的编码错误.tnx
Private Sub SupplierSKUCode_AfterUpdate()
If Nz(DLookup("SupplierSKUCode", "tblProduct", "SupplierSKUCode=''" & _
Me.SupplierSKUCode & "''"), "zzzz") <> "zzzz" Then MsgBox "SupplierSKUCode Already Exist.", vbCritical
If MsgBox("Duplicate Record." _
& vbCrLf & vbCrLf & "Do you want to have Duplicate Record?" _
, vbYesNo, "Changes Made...") = vbYes Then
Me.ProductDescription.SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
End If
''Test if control contains text
If IsNull(Screen.ActiveControl) = False Then
''convert text to Proper Case
Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase)
End If
End Sub
The set focus doesnt seem to work, please help me whats wrong with my coding..tnx
推荐答案
Private Sub SupplierSKUCode_AfterUpdate()
如果是Nz(DLookup(SupplierSKUCode,tblProduct,SupplierSKUCode =''" &安培; _
Me.SupplierSKUCode& ",zzzz)<> " ZZZZ"然后MsgBoxSupplierSKUCode已经存在。,vbCritical
如果MsgBox(重复记录。_
& vbCrLf& vbCrLf& ;你想要重复记录吗?_
,vbYesNo,所做的改变......= vbYes然后
Me.ProductDescription。 SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
结束如果
''测试控件是否包含文本
如果IsNull(Screen.ActiveControl)= False那么
''将文本转换为正确的案例
Screen.ActiveControl = StrConv(Screen.ActiveControl,vbUpperCase)
结束如果
结束子
设定的焦点似乎不起作用,请帮我解释我的编码错误..tnx
Private Sub SupplierSKUCode_AfterUpdate()
If Nz(DLookup("SupplierSKUCode", "tblProduct", "SupplierSKUCode=''" & _
Me.SupplierSKUCode & "''"), "zzzz") <> "zzzz" Then MsgBox "SupplierSKUCode Already Exist.", vbCritical
If MsgBox("Duplicate Record." _
& vbCrLf & vbCrLf & "Do you want to have Duplicate Record?" _
, vbYesNo, "Changes Made...") = vbYes Then
Me.ProductDescription.SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
End If
''Test if control contains text
If IsNull(Screen.ActiveControl) = False Then
''convert text to Proper Case
Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase)
End If
End Sub
The set focus doesnt seem to work, please help me whats wrong with my coding..tnx
为什么你设定焦点了吗?
Why are you setting the focus?
Re: SetFocus似乎不起作用。
引用:
最初发布者rockdc1981
私有子供应商SKKode_AfterUpdate()
如果是Nz(DLookup(SupplierSKUCode,tblProduct,SupplierSKUCode =''" &安培; _
Me.SupplierSKUCode& ",zzzz)<> " ZZZZ"然后MsgBoxSupplierSKUCode已经存在。,vbCritical
如果MsgBox(重复记录。_
& vbCrLf& vbCrLf& ;你想要重复记录吗?_
,vbYesNo,所做的改变......= vbYes然后
Me.ProductDescription。 SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
结束如果
''测试控件是否包含文本
如果IsNull(Screen.ActiveControl)= False那么
' '将文本转换为正确的案例
Screen.ActiveControl = StrConv(Screen.ActiveControl,vbUpperCase)
结束如果
结束子
设定的焦点似乎不起作用,请帮我解释我的编码错误.tnx
为什么要设置焦点?
如果用户从提示中选择否,则撤消命令将清除表单,但我的诅咒或是在下一个字段,
Re: SetFocus Doesnt Seem to be Working.
Quote:
Originally Posted by rockdc1981
Private Sub SupplierSKUCode_AfterUpdate()
If Nz(DLookup("SupplierSKUCode", "tblProduct", "SupplierSKUCode=''" & _
Me.SupplierSKUCode & "''"), "zzzz") <> "zzzz" Then MsgBox "SupplierSKUCode Already Exist.", vbCritical
If MsgBox("Duplicate Record." _
& vbCrLf & vbCrLf & "Do you want to have Duplicate Record?" _
, vbYesNo, "Changes Made...") = vbYes Then
Me.ProductDescription.SetFocus
Else
Me.SupplierSKUCode.SetFocus
DoCmd.RunCommand acCmdUndo
Me.SupplierSKUCode.SetFocus
End If
''Test if control contains text
If IsNull(Screen.ActiveControl) = False Then
''convert text to Proper Case
Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase)
End If
End Sub
The set focus doesnt seem to work, please help me whats wrong with my coding..tnx
Why are you setting the focus?
If user selects No from the prompt Undo command will clear the form but my cursor is on the next field,
这篇关于SetFocus似乎不起作用。的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!