access根据上批工单说明情况，给予下批工单提示

george21312　发表于：2014-08-03 21:16:04 　

登陆密码13579

如何编译勾选了“后续相同项目录入时，提示本窗口说明”
就是在下一个工单录入后，模糊搜素工单号。比如这批工单号：12工厂采5312-P1，下批工单号：13中华烟5312-P1
只要模糊对应数字部分5312，对应上后就会出现系统提示框显示工单号：12工厂采5312-P1中说明字段录入的部分

Top

george21312 发表于：2014-08-03 22:41:38

麻烦大神们看下

Top

george21312 发表于：2014-08-04 22:54:08

大神们呢

Top

金宇发表于：2014-08-05 10:05:43

你的问题描述的不太清楚，而且模糊区配需要指定是取几位字符，从第几位开始取进行区配，必须给出具体的规则，而你说“比如这批工单号：12工厂采5312-P1，下批工单号：13中华烟5312-P1，只要模糊对应数字部分5312。”人为是可以识别，但计算机需要知道是从第几位开始取几位字符进行模糊区配，如果工单号是123133155，那又怎么去区配呢，而且你工作单号又没有固定的命名规则？

Top

george21312 发表于：2014-08-05 22:38:38

麻烦大神。假如工单号一致情况下，如何编译能自动跳出系统提示

Top

金宇发表于：2014-08-06 09:48:32

在工单号文本框的更新后事件中写如下代码

    Dim lngGetID  As Long
    Dim sRemark   As String
    If Me.NewRecord Then
        If Len(Me.工单号) > 0 Then
            lngGetID = Nz(DLookup("ID", "任务", "工单号 = '" & Me.工单号 & "'"), 0)
            If lngGetID > 0 Then
                sRemark = Nz(DLookup("说明", "任务", "ID=" & lngGetID), "")
                MsgBox "此工单号[" & Me.工单号 & "]已存在，说明[" & sRemark & "]！", vbExclamation, "提示"
                Exit Sub
            End If
        End If
    End If

Top

george21312 发表于：2014-08-06 23:01:30

那个功能很好已经实现，但有个环节想麻烦大神加下

只有上一个工单勾选了“后续相同项目录入时，提示本窗口说明”，才回在下个工单提示MsgBox "此工单号[" & Me.工单号 & "]已存在，说明[" & sRemark & "]！", vbExclamation, "提示" .这个代码需要怎么加

Top

金宇发表于：2014-08-07 08:50:42

你需要在"任务"表中增加一个字段"是否提示"，数据类型选择"是/否"，然后将窗体上“后续相同项目录入时，提示本窗口说明”的复选框的控件来源设置为字段"是否提示"，然后在某个已有的工单号界面上勾选一下再保存。

原有的这句代码

lngGetID = Nz(DLookup("ID", "任务", "工单号 = '" & Me.工单号 & "'"), 0)

修改为

lngGetID = Nz(DLookup("ID", "任务", "工单号 = '" & Me.工单号 & "' and 是否提示 = True"), 0)

Top

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

Access交流中心

access根据上批工单说明情况，给予下批工单提示