添加日志语句请教

小何

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim st1 As String
If Me.产品名称.OldValue <> Me.产品名称 Then st1 = "产品名称由 " & Me.产品名称.OldValue & " 修改成 " & Me.产品名称 & "；" & Chr(13)
If Me.单位数量.OldValue <> Me.单位数量 Then st1 = st1 & "单位数量由 " & Me.单位数量.OldValue & " 修改成 " & Me.单位数量 & "；" & Chr(13)
If Me.单价.OldValue <> Me.单价 Then st1 = st1 & "单价由 " & Me.单价.OldValue & " 修改成 " & Me.单价 & "；" & Chr(13)
If Me.库存量.OldValue <> Me.库存量 Then st1 = st1 & "库存量由 " & Me.库存量.OldValue & " 修改成 " & Me.库存量 & "；" & Chr(13)
If Me.订购量.OldValue <> Me.订购量 Then st1 = st1 & "订购量由 " & Me.订购量.OldValue & " 修改成 " & Me.订购量 & "；" & Chr(13)
If Me.再订购量.OldValue <> Me.再订购量 Then st1 = st1 & "再订购量由 " & Me.再订购量.OldValue & " 修改成 " & Me.再订购量 & "；" & Chr(13)
If Me.供应商名称.OldValue <> Me.供应商名称 Then st1 = st1 & "供应商名称由 " & Me.供应商名称.OldValue & " 修改成 " & Me.供应商名称 & "；" & Chr(13)
If Me.中止.OldValue <> Me.中止 Then st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "否", "是") & "；" & Chr(13)
If Len(Trim(st1)) = 0 Then
    Me.Undo
    Exit Sub
End If
If MsgBox("数据已经修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    Chr(13) & "单击是保存，单击否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    Cancel = True
    Me.Undo
     
       AddhowDolog ("==产品窗体==" & st1)      '添加操作日志语句
End If
End Sub


====我加上这句语句后，为什么点击是没有添加到操作日志里，点否时而添加到操作日志里了？（其它正常）

rjacky

原帖由 rjacky 于 2008-2-21 10:50 发表
AddhowDolog ("==产品窗体==" & st1)     放到最后，怎么会放在msgbox的if里面呢，那个if的意思是提示是否保存，选否撤消，选是继续

已经解释过那个IF的作用了呀，MM还不明白呀


If MsgBox……then
  ……
else
  AddhowDolog ("==产品窗体==" & st1)
end if

小何

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim st1 As String
If Me.产品名称.OldValue <> Me.产品名称 Then st1 = "产品名称由 " & Me.产品名称.OldValue & " 修改成 " & Me.产品名称 & "；" & Chr(13)
If Me.单位数量.OldValue <> Me.单位数量 Then st1 = st1 & "单位数量由 " & Me.单位数量.OldValue & " 修改成 " & Me.单位数量 & "；" & Chr(13)
If Me.单价.OldValue <> Me.单价 Then st1 = st1 & "单价由 " & Me.单价.OldValue & " 修改成 " & Me.单价 & "；" & Chr(13)
If Me.库存量.OldValue <> Me.库存量 Then st1 = st1 & "库存量由 " & Me.库存量.OldValue & " 修改成 " & Me.库存量 & "；" & Chr(13)
If Me.订购量.OldValue <> Me.订购量 Then st1 = st1 & "订购量由 " & Me.订购量.OldValue & " 修改成 " & Me.订购量 & "；" & Chr(13)
If Me.再订购量.OldValue <> Me.再订购量 Then st1 = st1 & "再订购量由 " & Me.再订购量.OldValue & " 修改成 " & Me.再订购量 & "；" & Chr(13)
If Me.供应商名称.OldValue <> Me.供应商名称 Then st1 = st1 & "供应商名称由 " & Me.供应商名称.OldValue & " 修改成 " & Me.供应商名称 & "；" & Chr(13)
If Me.中止.OldValue <> Me.中止 Then st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "否", "是") & "；" & Chr(13)
If Len(Trim(st1)) = 0 Then
    Me.Undo
    Exit Sub
End If
If MsgBox("数据已经修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    Chr(13) & "单击是保存，单击否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    Cancel = True
    Me.Undo     
      End If
AddhowDolog ("==产品窗体==" & st1)      '添加操作日志语句
End Sub

====放在这里不管点是或否都会添加到操作日志里

[ 本帖最后由 小何 于 2008-2-21 11:03 编辑 ]

rjacky

AddhowDolog ("==产品窗体==" & st1)     放到最后，怎么会放在msgbox的if里面呢，那个if的意思是提示是否保存，选否撤消，选是继续

小何

没有帮忙啊 :'( :'( :'( :'( :'(