这样的提示如何设置啊?

小何

这二种提示如何设置啊?


[fly]请高手帮我修改一下!谢谢[/fly]

[此贴子已经被作者于2004-5-10 14:48:44编辑过]

hi-wzj

我的想法：
   在表设计视图中将“装货时间”“装货地址电话”的“必填字段”选“是”
   根据向导做一个录入窗体就是了。虽然提示不是太好理解。
因为您的窗体，操作员很容易的通过翻页键，鼠标滚动按钮，tab键等等，跳过两按钮的执行而保存修改记录。来逃避数据的检验。

ccczzz

这样可以吗？

[此贴子已经被作者于2004-5-11 6:15:53编辑过]

小何

这个继续添加中前一部分提示做的很好,但是在全部输入数据后点击不能将像ACCESS自身的添加记录一样,在录入后点击将窗体全部数据全部保存到表内而窗体中全部项目为空。
第二保存返回中不能提示，在没有数据时点击就关闭窗体这个做到，但是我在其它项目中录入数据而装货时间为空时不会提示，也会关闭窗体了。

xgc

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.×°&raquo;&otilde;&micro;&Oslash;&Ouml;·&micro;&ccedil;&raquo;° <> Empty Then
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.GoToRecord , , acNewRec
        Else
            MsgBox "&Iuml;&Ouml;&Ocirc;&Uacute;&sup2;&raquo;&Auml;&Uuml;±&pound;&acute;&aelig;&pound;&not;×°&raquo;&otilde;&micro;&Oslash;&Ouml;·&micro;&ccedil;&raquo;°&sup2;&raquo;&Auml;&Uuml;&Icirc;&ordf;&iquest;&Otilde;", vbInformation, "&Igrave;á&Ecirc;&frac34;"
        End If
    End If

Exit_&Atilde;ü&Aacute;&icirc;13_Click:
    Exit Sub

Err_&Atilde;ü&Aacute;&icirc;13_Click:
    MsgBox Err.Description
    Resume Exit_&Atilde;ü&Aacute;&icirc;13_Click
End Sub

Private Sub &Atilde;ü&Aacute;&icirc;14_Click()
On Error GoTo Err_&Atilde;ü&Aacute;&icirc;14_Click

    If Me.Dirty = False Then
        DoCmd.Close
    Else
        If Me.×°&raquo;&otilde;&Ecirc;±&frac14;&auml; <> Empty Then
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.GoToRecord , , acNewRec
        Else
            MsgBox "&Iuml;&Ouml;&Ocirc;&Uacute;&sup2;&raquo;&Auml;&Uuml;±&pound;&acute;&aelig;·&micro;&raquo;&Oslash;&pound;&not;×°&raquo;&otilde;&Ecirc;±&frac14;&auml;&sup2;&raquo;&Auml;&Uuml;&Icirc;&ordf;&iquest;&Otilde;", vbInformation, "&Igrave;á&Ecirc;&frac34;"
        End If
    End If

Exit_&Atilde;ü&Aacute;&icirc;14_Click:
    Exit Sub

Err_&Atilde;ü&Aacute;&icirc;14_Click:
    MsgBox Err.Description
    Resume Exit_&Atilde;ü&Aacute;&icirc;14_Click
   
End Sub

小何

5楼的朋友，你写的我试过了。但是：
在数据录入完整点击"保存返回"时,要双击才能完成的啊?在点击第一下是保存,最次点击时才返回,如何将点击一下就完成保存和返回的两个功能，如何设置?
第二个是现在就设置订舱时间是必须填写后，才能继续添加，如果我设置两个或两个以上的（如：订舱数量、装货时间等都必填写），那又如何设置呢？

[此贴子已经被作者于2004-5-11 13:41:40编辑过]