请教~查询问题

kpsimon

A表客户名称有 1、张三电厂有限公司 2、张三水厂有限公司
在窗体建一个文本框 和一个按键，如何实现以下查询

在窗体文本框输入：张三 按回车后，在窗体显示张三电厂有限公司，再安一次回车显示张三水厂有限公司呢??



请帮帮忙谢谢！

aslxt

在窗体增加Check控件,命名为Check4,并写代码如下:
Option Compare Database

Private Sub Command3_Click()
  If Check4.Value = False Then
    Me.RecordSource = "select * from 表1 where 客户名称 like '*" & Text1 & "*'"
    Check4.Value = True
  Else
    DoCmd.GoToRecord , , acNext
  End If
End Sub

Private Sub Form_Load()
  Check4 = False
  Me.RecordSource = "select * from 表1 "
  Command3.Default = True
End Sub

aslxt

还有:
Private Sub Text1_AfterUpdate()
  Check4.Value = False
End Sub

kpsimon

2# aslxt


你能帮我做他实例上传上来吗??

Henry D. Sy

如果只有两条记录，何必搞这么复杂，只要点击记录导航就可以了

kpsimon

5# Henry D. Sy
版主先谢谢你的回复

不是两条的。只是做个例子。

我就是想做成像CTRL+F 查询一样。
你能帮帮忙吗？谢谢

aslxt

附件

kpsimon

问题得到解决太感谢你了。

aslxt

不用谢,我也是后学,回想前一段时间自学,很是辛苦.发誓要帮助新手解决问题!

kpsimon

9# aslxt


我还有一个问题想你帮帮忙的

http://www.office-cn.net/vvb/thread-72845-1-1.html