如何通过VBA和SQL在Access中新增列并利用其他列公式填充值？

先帮你梳理下代码里的核心问题：

• 你在createcolumn里给Company表新增了employee列，但insertvalues里却错误地试图往Employee表的Gross列插入值，表名和列名完全对应错了
• INSERT语句是用来新增整条记录的，而你需要的是给已有记录的新列填充计算值，这时候应该用UPDATE语句才对
• 两次重复打开数据库有点冗余，我们可以优化成更简洁的写法

下面是修正后的可行方案，分两种场景给你参考：

方案一：合并成一个过程完成所有操作 #

Sub CreateAndPopulateColumn()
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    
    ' 打开目标数据库
    objAccess.OpenCurrentDatabase("H:\VBA\Array Practice\Database1array.accdb")
    
    With objAccess.CurrentProject.Connection
        ' 第一步：新增employee列，建议指定字符长度（和LEFT取3位的需求匹配）
        .Execute "ALTER TABLE Company ADD COLUMN employee CHAR(3)"
        
        ' 第二步：用UPDATE给新列赋值，计算逻辑是取full_name的前3位
        .Execute "UPDATE Company SET employee = LEFT(full_name, 3)"
    End With
    
    ' 显式关闭数据库并释放对象，避免资源占用
    objAccess.CloseCurrentDatabase
    Set objAccess = Nothing
End Sub

方案二：保留两个独立过程但修正逻辑 #

如果你还是想分成两个过程执行，那insertvalues要改成这样：

Sub insertvalues()
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase("H:\VBA\Array Practice\Database1array.accdb")
    
    ' 注意是更新Company表的employee列，不是插入到其他表
    objAccess.CurrentProject.Connection.Execute "UPDATE Company SET employee = LEFT(full_name, 3)"
    
    objAccess.CloseCurrentDatabase
    Set objAccess = Nothing
End Sub

关键细节说明： #

• 新增列时指定CHAR(3)更合理，因为你只需要存储3个字符的结果
• UPDATE是修改已有记录列值的正确语句，INSERT是新增整条记录，这是你之前代码失效的核心原因
• 操作完成后记得释放Access对象，避免后台残留进程

内容的提问来源于stack exchange，提问作者Praveen KUMAR