保存之前,先比较一下,如
If e.form.controls("Label1").Text <> e.form.controls("Label2").Text Then
msgbox("不平")
return
Else
'保存代码
End If