重复输入后，光标如何跳到相应的单元

myj_163

Private Sub 公司代码_AfterUpdate()

Dim Msg,Msg2, Style, Response, Response2,MyString


If (Not IsNull(DLookup("ID", "临时表", "公司代码='" & Me.公司代码 & "'" & " and " & "日期=" & "#" & CDate(Me.日期) & "#"))) Then
      
      

Msg = "数据重复，是否继续输入?"    ' 定义信息。

Msg2="是否跳到该单元继续输入？
Style = vbYesNo + vbCritical + vbDefaultButton2    ' 定义按钮。

Response = MsgBox(Msg, Style)
If Response = vbYes Then    ' 用户按下“是”。
    MyString = "Yes"    ' 完成某操作。
Else    ' 用户按下“否”。
    MyString = "No"
    Response2= MsgBox(Msg2, Style)
    If Response2 = vbYes Then    ' 用户按下“是”。

' 请问这里需要把光标跳到重复的单元继续输入，请问什么写

   　　Else
    Me.Undo
    SendKeys "+{tab}"
     DoCmd.GoToRecord , , acNewRec '删除新的一行，对已有的不删除

　　　End If
　　End If

End If

End Sub

例子：

临时表

  字段： id     日期        公司代码   其他

             1    2006-7-17   1223       aaa

             2   2006-7-17    1222        bbb

当输入   3   2006-7-17    1223  时， 公司代码 1223和id为1的公司代码相同、重复， 按提示  是否跳到该单元继续输入？ 按是的时候，当前“指针”跳到id为1的 其他字段 中 且光标在aaa的后面  

希望能表达的清楚

wuaza

Recordset.FindFirst "公司代码='" & Me.公司代码 & "' and 日期=" & "#" & CDate(Me.日期) & "#"
发票.SetFocus

发票.text＝发票&"/"
发票.SelStart = Len(发票)

xsbnxbq

谢谢你的支持和帮助了

myj_163

谢谢！
如果我还想在发票里添加一个斜杠符号（“/”）以示分隔，然后再输入呢。
又该如何写？

wuaza

加上这么几句：

Recordset.FindFirst "公司代码='" & Me.公司代码 & "' and 日期=" & "#" & CDate(Me.日期) & "#"
发票.SetFocus
发票.SelStart = Len(发票)

myj_163

晕死，上传了例子就没有回复了

myj_163

ding

myj_163

例子已上传

andymark

最好把例子传上来

myj_163

临时表

  字段： id     日期        公司代码   其他

             1    2006-7-17   1223       aaa

             2   2006-7-17    1222        bbb

如：现在我有另一张单 公司代码也是1223  但其他字段为ccc

此时我接着输入：

临时表



  字段： id     日期        公司代码   其他



             1    2006-7-17   1223       aaa



             2   2006-7-17    1222        bbb

             3   2006-7-17    1223

当我回车的时候 他会提示我输入重复的数据了，让我选择是否接着输入重复的单

通常就是否啦，接着提示我是否跳到该单元继续输入？ 当然是拉

这样，就出现了我希望那个光标能跳到 aaa的后面，给我接着输入ccc

结果就是

字段： id     日期        公司代码   其他



             1    2006-7-17   1223       aaa/ccc



             2   2006-7-17    1222        bbb