InStr([start, ]string1, string2[, compare])

　　这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：

　　　pos=InStr(1,"abcdefg","cd")

　　则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

　　下面举例说明：

　　放置一个文本框TEXT1供用户输入文本或调入文本文件，用来做在其中查找文本的验证，放置另一个文本框TEXT2供用户输入要查找的字符串，放置两个命令按钮，Command1、Command2，其标题分别为“查找”、“查找下一个”。

　　在窗体的总体声明部分写如下代码 ：

　　　Option Explicit '定义目标位置变量
　　　Private TargetPosition As Integer

　　　 '编写一个查找函数
　　　Private Sub FindText(ByVal start_at As Integer)
　　　Dim pos As Integer
　　　Dim target As String
　　　'获取用户输入的要查找的字符串
　　　target = text2.Text
　　　pos = InStr(start_at, text1.Text, target)
　　　If pos > 0 Then
　　　　　　'找到了匹配字符串
　　　　　　TargetPosition = pos
　　　　　　text1.SelStart = TargetPosition - 1
　　　　　　'选中找到的字符串
　　　　　　text1.SelLength = Len(target)
　　　　　　text1.SetFocus
　　　Else '没有找到匹配的字符串
　　　MsgBox "没找到！"
　　　text1.SetFocus
　　　End If
　　　End Sub

　　　'双击“查找”命令按钮:
　　　Private Sub command1_Click() '从第一个字符处开始查找
　　　FindText 1
　　　End Sub

　　　'双击“查找下一个”按钮：
　　　Private Sub command2_Click() '从当前位置继续查找
　　　FindText TargetPosition + 1
　　　End Sub

　　运行程序，在文本框1中输入一些字符串，在文本框2中输入要查找的字符串，单击 “查找”按钮和“查找下一个”按钮进行验证。

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换