大大以下的程式,沒產生預期的效果:
Private Sub Combo0_AfterUpdate()
' 找出符合此控制的記錄。
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[統一編號] = '" & Me![Combo0] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
這一段大大要不要先行修改作者: celina710828 時間: 2011-4-14 22:13