สอบถามหน่อยครับ code นี้ รันใน access 2000 - 2002 ได้ แต่ทำไม ใช้กับ access 2007 ไม่ได้ครับ
Private Sub Combo83_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CODE] = " & Str(Nz(Me![Combo83], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
การเขียน vba ใน access 2007
Private Sub Combo83_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CODE] = " & Str(Nz(Me![Combo83], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub