Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 窗体记录修改后保存并刷新后，如何定位到刚才的记录上

窗体记录修改后保存并刷新后，如何定位到刚才的记录上

不务实　 发表于：2009-09-11 17:41:20 　
复制

窗体记录修改刷新后，回到了第一条记录上，我要回到刚才的记录上，（因为修改后只保存不刷新的话，排序会乱的）

 

Top
不务实 发表于：2009-09-11 19:56:45

自已以解决

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 19:59:53

错了是下面问题的答案

http://www.accessoft.com/bbs/showtopic.asp?id=5921

 

 

还继续求解

窗体记录修改刷新后，回到了第一条记录上，我要回到刚才的记录上，（因为修改后只保存不刷新的话，排序会乱的）



Top
andymark 发表于：2009-09-11 20:33:46

不明白你的代码为何要MOVE来MOVE去

 

修改当前记录直接select 加where参数就行了



Top
符鸿敏 发表于：2009-09-11 20:42:59
试试：在该窗体的设计视图的属性里面将“循环”设置为“当前记录”。

Top
不务实 发表于：2009-09-11 21:01:45

还继续求解

窗体记录修改刷新后，回到了第一条记录上，我要回到刚才的记录上，（因为修改后只保存不刷新的话，排序会乱的）



Top
宋青 发表于：2009-09-12 14:30:43
我是参照"报销管理系统"教程的---返回修改记录的原始定位设计的,不过当数据超过几千个的时候就有点慢了.希望有更好的方法!

Top
不务实 发表于：2009-09-12 15:04:09

是怎么设计的呀



Top
不务实 发表于：2009-09-12 21:52:18
窗体记录修改刷新后，回到了第一条记录上，我要回到刚才的记录上，（因为修改后只保存不刷新的话，排序会乱的）

Top
点燃一支烟 发表于：2009-09-13 10:05:01

你的回复字体一会大一会小，一会红一会黑，你能不能好好板书？



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

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4