vb怎么制作查询录入程序?

按你的要求已经做好了，下载解压后就可以了。

ABCD.mdb 是数据库；

《文本框录入查询》是窗体文件，界面、代码俱全，已经测试没有问题。

《其他查询》是给你一个思路，列举了四种查询方法，有界面，代码还没有完成，因为有事，不做了。希望能够对你有帮助！

如果是帖子文字这样所有的IF都是判断一个变量，使用SELECT CASE文件是完美解决方案，在最后的CASE ELSE里面MSGBOX "全部都不满足"

图片真没办法看清楚，好像和帖子文本的不同，不是所有IF都判断一个变量，那还只有用IF判断，最后要检测所有的IF都没有满足，需要增加一个变量，按照帖子代码的框架这么写：

dim passed as boolean '定义变量

passed = false'初始化

if t1.text =xx then

t2.text=号码1

t3.text=号码2

passed = true '设置标记

end if

if t1.text =yy then

t2.text=号码3

t3.text=号码4

passed = true '设置标记

end if

'最后判断

if not passed then msgbox "全部都不满足"

利用workwheet的change方法 Private Sub Worksheet_Change(ByVal Target As Range) '''' 代码中充分利用Target这个参数和这个参数的VALUE、ROW、COLOUME等属性,用于判断正在被编辑的单元格的位置 '''' 一般还会用到application.WorksheetFunction这个对象，对象包括的成员就是EXCEL中的公式 ''''因为你没有提供具体数据，我也不好提供具体代码了 end sub

---