[分享]在指定位置插入记录

Trynew

游客，如果您要查看本帖隐藏内容请回复

accesss不是Excel，所有记录都是插入到最后面然后根据关键字排序。如果需要自定义记录顺序，可以增加一个排序字段（最好不要调整关键字字段），通过手工调整排序字段序号，也可以通过插入记录获取数据表中当前选定记录的排序字段序号用程序进行处理，并以此字段排序，把插入记录显示在适当的位子。

下面一段代码放在窗体的成为当前事件中，可实现数据表在当前记录前插入新记录。条件是要有“序号”字段并以此字段排序：

Private Sub Form_Current()
    If Me.序号 <> 0 Then
        If Me.CurrentRecord <> 1 Then Me.Tag = Me.序号
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE tem SET tem.序号 = [序号]+1 WHERE tem.序号>" & (Me.Tag - 1)
        DoCmd.RunSQL "INSERT INTO tem(序号) VALUES (" & (Me.Tag) & ")"
        Me.Requery
        Me.RecordsetClone.FindFirst "序号=" & (Me.Tag)
        Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
End Sub

chenwm1973

学习[:50]

tmtony

Trynew好久未出山了, 别来无恙...
一上来就出精品了
我刚好最近也在为这个烦恼, 也是使用近似的方法来实现, 客户就是拿excel 来说Access, 没辙

Trynew

站长好！近来确实是有好多不顺心的事，但汶川大地震把我震醒了，特别是“可乐男孩”那豁达及乐观的表现，让我觉得我这点鸟事简直就自寻烦恼：]
如果我的帖子能够让几个网友得到启发，就是我最大的欣慰。
再次向站长、朱总及那些在此坚持的老朋友致敬[:11] ，是你们的坚持，才让我们有这么好的交流平台！

t小宝

受教受教[:24]

fswxs

要用菜单上的插入新记录[:31]

5988143

前辈作品!学习了![:50]

goto2008

[:24]

tmtony

原帖由 Trynew 于 2008-6-6 16:59 发表
站长好！近来确实是有好多不顺心的事，但汶川大地震把我震醒了，特别是“可乐男孩”那豁达及乐观的表现，让我觉得我这点鸟事简直就自寻烦恼：]
如果我的帖子能够让几个网友得到启发，就是我最大的欣慰。
再次向站长 ...

希望不顺心的事尽快过去. trynew兄的实例 是精品中的精品, 多年来 都是人见人爱.
许久未见上来, 但看了新作品,宝刀更锋.

Trynew

问：用ACCESS创建表时数据类型中有自动编号这一选项，但是是无法编辑的。我现在需要制作一个窗体在插入记录时自动为记录添加序号，并且能够实现通过指定序号的方法将后加的记录插入到先前已有的记录之间。
答：把一楼程序中的3处Me.Tag都加上1，改为以下程序即可。
Private Sub Form_Current()
    If Me.序号 <> 0 Then
        If Me.CurrentRecord <> 1 Then Me.Tag = Me.序号
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE tem SET tem.序号 = [序号]+1 WHERE tem.序号>" & (Me.Tag )
        DoCmd.RunSQL "INSERT INTO tem(序号) VALUES (" & (Me.Tag+1) & ")"
        Me.Requery
        Me.RecordsetClone.FindFirst "序号=" & (Me.Tag+1)
        Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
End Sub