主题：代碼

提问要说明代码设置在什么事件，想要达到的目的。

就这个问题而已，如果你是要查找符合条件的行，代码应该是：

 

If e.sender.Value IsNot Nothing Then
    Dim wz As Integer
    wz = Tables("表名").FindRow("學生編號 = '"& e.sender.Value &"'",0,False )
    If wz >= 0 Then
        Tables("表名").Position = wz
    Else
        messagebox.show ("指定學生不存在,請確認同學的學生編號後重新輸入")
    End If
End If

贴出代码才能帮你分析原因的