ACCESS数据在主表新增记录次表自动编号

石磊　发表于：2015-06-02 14:53:00 　

access 我做一个新增窗口在A表【工程编号】里新增一条记录 ”2015P03“ 那B表的【档案编号】里中根据A表的【工程编号】中的第4个字符"P" 自动生成 "普-15-01"
注：工程编号有四类分别与档案编号关系：
P=普
G=高
Z=专
J=精

工程编号是：年份&类别&当前类的序列号
档案编号是：类别&-&年份&-&当前类的序列号

如下：
2015P03    普-15-01
2015P04    普-15-02
2015P08    普-15-03

Top

石磊发表于：2015-06-02 15:03:41

最好可以在平台编辑窗口点保存的同时完成以上问题谢谢

Top

缪炜发表于：2015-06-02 16:49:51

    Dim StrFirst, gStr As String
    Dim MaxID As String
    Dim currentID As String
    StrF = Mid(Me.工程编号, 5, 1)
    Select Case StrF
    Case "P"
        gStr = "普"
    Case "G"
        gStr = "高"
    Case "Z"
        gStr = "专"
    Case "J"
        gStr = "精"
    End Select
    MaxID = DMax("档案编号", "表名", "档案编号 like '" & gStr & "*'")
       If Nz(MaxID) <> "" Then
        currentID = gStr & "-" & Year(Date) & "-" & Format(Val(Right$(MaxID, 2) + 1), "00")
    Else
         currentID = gStr & "-" & Year(Date) & "-" & "01"
    End If

Me.档案编号= currentID

Top

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

Access交流中心

ACCESS数据在主表新增记录次表自动编号