Office中国论坛/Access中国论坛

标题: [求助]关于acDataErrAdded 含义？ [打印本页]

作者: costyu 时间: 2004-7-8 17:27
标题: [求助]关于acDataErrAdded 含义？
在看别人的代码时发现自己还是一个初学者现请教大家！

Private Sub 职务_NotInList(NewData As String, Response As Integer)

Dim ctl As Control

Set ctl = Me.职务 '返回组合框的control对象

If MsgBox("你输入的值不在列表中,是否增加到列表中去?", vbOKCancel) = vbOK Then

   Response = acDataErrAdded

   DoCmd.SetWarnings False

   DoCmd.RunSQL "insert into 职务表(职务) select '" & NewData & "'"

   DoCmd.SetWarnings True

Else

   Response = acDataErrContinue

   ctl.Undo

End If

End Sub

整体的意思是懂的，但不知其中的acDateaErrContinue和acDataErrAdded重哪来的以前没见过还望指点！

作者: fresh+men 时间: 2004-7-8 17:53
Private Sub controlname_NotInList(NewData As String, Response As Integer)NotInList 事件过程有下列参数：参数说明ControlName将要运行其 NotInList 事件过程的控件名称。NewData字符串，Microsoft Access 使用该字符串将组合框中文本框部分的用户输入文本赋给事件过程。Response此设置指示 NotInList 事件如何被处理。Response 参数可以是的下列固有常量之一：常量说明 acDataErrDisplay（默认值）为用户显示默认的消息。当不允许用户将新值添加到组合框的列表中时，可以使用它。 acDataErrContinue不为用户显示默认的消息。如果要为用户显示自定义消息时，可以使用它。例如，事件过程能显示一个自定义对话框以询问用户是否要保存新的输入项。如果回答为 Yes，事件过程将新的输入项添加到列表中，并将 Response 参数设置为 acDataErrAdded。如果回答是 No，事件过程将 Response 参数设置为 acDataErrContinue。 acDataErrAdded不为用户显示消息，但在 NotInList 事件过程中将输入项添加到组合框列表中。在输入项被添加后，Microsoft Access 将通过重新查询组合框来更新列表。然后 Microsoft Access 重新检查字符串和组合框列表，并将 NewData 参数中的值保存到组合框绑定到的字段中。如果字符串不在列表中，则 Microsoft Access 将显示一条错误消息。

作者: costyu 时间: 2004-7-8 18:29
谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)