主子窗体修改数据后提示问题?

t小宝

在主窗体改数据后，进入子窗体，肯定会引发主窗体的更新事件，所以就有提示了
在子窗体改数据后，退出子窗体，又会引发子窗体的更新事件，所以就又有提示了
没办法的，ACCESS中绑定窗体就是这样。如果你只想有一次提示，就用非绑定窗体、临时表，要花费数倍的功夫，很多的代码。。。

fangkinght

:lol :lol

小何

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 & "中止由 " & 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
End Sub

=========================================================================
就是如果当该项目没有数据时,输入新数据就不会提示(如当产品名称里有数据时修改后会提示,但是当没有数据里,在输入数据时就不会提示.)
这是为什么啊?

t小宝

当该项目没有数据时，就出现了空值，空值无法和字符串比较，用Nz把文本型字段和数字型字段的空值转换为空字符串即可，注意是否型字段不需要转换：

1. 
   
2. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
3. Dim st1 As String
   
4. If Nz(Me.产品名称.OldValue) <> Nz(Me.产品名称) Then st1 = "产品名称由 " & Me.产品名称.OldValue & " 修改成 " & Me.产品名称 & Chr(13)
   
5. If Nz(Me.单位数量.OldValue) <> Nz(Me.单位数量) Then st1 = st1 & "单位数量由 " & Me.单位数量.OldValue & " 修改成 " & Me.单位数量 & Chr(13)
   
6. If Nz(Me.单价.OldValue) <> Nz(Me.单价) Then st1 = st1 & "单价由 " & Me.单价.OldValue & " 修改成 " & Me.单价 & Chr(13)
   
7. If Nz(Me.库存量.OldValue) <> Nz(Me.库存量) Then st1 = st1 & "库存量由 " & Me.库存量.OldValue & " 修改成 " & Me.库存量 & Chr(13)
   
8. If Nz(Me.订购量.OldValue) <> Nz(Me.订购量) Then st1 = st1 & "订购量由 " & Me.订购量.OldValue & " 修改成 " & Me.订购量 & Chr(13)
   
9. If Nz(Me.再订购量.OldValue) <> Nz(Me.再订购量) Then st1 = st1 & "再订购量由 " & Me.再订购量.OldValue & " 修改成 " & Me.再订购量 & Chr(13)
   
10. If Me.中止.OldValue <> Me.中止 Then st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "是", "否") & Chr(13)
    
11. If Len(Trim(st1)) = 0 Then
    
12.     Me.Undo
    
13.     Exit Sub
    
14. End If
    
15. If MsgBox("数据已经修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    
16.     Chr(13) & "单击是保存，单击否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    
17.     Cancel = True
    
18.     Me.Undo
    
19. End If
    
20. End Sub
    

复制代码

小何

谢谢你,T小宝

zczc123

这个问题我也想解决,前来学习罗

qdoffcie

下载学习

7777777

DDDDDDDDDDDDDDDDD

05632016

值得学习下~~

小何

313