Office中国论坛/Access中国论坛

标题: 当输入的记录不在组合框选项里时，这段代码有什么问题？ [打印本页]

作者: goto2008 时间: 2007-6-6 23:56
标题: 当输入的记录不在组合框选项里时，这段代码有什么问题？
我想实现的是，当有时在“类别”这个字段里输入的名称不在组合框选项里。

会自动弹出来一个对话框询问。“您输入的某某不在选项里，是否添加进去？”

然后回答，是或否

不知我这段代码哪里错了，实现不了？？？

Private Sub 类别_NotInList(NewData As String, Response As Integer)
Dim intSelect As Integer
Dim strSQL As String

'用户选择是否把新值加入列表
intSelect = MsgBox("你是否希望把“" + NewData + "”加入列表中？", vbYesNo + vbQuestion, "提示")

If intSelect = vbYes Then
      DoCmd.SetWarnings False
      strSQL = "INSERT INTO [产品表](类别) VALUES('" + NewData + "')"
      DoCmd.RunSQL strSQL
      Response = acDataErrAdded
      DoCmd.SetWarnings True
Else
      Response = acDataErrContinue
      Me.类别.Undo
End If
End Sub

[attach]24804[/attach]

[attach]24803[/attach]

作者: ytf123 时间: 2007-6-7 00:57
不知这是不是你想要的结果

[attach]24806[/attach]

作者: goto2008 时间: 2007-6-7 01:13
ytf123

你好，不是这样的。。。。我的意思是，

若输入新的类别，它也会自动保存在“类别表”里

作者: ytf123 时间: 2007-6-7 01:34
[attach]24807[/attach]

作者: goto2008 时间: 2007-6-7 05:24
谢谢！！就是要这个效果

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