标题: 保存按钮问题？ [打印本页] 作者: tztt 时间: 2003-7-15 20:03 标题: 保存按钮问题？ [attach]1162[/attach]
我是刚刚开始学ACCESS的，有几个按钮事向大家请，在窗体中的表1和窗体1里面的几个按钮不用ACCESS本身的命令按钮，怎么去实现呢？作者: sxgaobo 时间: 2003-7-18 00:12
先建一个和表1结构相同的临时表,作为窗体表1的数据源,点保存时将数据追加到表1,并清空临时表,点保存/退出是将数据追加到表1并退出,点不保存/退出时退出,作者: tztt 时间: 2003-7-18 00:15
那你能不能帮我修改看一下。好吗？作者: sxgaobo 时间: 2003-7-18 00:58 标题: 另一种方法: [attach]1183[/attach]作者: 竹笛 时间: 2003-7-18 01:16
可以参考一下：
更新数据时保存提示操作员
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Data has changed."
strMsg = strMsg & "@Do you wish to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
'For Access 95, use DoMenuItem instead
'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End Sub
‘子窗口无数据时,隐藏
'*********** Code Start **********
Private Sub Form_Current()
With Me![SubformName].Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End Sub