帮我看一下这段代码问题出在什么地方?

laiguiyou

执行确定后,当调整后的单价为空或与调整前的单价一样,按理会出现一个提示?可是没有反应.(红色处的代码)

Private Sub 确认_Click()
    If IsNull(Me.Frame53) Then
        MsgBox ("请选择部门！"), vbInformation, "单价调整"
        Exit Sub
  

   ElseIf IsNull(组合1) Then
        MsgBox ("请选择产品代号！"), vbInformation, "单价调整"
        Exit Sub
   

    ElseIf IsNull(Me.调整原因) Then
        MsgBox ("请输入调整原因！"), vbInformation, "单价调整"
        Exit Sub
   
    ElseIf IsNull(Me.调整人) Then
        MsgBox ("请输入调整人！"), vbInformation, "单价调整"
        Exit Sub
    End If

    ' If Me.部门1 = Me.部门2 Then
    ' MsgBox ("调动无效！不可以在同一部门调动！")
    ' Exit Sub
    ' End If
   
   

    Dim bh As String
    Dim rq As Date
    Dim yy As String
    Dim sx As String
    Dim bm2 As String
    Dim zw2 As String
    Dim tzr As String
    Dim js As String
    Dim sql As String

    Dim JJ As String
    Dim BJ As String
    Dim md As String
    Dim xb As String
    Dim bz As String


    bh = Me.组合1.Column(1)
    rq = Me.date
    yy = Me.调整原因
    tzr = Me.调整人
    js = Me.经手人

    If Me.Frame53 = 2 Then    '彩绘


            sx = "彩绘总价：从“" & Me.彩绘单价1 & "”调到“" & Me.彩绘单价2 & "”"
            bm2 = Me.彩绘单价2

               If IsNull(彩绘单价2) Then
                  MsgBox "请输入调整后的包装单价", vbInformation, "单价调整"
            Exit Sub
              End If
        
             If Me.彩绘单价1 = Me.彩绘单价2 Then
                MsgBox ("调整前与调整后的单价一样，无须调整！"), vbInformation, "单价调整"
                Exit Sub
              End If

            sql = "insert into 单价调整信息 (产品代号,调整日期,调整事项,调整原因,调整人,经手人)"

            sql = sql & " values ('" & bh & "',  '" & rq & "'  ,'" & sx & "','" & yy & "'  , '" & tzr & "','" & js & "')"

            DoCmd.SetWarnings False
            DoCmd.RunSQL sql
            DoCmd.SetWarnings True
            sql = "update 产品表 set 彩绘单价='" & bm2 & "' where 产品代号='" & bh & "'"
            DoCmd.SetWarnings False
            DoCmd.RunSQL sql
            DoCmd.SetWarnings True
            MsgBox ("单价调整成功！"), vbInformation, "单价调整"
            Call 组合1_AfterUpdate
      
    ElseIf Me.Frame53 = 3 Then    '包装
        bz = Me.包装2
               sx = "包装单价：从“" & Me.包装1 & "”调到“" & Me.包装2 & "”"
        sql = "insert into 单价调整信息 (产品代号,调整日期,调整事项,调整原因,调整人,经手人)"
        sql = sql & " values ('" & bh & "',  '" & rq & "'  ,'" & sx & "','" & yy & "'  , '" & tzr & "','" & js & "')"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sql
        DoCmd.SetWarnings True
        sql = "update 产品表查询 set 包装='" & bz & "' where 产品代号='" & bh & "'"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sql
        DoCmd.SetWarnings True
        MsgBox ("单价调整成功！"), vbInformation, "单价调整"
        Call 组合1_AfterUpdate
    ElseIf Me.Frame53 = 1 Then
        JJ = Me.灌浆2
        md = Me.磨底2
        xb = Me.修边2
        BJ = Me.白检2
        If IsNull(Me.Frame62) Then
            MsgBox "请选择工序", vbInformation, "单价调整"
            Exit Sub
        End If


        Select Case Frame62
        Case 1    '灌浆

            sx = "灌浆单价：从“" & Me.灌浆1 & "”调到“" & Me.灌浆2 & "”"
        Case 3    '修边

            sx = "修边单价：从“" & Me.修边1 & "”调到“" & Me.修边2 & "”"
        Case 2    '磨

一点通

看代码未发现错误的地方,最好简化后上传例子,以便测试

laiguiyou

这是附件

一点通

1.将两个字段的格式均设为:常规数字

2.将这段代码改为如下:

        If Nz(彩绘单价2) = "" Then
            MsgBox "请输入调整后的包装单价", vbInformation, "单价调整"
        Exit Sub
        End If

laiguiyou

谢谢一点通的回复

第一句是可以了,但第二句还是不行

If Me.彩绘单价1 = Me.彩绘单价2 Then
                MsgBox ("调整前与调整后的单价一样，无须调整！"), vbInformation, "单价调整"
                Exit Sub
            End If



写成: if nz(彩绘单价1)=nz(彩绘单价2) then  也没反应

[此贴子已经被作者于2007-3-24 16:33:23编辑过]

一点通

要将两个字段的格式设值一样才行的,设置了吗？

laiguiyou

我看看

laiguiyou

是的,这个问题可从来没有碰到过,谢谢了