请教

yang7512

请教:我在文本框更改事件中加入命定按钮所执行的代码(即文本框内容一发生变化(每输入一个按键),就重新建立查询1,列表5内容也更随查询内容变化而变化(就像执行命定按钮一样)),谢谢!!!

竹笛

你的问题描述得不清楚。可以！

tmtony

试试在文本框的change 事件中调用按钮事件

yang7512

这时源代码运行不能正确运行,见附件)
Private Sub 文本1_Change()
Dim db As Database
Dim qdf As QueryDef
Dim strsql As String

On Error Resume Next
   Set db = CurrentDb
   DoCmd.DeleteObject acQuery, "查询1"
   Set qdf = db.CreateQueryDef("查询1")
   strsql = "SELECT 表2.姓名, 表2.职业 " _
         & "FROM 表2 " _
       & "WHERE (((表2.姓名) Like '" & Me.文本1 & "*')) " _
       & "ORDER BY 表2.姓名;"
   qdf.SQL = strsql
DoCmd.Requery "列表5"


   Set qdf = Nothing
   Set db = Nothing



End Sub

yang7512

文件下载这时源代码运行不能正确运行,见附件)
Private Sub 文本1_Change()
Dim db As Database
Dim qdf As QueryDef
Dim strsql As String

On Error Resume Next
   Set db = CurrentDb
   DoCmd.DeleteObject acQuery, "查询1"
   Set qdf = db.CreateQueryDef("查询1")
   strsql = "SELECT 表2.姓名, 表2.职业 " _
         & "FROM 表2 " _
       & "WHERE (((表2.姓名) Like '" & Me.文本1 & "*')) " _
       & "ORDER BY 表2.姓名;"
   qdf.SQL = strsql
DoCmd.Requery "列表5"


   Set qdf = Nothing
   Set db = Nothing


End Sub

tmtony

"WHERE (((表2.姓名) Like '" & Me.文本1 & "*')) " _
改成"WHERE (((表2.姓名) Like '" & Me.文本1.Text & "*')) " _
试试

yang7512

谢谢您!!!