VBA hatası: derleme hatası: Beklenen 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

Eğer bir Sub içinde iç içe bir Function var

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

ikisini özledim "End If" gibi görünüyor. Bunu VBA'da yapamazsın. Bu Button tıklama işleyicisi olması gerekiyordu ise, çizgiler

Private Sub Button160_Click() 

ve

End Sub