[原创]一段代码:输入数据不在列表中,自动增加列表的例子

tz-chf

好象用不着runsql吧

客户窗体：

Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
        Me.供应商 = Me.OpenArgs
    End If

End Sub


输入窗体：

Private Sub 供应商ID_NotInList(NewData As String, Response As Integer)
    Dim intReply As Integer
   
    intReply = MsgBox("当前供应商‘" & NewData & _
        "’不存在。" & vbCrLf & vbCrLf & "是否增加？", vbYesNo, "注意")
        
    If intReply = vbYes Then
        DoCmd.OpenForm "供应商窗体", , , , acFormAdd, acDialog, NewData
        Response = acDataErrAdded
    Else
        MsgBox "请重新选择供应商。", vbCritical
        Response = acDataErrContinue
    End If
   
End Sub

tz-chf

很简单嘛，有什么不好理解的。

DoCmd.RunSQL "INSERT INTO 客户档案 (客户编码,客户名称 )SELECT '" & NewData & "', '" & NewData & "';"


“客户编码”和“客户名称”一样吗？？？

还有怎么用select，不用values

[此贴子已经被作者于2007-2-9 20:55:39编辑过]