런타임 오류 3075 - 누락 된 운영자 - VBA 액세스

Option Explicit 

Private Sub BeforeUpdate 

    Dim No_Map As Integer 
    Dim SysDate As Date 

    SysDate = Now() 

    Debug.Print "Date is " & SysDate 
    strSQL1 = "UPDATE MaponDemand SET SysDate = " & SysDate & " WHERE No_Map = " & _ No_Map.Value 
    db.Execute strSQL1, dbFailOnError Or dbSeeChanges 
End Sub

출처

2014-04-15 user3405572

'Private Sub BeforeUpdate (정수로 취소)'해야합니다. ... 또한 'No_Map.Value' 앞에 여분의'_ '가 있고'또는 '연산자를 사용할 수 있는지 확실하지 않습니다. dbFailOnError 또는 dbSeeChanges' ... –

.. 그리고 No_Map은 Integer로 선언됩니다. 따라서 No_Map.Value는 실패합니다 .. .. No_Map은 어떤 값으로도 초기화되지 않습니다 .. .. 데이터베이스 백엔드에 따라 날짜 값을 인용해야합니다 – Klaus

날짜는 SQL에서 처리 할 수있는 날짜로 자동 변환되지 않습니다.

시도해보십시오. strSQL1 = "UPDATE MaponDemand SET SysDate = #" & SysDate & "# WHERE No_Map = " & _ No_Map.Value (해시 태그 # 날짜 전후).

출처

2014-05-08 13:08:46 MP24

런타임 오류 3075 - 누락 된 운영자 - VBA 액세스

답변

관련 문제