Question

我试图在我在Microsoft Access 2013中创建的表单中浏览记录（next和prev）。数据库连接到SQL Server 2008.首先我使用SQL加载了表的数据库：

Private Sub Form_Load()

Dim strSQL As String
Dim dbs As DAO.Database
Dim Rs As DAO.Recordset
Set dbs = CurrentDb()

strSQL = " SELECT [dbo_tblRank].* " & _
     " FROM [dbo_tblRank] "

Set Rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)

Me.rankNo.Value = Rs![rankNo]
Me.rankName.Value = Rs![rankName]
Me.rankDescription.Value = Rs![rankDescription]
Me.noOfRequiredDivings.Value = Rs![noOfRequiredDivings]

End Sub

现在我创建了一个'下一个'按钮，我想将以下字段更新为下一个值。我编写了代码（没有做任何事情）：

Private Sub btnNext_Click()

Me.Recordset.MoveNext

End Sub

我做错了什么？

Answer 1

问题是表单未绑定。因此，您必须在form_open中编写比表单/控件绑定所需的更多代码;同样地，在btnNext_Click中，您将再次编写更多代码。

重新创建记录集，在记录集中查找当前记录，然后移至下一条记录，然后从此新记录集中的新记录重新填充未绑定的控件。

Answer 2

另一种方法是让你公开记录集，这样你就不必每次都重新连接。您仍然需要编写代码来查找当前记录，以便您可以在btnNext_Click事件中移动它。

简单的方法是绑定你的表格......

浏览具有无界字段的记录

2 个答案: