窗体中如何取上一条和下一条的值

不务实　发表于：2009-09-08 20:32:14 　

复制

me.文本框1= (上一条的A文本框的值)

me.文本框2= (下一条的A文本框的值)

能取到上一条和下一条的记录吗?

Top

符鸿敏发表于：2009-09-08 22:14:07

可以的。请上传你自己的附件。

Top

符鸿敏发表于：2009-09-08 22:24:43

应该设计2个查询，以小于记录本身的最大自动编号(或录入时间)作为上一条记录，而以大于本身记录的最小自动编号(或录入时间)作为下一条记录，然后用 dlookup 函数就可以了。

Top

不务实发表于：2009-09-11 14:21:56

我没用自动编号,况且自动编号也没用,有时删除、插入后自动编号都不是连续的，而且我不是以它排序，

以小于记录本身的最大自动编号(或录入时间)作为上一条记录，而以大于本身记录的最小自动编号(或录入时间)作为下一条记录，都不一定是我的上一条记录

Top

不务实发表于：2009-09-11 19:57:16

自已以解决

Set Rs = New ADODB.Recordset
     StrTemp = "Select * From 凭证列表"
     Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

            Rs.MoveFirst
            For iTemp = 1 To Rs.RecordCount
                If (Rs("凭字ID") = Me![凭字ID] And Rs("凭证号码") = Me![凭证号码] And Rs("凭证日期") = Me![凭证日期]) Then
                Rs.MovePrevious
                Me.aa = Rs("凭证日期")    '取的是上一条值
                Rs.MoveNext
                Rs.MoveNext
                Me.bb = Rs("凭证日期")   '取的是下一条值
                Else
                    Rs.MoveNext
                End If
            Next iTemp

自己摸索的,与大家共享,请大家提出宝贵的意见,也许有更好的办法

Top

不务实发表于：2009-09-11 22:33:13

还是不够好

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

窗体中如何取上一条和下一条的值