保存按钮问题？

tztt

我是刚刚开始学ACCESS的，有几个按钮事向大家请，在窗体中的表1和窗体1里面的几个按钮不用ACCESS本身的命令按钮，怎么去实现呢？

sxgaobo

先建一个和表1结构相同的临时表,作为窗体表1的数据源,点保存时将数据追加到表1,并清空临时表,点保存/退出是将数据追加到表1并退出,点不保存/退出时退出,

tztt

那你能不能帮我修改看一下。好吗？

sxgaobo

竹笛

可以参考一下：
更新数据时保存提示操作员
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

[此贴子已经被作者于2003-7-17 17:18:42编辑过]

tztt

4楼兄弟，在此我谢谢你了。还有那表1里的“保存/退出”不行啊？还有窗体1里的几个按钮如何实现呢？

sxgaobo

我试了，表1里的“保存/退出”没问题啊，窗体1里的几个按钮你可以照猫画虎！

cgx2000

O(∩_∩)O谢谢学习