请教如何从ACCESS数据库中读取数值生成窗体列表

danhanqing

非常感谢！学习了！我改为change事件后，不用回车了。想增加一个按钮为更新，如果单位名称不存在，则新增，如果单位名称存在，但联系人或电话号码不一样了，则为修改。谢谢！

danhanqing

Private Sub 添加_Click()
    Call LJSJK(conn)
    sql = "select 单位名称 from 往来通讯总表 &  where 单位名称='" & 单位名称.Text & "'"
     rs.Open sql, conn, 1, 3
     If rs.EOF And rs.BOF Then
        sql = "insert into 往来通讯总表 set 单位名称='" & 单位名称 & "',联系人='" & 联系人 & "',联系电话='" & 联系电话 & "'"
        MsgBox "数据已新增!", vbOKOnly + 64, "温馨提示"
    Else
        sql = "Update 往来通讯总表 set 单位名称='" & 单位名称 & "',联系人='" & 联系人 & "',联系电话='" & 联系电话 & "' where 单位名称='" & 单位名称.Text & "'"
        MsgBox "数据已更新!", vbOKOnly + 64, "温馨提示"
    End If
    conn.Execute sql
    Set rs = Nothing
    Set conn = Nothing
End Sub

找不出原因了^O^ 初学习，比学VBA时觉得要难!求教。

danhanqing

        sql = "insert into 往来通讯总表 set 单位名称='" & 单位名称 & "',联系人='" & 联系人 & "',联系电话='" & 联系电话 & "'"
这一句格式错在哪里，请老师指教！

NaTo

INSERT INTO tablename(列1,列2,列3) VALUES(值1,值2,值3)