Question

我要做的是点击一下按钮，从一个表中复制相关信息，然后将该信息作为新条目插入另一个表中，并在主键列中显示序号（第一个条目为1，等等上）。

除了复制的信息之外，我还需要在同一条目中插入创建条目的人的用户名以及日期，复选框中的位和文本框中的文本。 / p>

现在我已经将这种分为3个字符串，如下所示，我可以肯定地看到我如何将它组合成2但我不确定如何将所有3个字母组合成单个语句。我试图避免为每个人制作单独的潜艇。

是否有一个命令可以同时或按顺序运行3个字符串？我知道您可以使用DoCmd在Access中执行此操作，但我现在正在使用Excel。

Sub newoccurence()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Server_Name = "SDL02-VM25"
Database_Name = "PIA"
Dim entry As String
entry = ReasonPopup.NotSeatedName

Dim SQL1 As String
SQL1 = "INSERT INTO AttendanceHistory ([FirstName],[LastName],[AgentName],[Location],[EmployeeGroup],[ContractAgency],[Manager],[Supervisor],[Team],[Title],[Position],[Staffcimid],[FTPT],[Bilingual],[Five9Email],[Email],[Weekdayschedule],[Weekendschedule])" & _
        "SELECT [FirstName],[LastName],[AgentName],[Location],[EmployeeGroup],[ContractAgency],[Manager],[Supervisor],[Team],[Title],[Position],[Staffcimid],[FTPT],[Bilingual],[Five9Email],[Email],[Weekdayschedule],[Weekendschedule] " & _
        "FROM Attendance " & _
        "WHERE [AgentName] = '" & entry & "';"

Dim SQL2 As String
SQL2 = "INSERT INTO AttendanceHistory ([CreatedBy],[CreatedDate] where [Createdby] = 'getWinUser()' and [CreatedDate] = 'Date()')"

Dim SQL3 As String
SQL3 = "INSERT INTO AttendanceHistory ([Exception],[Exceptionreason] where [Exception]= 'ReasonPopup.Exception.value' and [ExceptionReason] = 'ReasonPopup.ExceptionReason.value'"

End Sub

在按钮单击上运行多个插入查询

0 个答案: