如何将两个文本框必须填写一个方能保存

zkz　发表于：2016-11-27 20:31:56 　

大海发表于：2016-11-28 07:53:15

Private Sub Command4_Click()
If Nz(Me.收入) = "" And Nz(me.支出) = "" Then
MsgBox "收入与支出必须填写一个才可以保存", vbInformation, "系统提示"
Else
MsgBox "数据保存成功。", vbInformation, "系统提示"
End If
End Sub

Top

zkz 发表于：2016-11-28 08:45:31

再帮忙下，这段完整语句如何啊？非常感谢！

If Nz(Me.收入) = "" And Nz(Me.支出) = "" Then

MsgBox "收入和支出金额必填一个!", vbInformation, "系统提示"
Else
'MsgBox "数据保存成功。", vbInformation, "系统提示"
End If

If MsgBox("确认要保存吗？", vbYesNo + vbInformation, "提示") = vbNo Then

Exit Sub

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "保存成功！", vbInformation, "系统提醒"

End If

Top

zkz 发表于：2016-11-28 08:49:30

如何改成收入和支出填好一个方能往下读到“” If MsgBox("确认要保存吗？", vbYesNo + vbInformation, "提示") = vbNo Then“”这句，

Top

大海发表于：2016-11-28 13:04:19

Private Sub Command4_Click()
If Nz(Me.收入) = "" And Nz(Me.支出) = "" Then
MsgBox "收入与支出必须填写一个才可以保存", vbInformation, "系统提示"
Exit Sub
End If
If MsgBox("确认要保存吗？", vbYesNo + vbInformation, "提示") = vbNo Then

Exit Sub

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "保存成功！", vbInformation, "系统提醒"

End If
End Sub

Top

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

Access交流中心

[5分]如何将两个文本框必须填写一个方能保存