VBAでif、elseif、elseステートメントを使用できない

Question

フォームフィールドを使用してテーブルの列の値をチェックして、これを実行するクエリを事前認定しようとしていますが、実行しているコードですエラー。

' Set Warnings 
DoCmd.SetWarnings False 
If Forms!FrmCopyRoutingMenu!TextTarget = tblQuoteSection1Lines!tblQuoteMstrID Then 
    MsgBox ("Quote Section 1 Already Started! Please Copy Individual Sections.") 

ElseIf Forms!FrmCopyRoutingMenu!TextTarget = Table!tblQuoteSection2Lines!tblQuoteMstrID Then 
    MsgBox ("Quote Section 2 Already Started! Please Copy Individual Sections.") 

ElseIf Forms!FrmCopyRoutingMenu!TextTarget = Table!tblQuoteSection3Lines!tblQuoteMstrID Then 
    MsgBox ("Quote Section 3 Already Started! Please Copy Individual Sections.") 

ElseIf Forms!FrmCopyRoutingMenu!TextTarget = Table!tblQuoteSection4Lines!tblQuoteMstrID Then 
    MsgBox ("Quote Section 4 Already Started! Please Copy Individual Sections.") 

ElseIf Forms!FrmCopyRoutingMenu!TextTarget = Table!tblQuoteSection5Lines!tblQuoteMstrID Then 
    MsgBox ("Quote Section 5 Already Started! Please Copy Individual Sections.") 

Else 

Answer 1

TextTargetの値が各テーブルのIDフィールドのどこにあるかチェックしますか？これは機能しますか？

Dim target As String 
Dim Found As Boolean 

target = Forms!FrmCopyRoutingMenu!TextTarget 
Found = False 

For i = 1 To 5 
If DCount("tblQuoteMstrID", "tblQuoteSection" & i & "Lines", "tblQuoteMstrID = '" & target & "'") > 0 Then 
    MsgBox ("Quote Section " & i & " Already Started! Please Copy Individual Sections.") 
    Found = True 
End If 
Next i 

If Not Found Then 
    'code to run query goes here 
End If