ปัญหา Run-time error 3075 แก้ไงครับ

[Piyawat Sasikul]

Private Sub SearchCombo()
 Dim sql As String
 sql = "SELECT*FROM SecName WHERE[NameEmp]='" & Me.Combo1 '"
Forms!Frm_SearchCombo!Frm_Search.Form.RecordSource = sql
Forms!Frm_SearchCombo!Frm_Search.Form.Requry
End Sub

Private Sub Combo1_AfterUpdate()
SearchCombo
End Sub

[สันติสุข]

ขาดบางตัวไป และควรเว้นวรรคสักหน่อยในแต่ละคำใน SQL

sql = "SELECT * FROM SecName WHERE NameEmp = '" & Me.Combo1 & "'"

และพอกำหนด .RecordSource แล้ว ระบบจะอ่านเรคอร์ดเข้ามาแสดงบนฟอร์มอยู่แล้ว ไม่จำเป็นต้องสั่ง .Requery ให้ทำงานซ้ำครับ

[Piyawat Sasikul]

ขอบคุณมากครับ คุณสันติสุข