标签: access-vba

我们使用一个使用Sql server 2005作为后端的软件.

问题是我们有数据进入访问文件,我们需要将它存储在sql server表中.

我准备好了sql server表.

我不需要MDB访问文件中的所有数据,但需要访问特定列,然后将其存储在SQL Server中.

我每周都会获得新的访问表,需要将其迁移到SQL Server中的表.

做这个的最好方式是什么？

我试图从MSAccess访问我的SQL数据库中的某些行,并且我在此行上不断收到无效的参数错误:

Set rs = CurrentDb.OpenRecordset("SELECT TimeID " & _
    "FROM tblLunchTime " & _
    "WHERE ProductionID = prodSelect AND EndTime is NULL AND StartTime < dateAdd('h', 3, NOW())", [dbSeeChanges])

这不对吗？

Private Sub cmdClockEnd_Click()

'Check if a group has been selected.
If frmChoice.value = 0 Then

    MsgBox "Please select a production line."

    End

End If

'Setup form for user input.
lblEnd.Visible = True

'Save end of lunch value.
lblEnd.Caption = Format(Now, "MMM/DD/YY hh:mm:ss AMPM")

'Declare database variables.
Dim dbName As DAO.Database …

最近我意识到记录集可能比我原先想象的要简单得多(不太有用).我想看看其他人是否可以证实或否认我的怀疑.让我解释.当我创建两个DAO记录集对象时,比如rstA和rstB,并将它们都设置到同一个表中,比如TableA,就像这样,

Set rstA = CurrentDb.OpenRecordset("TableA", dbOpenDynaset)
Set rstB = CurrentDb.OpenRecordset("TableA", dbOpenDynaset)

然后他们不自主行事.例如,使用移动记录,rstA.MoveNext然后它对rstB执行相同的操作.

最初,我认为记录集是"完整的"对象,但这种行为表明它们只是指向表格的指针.因此,该表持有它自己的指针来指示当前记录,这就是为什么用rstA或rstB移动这个指针会导致一个影响另一个.

这是正确的还是我只是做错了什么？

rst.Open "SELECT * FROM Equipas WHERE ([ID - Funcionário] LIKE '" & idfunc & "' AND [ID - Tarefa] LIKE ' " & idtask & "' );", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rst.Delete adAffectCurrent
rst.Update
rst.Close

我收到运行时错误3021,但查询不为空.

如何在没有安装Outlook的情况下通过VBA阅读GMail电子邮件？

我用谷歌搜索它,但我找不到任何不依赖于Outlook的解决方案.

我试图在For循环中的Access VBA中执行IF-THEN-ELSE条件.但是我似乎无法执行它,我做错了什么？代码如下.

If m < 12 Then

For I = 2 To x

Price1 = 1 / ((1 + vInterpRate(I - 1)) ^ (m / 12))

Price2 = 1 / ((1 + vInterpRate(I)) ^ (m / 12))

  LogRtn = Log(Price1 / Price2)

  RtnSQ = LogRtn ^ 2

  WT = (1 - Lambda) * Lambda ^ (I - 2)

  WtdRtn = WT * RtnSQ

  SumWtdRtn = SumWtdRtn + WtdRtn

Else

For I = 2 To x

Price1 = Exp((vInterpRate(I - 1)) …

在if语句中我总是必须使用 if isnull(x) or x = "" then

这两者之间的区别是什么？为什么它们在某些情况下都不起作用？

我试图将SQL从传递查询放入VBA模块,因为查询给我带来了问题.然而,我遇到了一个问题.这是我收到的错误消息:

这是生成错误的代码部分

Sub Passthrough()

Dim strSQL As String

strSQL = "select spriden_id AS 'UIN', spriden_first_name AS 'First', spriden_last_name AS 'Last', SPBPERS_SSN AS 'SSN', pebempl_ecls_code," & _
"pebempl_term_date, pebempl_last_work_date, ftvvend_term_date," & _
"Case When sfrstcr_pidm is not null Then 'A'" & _
"When sfrstcr_pidm <> ' '" & _
"Then 'A' Else Null End AS 'StudentStatus'," & _
"spbpers_citz_code AS 'Citizenship',Null AS 'Current Student/Employee (Y/N)',  Null 'TIN Match (Y/N)'" & _

......

  DoCmd.RunSQL strSQL

End Sub

我已经浏览了类似的帖子,并且无法在这里找出导致我的错误的确切原因.从我可以告诉我的语法是正确的,我已经包含了我的构建代码,它正常运行直到执行SQL行.

rs.MoveFirst
If Me.chkBBB = True Then
Do Until rs.EOF
    strBBB = rs!BBB
    strBrktDet1 = Left(strBBB, 2)
    strBrktDet2 = Right(strBBB, 8)
    If strBrktDet1 = "99" Then varBracket = -1
    If strBrktDet1 = "98" Then varBracket = 0
    strBPINo = Nz(DLookup("[BPINo]", "[Caliper Master]", "[BBB] LIKE" & "'*" & strBrktDet2 & "'"), "N/A")
    strCentric = Nz(DLookup("[CentricItemNo]", "[Caliper Master]", "[BBB] LIKE" & "'*" & strBrktDet2 & "'"), "N/A")
    strCardoneNo = Nz(DLookup("[A1CardoneItemNo]", "[Caliper Master]", "[BBB] LIKE" & "'*" & strBrktDet2 & "'"), "N/A")
    If …

我正在尝试测量两次更新之间的持续时间.已经有一个表可以跟踪'lastvalue','newvalue'和'updatetime'.我的方法是搜索满足条件的实体,并为变量分配相关的更新时间,然后进行计算.但是,我的for循环不起作用,只执行一次.我是access-vba的新手,并使用debug.prints来查看事情是如何变化的(它们是永久性的).以下是我的代码,谢谢

Private Sub olcum()

Dim gs As Long
Dim db As Database
Dim rs As Recordset
Dim pt As Date
Dim ct As Date
Dim pc As String
Dim cc As String
Dim id As Integer
Dim i As Integer
Dim l As Integer
Dim k As Integer
'Dim a As Index
Dim strMessage As String


Set db = CurrentDb
Set rs = db.OpenRecordset("GecenSure", dbOpenSnapshot)
pc = "acilmasi bekleniyor"
cc = "onayda"


rs.MoveFirst
For i = 0 To (rs.RecordCount - …