Giúp tôi sửa form tìm kiếm access !!! (1 người xem)

[duhslienxo]

Tình hình là em có cái form như thế.em không biết sai đoạn code vba ở đâu mà k bấm được tất cả các nút nào hết trên form.ae giúp tôi.xin cảm ơn !!!

Private Sub cmdClose_Click()
DoCmd.Close
End Sub


Private Sub cmdSearch_Click()
On erorr GoTo errr
    Me.infoTBL_subform.Form.RecordSource = "SELECT * FROM infoTBL " & BuildFilter
    Me.infoTBL_subform.Requery
errr:
    MsgBox errr.Description
End Sub


Private Function BuildFilter() As Variant
    Dim varWhere As Variant
    Dim tmp As String
    tmp = """"
    
       
    varWhere = Null
    
    If Me.txtTenthuoc > "" Then
      varWhere = varWhere & "[Tenthuoc] like " & Me.txtTenthuoc & " AND "
      
      End If
      
    If Me.txtmasothuoc > "" Then
    varWhere = varWhere & "[Masothuoc] like " & tmp & Me.txtmasothuoc & tmp & " AND "
    End If
    
    If IsNull(varWhere) Then
       varWhere = ""
    Else
       varWhere = "WHERE" & varWhere
       
       If Right(varWhere, 5) = " AND " Then
            varWhere = Left(varWhere, Len(varWhere) - 5)
            End If
        End If
        BuildFilter = varWhere
    End Function
    
        
            
Private Sub Command11_Click()
Me.infoTBL_subform.Form.RecordSource = "SELECT * FROM infoTBL "
txtTenthuoc = ""
txtmasothuoc = ""
End Sub


Private Sub Form_Current()
cmdClear_Click
End Sub

 

[dhn46]

Bạn đưa Code, đưa hình mà không đưa dữ liệu, file lên thì người đọc chỉ biết "nhìn" thôi chứ không thể test được chương trình của bạn để đưa ra tư vấn hữu ích nhất.

Thân!

 

[duhslienxo]

file của mình đây.................................

.............................................................

 

[dhn46]

- Nguyên nhân gây lỗi của bạn là do: khi bạn tạo SubForm bạn đặt tên SubForm là "Thuốc" => Có tiếng Việt. Bạn hãy chuyển tên đó thành không dấu là các điều khiển sẽ chạy được

- Trong Code của bạn cũng có những lỗi, sau khi chạy được nút lệnh bạn sẽ tự tìm được lỗi đó