点菜单按钮直接录入文字的方法！

xulanghui

各位大虾，这个问题经过一番摸索终于搞掂。方法是建一个宏，取SendKeys命令，在下面键击中录入文字，然后做个自定义菜单，宏拖至菜单上即可。

游客，如果您要查看本帖隐藏内容请回复

新问题：如何才能让录入文字后光标自动转为下一字段呢？宏里好像没有此功能。

老鬼

用GOTORECORD可以实现你的要求。

xulanghui

谢谢楼上的，只可惜GOTORECORD只能进行记录间的跳转，而我是要在同一条记录中，转至下一字段，有好方法吗？

zoe_yi

你的水平还不如我呢[em06]

xulanghui

谢谢楼上的直言，呵呵，我还以为你的要求是那么回事呢！至于水平嘛，我不再边学边练喽！

chinawin

[em01]关于新问题，为什么那么麻烦，回车不可以吗？

老鬼

那用GOTOCONTROL啊，基本上VBA能做到的一般功能，宏都能做到。

xulanghui

因为点了菜单按钮后，就要开始填数量，如果能点完就自动有个回车信息，那就直接输数量行了（想更方便喽）。

我在想可否点击输如382以后，过1秒钟光标自动转到下一字段，那也一样实现了，可我又不知怎样做。

xulanghui

经过sweetduck版主指点，最终完成，在子窗体/工程量代码的键释放中加入以下代码：Private Sub 工程量代码_KeyUp(KeyCode As Integer, Shift As Integer)

Static intKnm As Integer

intKnm = intKnm + 1

If intKnm = 3 Then

SendKeys "{ENTER}"

intKnm = 0

End If

End Sub再次感谢各网友及版主！另sweetduck版主也有个网站，建议去看看（http://asp5.6to23.com/u2me/welcome.asp）精彩不容错过[em01][em01]

longerth123

受教了