编码错在哪里

qiecaiban　发表于：2015-12-16 11:25:02 　

書籍編号	書名	類別ID	作者	出版社ID	単価	進書日期
25	电脑新时代-6光盘	2	UNKNOWN	1	5	2002/07/08
21	VISUALBASIC5.0教程	3	SteveBrown	2	28	2001/09/28
22	CHIP-01-08	1	电子计算机与外部设备期刊社	3	16.8	2001/09/28
28	CHIP-02-07光盘	2	电子计算机与外部设备杂志社	3	5	2002/07/13

想用代码做一个查询

在書名里面输入文字点击查询就从子窗口里面调出来。

我自己照网上学编得程序是

Private Sub コマンド4_Click()
On Error GoTo Err_コマンド4_Click

Dim strWhere As String
strWhere = ""
If Not IsNull(Me.書名) Then
strWhere = strWhere & "([書名] like '" & Me.書名 & "' )AND "
End If

Me.A.Form.Filter = strWhere
Me.A.Form.FilterOn = True

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:
MsgBox Err.Description
Resume Exit_コマンド3_Click
End Sub

可是调不出来

请问程序错在哪里

正确的该怎么写

Top

zhaoyoulong 发表于：2015-12-16 12:03:26

Dim strWhere As String

If Not IsNull(Me.書名) Then strWhere = "[書名] like '*" & Me.書名 & "*' "

Top

qiecaiban 发表于：2015-12-16 12:29:37

谢谢你的回复我照你说的做了

Private Sub コマンド4_Click()

On Error GoTo Err_コマンド4_Click

Dim strWhere As String

If Not IsNull(Me.書名)
Then strWhere = "[書名]like'*"&Me.書名 & "*' "
End If

Me.A.Form.Filter = strWhere
Me.A.Form.FilterOn = True

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:
MsgBox Err.Description
Resume Exit_コマンド3_Click

End Sub

还是不行噢而且这两行还变成了红色

Top

qiecaiban 发表于：2015-12-16 12:30:04

Private Sub コマンド4_Click()
On Error GoTo Err_コマンド4_Click

Dim strWhere As String

If Not IsNull(Me.書名)
Then strWhere = "[書名]like'*"&Me.書名 & "*' "
End If

Me.A.Form.Filter = strWhere
Me.A.Form.FilterOn = True

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:
MsgBox Err.Description
Resume Exit_コマンド3_Click
End Sub

Top

qiecaiban 发表于：2015-12-16 12:46:00

大神你好

我找下面的做了

出来了

谢谢

Private Sub コマンド2_Click()

Dim strWhere As String
strWhere = ""

If Not IsNull(Me.書名) Then
strWhere = "[書名] like '*" & Me.書名 & "*'"
End If

Me.A.Form.Filter = strWhere
Me.A.Form.FilterOn = True

End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

编码错在哪里