access like

程式碼如下

Private Sub C查詢_Click()

Dim VM客戶編號 As String

Dim VM客戶名稱 As String

Dim VM業務編號 As String

VM客戶編號 = InputBox("輸入客戶編號")

VM客戶名稱 = InputBox("輸入客戶名稱")

VM業務編號 = InputBox("輸入業務編號")

Me.Filter = "客戶編號 LIKE '" & VM客戶編號 & "*' And 客戶名稱 LIKE '" & VM客戶名稱 & "*' And 業務編號 LIKE '" & VM業務編號 & "*'"

Me.FilterOn = True

DoCmd.OpenForm "客戶資料1", acFormDS

End Sub

我的問題如下

1. 在 inputbox 時 ,皆直接按 <enter>輸入

所以 filter 應該變成 like "*" ,萬用字元,查所有的資料

2. 但是為什麼業務編號 "沒有輸入或是空白的" 沒有顯示?

1 個解答

評分
  • 7 年前
    最佳解答

    版大好:

    資料空白__比對_使用nz(_)函數

    Me.Filter = "客戶編號 LIKE '" & VM客戶編號 & "*' And 客戶名稱 LIKE '" & VM客戶名稱 & "*' And 業務編號 LIKE '" & VM業務編號 & "*'"

    改如下_

    Me.Filter = "客戶編號 LIKE '" & VM客戶編號 & "*' And 客戶名稱 LIKE '" & VM客戶名稱 & "*' And Nz(業務編號) LIKE '" & VM業務編號 & "*'"

    試試_

    希望有幫上忙.

還有問題?馬上發問,尋求解答。