AccessVBA SQLにて'3219'が出てしまいます (ID:110884)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Function DATAset() As String
On Error GoTo err1
Dim msg As Integer
Dim DB1, DB2, DB3 As Database
Dim RC1, RC2, RC3, sql1, sql2 As DAO.Recordset
Dim DefQry As QueryDef
dim myid as integer

Set DB1 = CurrentDb
Set RC1 = DB1.OpenRecordset("table1", dbOpenDynaset)
Set RC2 = DB1.OpenRecordset("table2", dbOpenDynaset)
Set RC3 = DB1.OpenRecordset("table3", dbOpenDynaset)

MyId = Forms!MAIN_FRM1!ID.Value
If MyId < 1 Then
   GoSub Append_Rutine '<-略します
Else
   GoSub Update_Rutine
End If
   Exit Function
'--------------------------------------------------------------------Append_Rutine:
'--------------------------------------------------------------------
    略
Return
'--------------------------------------------------------------------Update_Rutine:
'--------------------------------------------------------------------Dim JCEC, SQLtxt As String
SQLtxt = "SELECT * FROM TABLE1 WHERE DEL_FLG = 0 AND ID = " & MyId
Set DefQry = DB1.CreateQueryDef("", SQLtxt)
Set sql1 = DefQry.OpenRecordset()
If sql1.RecordCount <> 0 Then
    Else
    Exit Function
End If
                      '↑正常
'業者名<String>
    If Forms!MAIN_FRM1!Name.Value <> "" Then
            SQLtxt = "UPDATE TABLE1  set mName = '" & Forms!MAIN_FRM1!NAME.Value & "' "
    Else:   SQLtxt = "UPDATE TABLE1  set mName = Null ": End If
    SQLtxt = SQLtxt & "where ID = " & MyId
    Set DefQry = DB1.CreateQueryDef("", SQLtxt)    
    Set sql1 = DefQry.OpenRecordset()
                     ↑  この命令を実行するとエラーになる

←解決時は質問者本人がここをチェックしてください。

戻る