Office中国论坛/Access中国论坛
标题: 这样的提示如何设置啊? [打印本页]
作者: 小何 时间: 2004-5-10 22:48
标题: 这样的提示如何设置啊?
这二种提示如何设置啊?[attach]4605[/attach]
[fly]请高手帮我修改一下!谢谢[/fly]
[此贴子已经被作者于2004-5-10 14:48:44编辑过]
作者: hi-wzj 时间: 2004-5-10 23:41
我的想法:
在表设计视图中将“装货时间”“装货地址电话”的“必填字段”选“是”
根据向导做一个录入窗体就是了。虽然提示不是太好理解。
因为您的窗体,操作员很容易的通过翻页键,鼠标滚动按钮,tab键等等,跳过两按钮的执行而保存修改记录。来逃避数据的检验。
作者: ccczzz 时间: 2004-5-11 14:14
标题: 这样可以吗?
这样可以吗?[attach]4614[/attach]
[此贴子已经被作者于2004-5-11 6:15:53编辑过]
作者: 小何 时间: 2004-5-11 16:17
标题: 这二种提示怎么设置?
这个继续添加中前一部分提示做的很好,但是在全部输入数据后点击不能将像ACCESS自身的添加记录一样,在录入后点击将窗体全部数据全部保存到表内而窗体中全部项目为空。
第二保存返回中不能提示,在没有数据时点击就关闭窗体这个做到,但是我在其它项目中录入数据而装货时间为空时不会提示,也会关闭窗体了。[attach]4615[/attach]
作者: xgc 时间: 2004-5-11 17:28
Private Sub Form_Load()
On Error GoTo Err_Form_Load
DoCmd.RunCommand acCmdRecordsGoToNew
Exit_Form_Load:
Exit Sub
Err_Form_Load:
MsgBox Err.Description
Resume Exit_Form_Load
End Sub
Private Sub ÃüÁî13_Click()
On Error GoTo Err_ÃüÁî13_Click
If Me.Dirty = False Then
MsgBox "Ä㻹ûÓмÈëÊý¾Ý²»ÄÜÌí¼Ó", vbInformation, "Ìáʾ"
Else
If Me.×°»õµØÖ·µç»° <> Empty Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Else
MsgBox "ÏÖÔÚ²»Äܱ£´æ£¬×°»õµØÖ·µç»°²»ÄÜΪ¿Õ", vbInformation, "Ìáʾ"
End If
End If
Exit_ÃüÁî13_Click:
Exit Sub
Err_ÃüÁî13_Click:
MsgBox Err.Description
Resume Exit_ÃüÁî13_Click
End Sub
Private Sub ÃüÁî14_Click()
On Error GoTo Err_ÃüÁî14_Click
If Me.Dirty = False Then
DoCmd.Close
Else
If Me.×°»õʱ¼ä <> Empty Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Else
MsgBox "ÏÖÔÚ²»Äܱ£´æ·µ»Ø£¬×°»õʱ¼ä²»ÄÜΪ¿Õ", vbInformation, "Ìáʾ"
End If
End If
Exit_ÃüÁî14_Click:
Exit Sub
Err_ÃüÁî14_Click:
MsgBox Err.Description
Resume Exit_ÃüÁî14_Click
End Sub
作者: 小何 时间: 2004-5-11 21:37
5楼的朋友,你写的我试过了。但是:
在数据录入完整点击"保存返回"时,要双击才能完成的啊?在点击第一下是保存,最次点击时才返回,如何将点击一下就完成保存和返回的两个功能,如何设置?
第二个是现在就设置订舱时间是必须填写后,才能继续添加,如果我设置两个或两个以上的(如:订舱数量、装货时间等都必填写),那又如何设置呢?
[attach]4618[/attach]
[此贴子已经被作者于2004-5-11 13:41:40编辑过]
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |