请教：如何在子窗体中新增记录时自动产生序号

todaynew

真是不好意思，经测试好象还是不行，可否帮忙在示例中处理一下，感激！
jackysu78 发表于 2009-5-11 16:39

jackysu78

谢谢！

Henry D. Sy

Private Sub Form_Current()
    Dim a As Integer
    a = DCount("*", "表2")
    If NewRecord Then
        Me.no.DefaultValue = a + 1
    End If
End Sub

Henry D. Sy

或者直接
Private Sub Form_Current()
    Dim a As Integer
    a = DCount("*", "表2")
    If NewRecord Then
        Me.no = a + 1
    End If
End Sub

jackysu78

谢谢版主！
以上两种方法均可达成，因楼上版主上传的文件好象无法解压，所以再次说明一下，有两个不同意见供参考！
1、为了保证同一ID序号连续，故需增加dcount()的分组条件
2、事件换成No的进入，或者其他可编辑字段的更新后事件较好

1. Private Sub no_Enter()
   
2. 'Me.no.Value = Me.Form.CurrentRecord
   
3.     Dim a As Integer
   
4.     a = DCount("*", "表2", "id =" & [id] & "")
   
5.     If NewRecord Then
   
6.         Me.no = a + 1
   
7.     End If
   
8. End Sub

复制代码