主子窗體修改數(shù)據(jù)后提示問(wèn)題?

小何

fswxs  你好！
你做的我試了一下，發(fā)現(xiàn)兩問(wèn)題：
1、沒(méi)有修改數(shù)據(jù)時(shí)，也會(huì)提示是否保存？
2、我修改數(shù)據(jù)后，在提示是否保存時(shí)，我點(diǎn)擊否也會(huì)保存？
這兩個(gè)問(wèn)題如何處理呢？

fswxs

那是因?yàn)槲覄h除了你的變量，你用回你以前的代碼就是了

kafeichaofan

沒(méi)看清楚，說(shuō)的仔細(xì)點(diǎn)

小何

主窗體解決了

[ 本帖最后由 小何 于 2008-2-19 15:21 編輯 ]

小何

現(xiàn)在新問(wèn)題：
當(dāng)主窗體內(nèi)有子窗體時(shí)，修改了子窗體內(nèi)容，如何得到同樣的提示？（或主窗體和子窗體一起修改了數(shù)據(jù)又怎么提示呢？）

[ 本帖最后由 小何 于 2008-2-19 15:27 編輯 ]

t小寶

原帖由 小何 于 2008-2-19 08:10 發(fā)表
如果按你這個(gè)的話,我一次性全部項(xiàng)目都修改后就會(huì)一個(gè)一個(gè)的提示,變的很麻煩.最好修改多個(gè)項(xiàng)目后一次性提示.

我在6樓的例子只是告訴你使用OldValue屬性，如果你要一次性提示，就把代碼放在窗體的更新前事件中，也不要放在保存按鈕的單擊事件，因?yàn)槭墙壎ù绑w，只要移動(dòng)記錄就保存數(shù)據(jù)了。
完整代碼是這樣的（無(wú)需公共變量）：
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim st1 As String
st1 = "產(chǎn)品名稱(chēng)由 " & Me.產(chǎn)品名稱(chēng).OldValue & " 修改成 " & Me.產(chǎn)品名稱(chēng) & Chr(13)
st1 = st1 & "單位數(shù)量由 " & Me.單位數(shù)量.OldValue & " 修改成 " & Me.單位數(shù)量 & Chr(13)
st1 = st1 & "單價(jià)由 " & Me.單價(jià).OldValue & " 修改成 " & Me.單價(jià) & Chr(13)
st1 = st1 & "庫(kù)存量由 " & Me.庫(kù)存量.OldValue & " 修改成 " & Me.庫(kù)存量 & Chr(13)
st1 = st1 & "訂購(gòu)量由 " & Me.訂購(gòu)量.OldValue & " 修改成 " & Me.訂購(gòu)量 & Chr(13)
st1 = st1 & "再訂購(gòu)量由 " & Me.再訂購(gòu)量.OldValue & " 修改成 " & Me.再訂購(gòu)量 & Chr(13)
st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "是","否") & Chr(13)
If MsgBox("數(shù)據(jù)已經(jīng)修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    Chr(13) & "單擊是保存，單擊否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    Cancel = True
    Me.Undo
End If
End Sub

t小寶

原帖由 小何 于 2008-2-19 15:21 發(fā)表
現(xiàn)在新問(wèn)題：
當(dāng)主窗體內(nèi)有子窗體時(shí)，修改了子窗體內(nèi)容，如何得到同樣的提示？（或主窗體和子窗體一起修改了數(shù)據(jù)又怎么提示呢？）

子窗體按上面的如法炮制

fswxs

不用公共變量不行，他要求是沒(méi)修改的不提示
對(duì)于子窗體也一樣啊，最多弄個(gè)全局變量

t小寶

不須要公共變量呀！再完善一下代碼。

1. 
   
2. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
3. Dim st1 As String
   
4. If Me.產(chǎn)品名稱(chēng).OldValue <> Me.產(chǎn)品名稱(chēng) Then st1 = "產(chǎn)品名稱(chēng)由 " & Me.產(chǎn)品名稱(chēng).OldValue & " 修改成 " & Me.產(chǎn)品名稱(chēng) & Chr(13)
   
5. If Me.單位數(shù)量.OldValue <> Me.單位數(shù)量 Then st1 = st1 & "單位數(shù)量由 " & Me.單位數(shù)量.OldValue & " 修改成 " & Me.單位數(shù)量 & Chr(13)
   
6. If Me.單價(jià).OldValue <> Me.單價(jià) Then st1 = st1 & "單價(jià)由 " & Me.單價(jià).OldValue & " 修改成 " & Me.單價(jià) & Chr(13)
   
7. If Me.庫(kù)存量.OldValue <> Me.庫(kù)存量 Then st1 = st1 & "庫(kù)存量由 " & Me.庫(kù)存量.OldValue & " 修改成 " & Me.庫(kù)存量 & Chr(13)
   
8. If Me.訂購(gòu)量.OldValue <> Me.訂購(gòu)量 Then st1 = st1 & "訂購(gòu)量由 " & Me.訂購(gòu)量.OldValue & " 修改成 " & Me.訂購(gòu)量 & Chr(13)
   
9. If Me.再訂購(gòu)量.OldValue <> Me.再訂購(gòu)量 Then st1 = st1 & "再訂購(gòu)量由 " & Me.再訂購(gòu)量.OldValue & " 修改成 " & Me.再訂購(gòu)量 & 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("數(shù)據(jù)已經(jīng)修改" & 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

復(fù)制代碼

fswxs

樓上正解 學(xué)習(xí)啊