行政处罚编号和拘留编号如何按年度自动生成？

无悔　发表于：2008-01-22 23:00:12 　

复制

我做了一个公安行政处罚信息系统，其中有被单处拘留的、有被单处罚款的，还有被处拘留并处罚款的。请问如何按年度从1开始自动生成行政处罚决定书编号和被拘留家属通知书编号？谢谢！

Top

钱玉炜发表于：2008-01-23 08:37:56

http://www.accessoft.com/blog/article-show.asp?userid=70&Id=1161

自动编号函数

Top

无悔发表于：2008-01-24 00:04:46

对不起，这个问题我没有讲清楚，我做的这个公安行政处罚信息系统，是想通过窗体在输入数据时自动生成各种行政处理编号。行政处理种类除了被单处拘留、被单处罚款以及被处拘留并处罚款的外，还有收容教育、强制戒毒等。对一个违法嫌疑人只能选一种行政处理种类，也就是说如果在窗体组合框行政处理种类中选了拘留，就不能选拘留并处罚款、收容教育等其它行政处理种类，所以文本框拘留家属通知书编号中就得填写一个拘留家属通知书编号，收容教育编号、强制戒毒编号等其它文本框就是空的，不能填写任何内容。假如我们单位2007年拘留了50人，那么2007年拘留家属通知书最大编号就是50，到了2008年第一个被拘留的人的拘留家属通知书编号又得从1号重新开始。请问如何按年度从1开始自动生成拘留、收容教育、强制戒毒等各种行政处理编号？谢谢！

Top

竹笛发表于：2008-01-24 14:06:41

总体来说不好回复，因为不清楚编号规则。

第一步：判断年度是否是新年度，可能使用到的函数有dmax函数、Dlast函数、mid函数，与系统日期进行对比。

第二步：如果是新年度，重新编号，如果不是，自动加1。

Top

mabaor 发表于：2008-01-25 07:49:15

gjw333ssssss提出的问题是一个自动制作各行政处理文书的问题:

比如:1、单处拘留制作出的文书编号是X公安拘字[2008]1号,X公安拘字[2008]2号，以此类推......

2、单处罚款制作出的文书编号又是X公安罚字[2008]1号,X公安罚字[2008]2号，以此类推......

3、拘留并处罚款制作出的文书编号又是X公安拘罚字[2008]1号，X公安拘罚字[2008]2号一类的,以此类推......

如收容教育、强制戒毒等，也是如此。

并且文书台头也不一样；

如单处拘留，开出的是拘留证；单处罚款开出的是罚款通知等等。。。

我估计他所要解决是这一类问题。

他没有说清这类问题，如何能得到有效的帮助呢？

Top

品茶发表于：2008-01-25 20:22:38

Private Sub Form_Load()
Dim a As String
    a = Nz(DMax("档案号", "数据表", ""), 0)
If Left(a, 3) <> "A" & Format(Date, "yy") Then
    档案号 = "公安部" & Format(Date, "yy") & "0001"
Else
    档案号 = "公安部" & Format(Date, "yy") & Format(Val(Right(a, 4)) + 1, "0000")
End If
Me.档案号.Enabled = False
End Sub
以上代码能自动生成按年度月份的编号,如果有别的文字加&"文字"即可,你们试试啊.

Top

无悔发表于：2008-01-26 15:08:20

我做的这个公安行政处罚信息系统，在表中我做了一个"tbl最大编号",里面设置了"行政处罚决定书最大编号"、"收容教育最大编号"、"强制戒毒最大编号"三个字段，用以放置最大编号。在报表中我做了“行政处罚决定书”、“收容教育决定书”、“强制戒毒决定书”三个报表，用以从窗体输入数据后，通过窗体打印这三种文书。我在窗体“公安行政处罚信息系统”组合框“行政处理种类”中用了行政处理种类_AfterUpdate事件，并编写了代码。请问：1、这些代码放在哪个事件比较好一些？因为如果不小心行政处理种类点击了两下，就会多出一个编号。2、到2008年后如何从1开始自动生成拘留、收容教育、强制戒毒等各种行政处理编号？到2009年后又如何从1开始自动生成拘留、收容教育、强制戒毒等各种行政处理编号？以后各年度依次类推，谢谢！
Private Sub 行政处理种类_AfterUpdate()
    Dim MaxNumber As Integer
    Select Case 行政处理种类
        Case "警告", "警告并处罚款", "罚款", "拘留", "拘留并处罚款", "罚款并处拘留"
            MaxNumber = DLookup("[行政处罚决定书最大编号]", "tbl最大编号")
            Me.行政处罚决定书编号 = MaxNumber + 1
            DoCmd.SetWarnings False
            DoCmd.RunSQL "Update tbl最大编号 set tbl最大编号.行政处罚决定书最大编号 = '" & Me.行政处罚决定书编号 & "'"
        Case "收容教育"
            MaxNumber = DLookup("[收容教育最大编号]", "tbl最大编号")
            Me.收容教育编号 = MaxNumber + 1
             DoCmd.SetWarnings False
            DoCmd.RunSQL "Update tbl最大编号 set tbl最大编号.收容教育最大编号 = '" & Me.收容教育编号 & "'"
        Case "强制戒毒"
            MaxNumber = DLookup("[强制戒毒最大编号]", "tbl最大编号")
            Me.强制戒毒编号 = MaxNumber + 1
            DoCmd.SetWarnings False
            DoCmd.RunSQL "Update tbl最大编号 set tbl最大编号.强制戒毒最大编号 = '" & Me.强制戒毒编号 & "'"
    End Select

End Sub

Top

符鸿敏发表于：2008-06-05 22:42:26

Private Sub 新登记_Click()
Rem 新登记按钮
    On Error GoTo Err_新登记_Click
    'Me.RecordSource = ""
    Dim A, XM, b, c, d

    If Me.保存.Enabled = True Then
        d = MsgBox("请完成当前作业后再进行新病人登记!", vbOKOnly, "警告：当前数据尚未保存!")
        If A = 1 Then
            Call Sd_Locked
        End If
    Else
        Me.RecordSource = "CT登记表_LS"
        Call QingKong
        c = DLookup("count([CT号])", "CT登记表")
        Rem 读入CT号的最大值
        If c = 0 Then
            A = 0
        Else
            A = DLookup("max([CT号])", "CT登记表")
        End If
        'End If

        Rem 解除控件锁定
        Call Js_Locked
        Rem 对新CT号重新赋值
        'A = Format(Date, "yyyy") & Format(Val(Right(A, 5)))
        A = Format(Date, "yyyy") & (Right(A, 5))
        Me.CT号 = A + 1
        Me.姓名.SetFocus
        Me.年龄 = ""
        Me.申请医生 = " "
    End If
Exit_新登记_Click:
    Exit Sub
Err_新登记_Click:
    MsgBox Err.Description
    Resume Exit_新登记_Click
End Sub

这是我在做CT报告单程序时用的按年度自增号代码，参考着用用看

Top

符鸿敏发表于：2008-06-05 22:53:14

如果还是不行，就请和我QQ联系

Top

mabaor 发表于：2009-02-21 14:06:37

请将结果跟贴在相关问题后，有利于其它解决想同问题的人参考使用为宜。。。。

Top

符鸿敏发表于：2009-02-21 18:42:10

还可参考 http://www.accessoft.com/blog/article-show.asp?userid=2251&Id=2085 的示例文件。

Top

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

Access交流中心

行政处罚编号和拘留编号如何按年度自动生成？