VBAエラー：コンパイルエラー：End Subのは

Question

Private Sub Button160_Click() 

Function Aspiranti() 
On Error GoTo Aspiranti_Err 

    With CodeContextObject 
     If (.F27 <> "") Then 
      TempVars.Add "Perem27", .F27 
     Else 
      TempVars.Add "Perem27", "*" 
     If (.F28 <> "") Then 
      TempVars.Add "Perem28", .F28 
     Else 
      TempVars.Add "Perem28", "*" 
     If (.F29 <> "") Then 
      TempVars.Add "Perem29", .F29 
     Else 
      TempVars.Add "Perem29", "*" 
       End If 
       DoCmd.SetFilter "", "[N ruk] Like [TempVars]![Perem27] And [Spec VAK] Like [TempVars]![Perem28] And Year([Date]) Like [TempVars]![Perem29]", "" 
     If (Forms!Asperant.CurrentRecord = 1 And Forms!Asperant.NewRecord = -1) Then 
      Beep 
      MsgBox "Ne naideno!", vbOKOnly, "Vnimanie!" 
      DoCmd.ShowAllRecords 
     End If 
    End With 


Aspiranti_Exit: 
    Exit Function 

Aspiranti_Err: 
    MsgBox Error$ 
    Resume Aspiranti_Exit 

End Function 



End Sub 

Answer 1

あなたはSubの内部にネストFunctionを持って

With CodeContextObject 
    If (.F27 <> "") Then 
     TempVars.Add "Perem27", .F27 
    Else 
     TempVars.Add "Perem27", "*" 
    End If ' <<<== missing ? 
    If (.F28 <> "") Then 
     TempVars.Add "Perem28", .F28 
    Else 
     TempVars.Add "Perem28", "*" 
    End If ' <<<== missing ? 
    If (.F29 <> "") Then 
     TempVars.Add "Perem29", .F29 
    Else 
     TempVars.Add "Perem29", "*" 
    End If 
    DoCmd.SetFilter "", "[N ruk] Like [TempVars]![Perem27] And [Spec VAK] Like [TempVars]![Perem28] And Year([Date]) Like [TempVars]![Perem29]", "" 
    If (Forms!Asperant.CurrentRecord = 1 And Forms!Asperant.NewRecord = -1) Then 
     Beep 
     MsgBox "Ne naideno!", vbOKOnly, "Vnimanie!" 
     DoCmd.ShowAllRecords 
    End If 
End With 

Answer 2

2を欠場 "した場合終了" するように見えます。あなたはVBAでそれをすることはできません。これはあなたのボタンのクリックハンドラであると考えられる場合は、ライン

Function Aspiranti() 

と

End Function 

ない場合は、行を削除し

Private Sub Button160_Click() 

と

End Sub