Tenho esse código do meu botão salvar!

 

 

 

 

Private Sub mnSalvar_Click()
If Len(txtaluno.Text) = 0 Then
    MsgBox "É necessário Prencher o Nome do Aluno!!", vbInformation, "Aviso!"
txtaluno.SetFocus
Exit Sub
End If

If Len(txdata.Text) = 0 Then
    MsgBox "É necessário Prencher a Data!!", vbInformation, "Aviso!"
txtdata.SetFocus
Exit Sub
End If

If Len(txtvalor.Text) = 0 Then
    MsgBox "É necessário Prencher o Valor!!", vbInformation, "Aviso!"
txtvalor.SetFocus
Exit Sub
End If

If Len(txtendereco.Text) = 0 Then
    MsgBox "É necessário Prencher o Endereço!!", vbInformation, "Aviso!"
txtendereco.SetFocus
Exit Sub
End If

If Len(txtbairro.Text) = 0 Then
    MsgBox "É necessário Prencher o Bairro!!", vbInformation, "Aviso!"
txtbairro.SetFocus
Exit Sub
End If

If Len(txtcep.Text) = 0 Then
    MsgBox "É necessário Prencher o CEP!!", vbInformation, "Aviso!"
txtcep.SetFocus
Exit Sub
End If

If Len(txtnascimento.Text) = 0 Then
    MsgBox "É necessário Prencher a Data de Nascimento!!", vbInformation, "Aviso!"
txtnascimento.SetFocus
Exit Sub
End If

On Error GoTo ErroNovo
Aficha_individual.BeginsTrans
ficha_individual.AddNew
If Len(txtaluno.Text) <> 0 Then
    ficha_individual!aluno = UCase$(txtaluno.Text)
   
 If Len(txtdata.Text) <> 0 Then
    ficha_individual!dat = UCase$(txtdata.Text)
   
If Len(txtvalor.Text) <> 0 Then
    ficha_individual!valor = UCase$(txtvalor.Text)
   
 If Len(txtendereco.Text) <> 0 Then
    ficha_individual!endereco = UCase$(txtendereco.Text)
   
          
  If Len(txtbairro.Text) <> 0 Then
    ficha_individual!bairro = UCase$(txtbairro.Text)
   
     
  If Len(txtcep.Text) <> 0 Then
    ficha_individual!cep = UCase$(txtcep.Text)
   
        

  If Len(txtnascimento.Text) <> 0 Then
    ficha_individual!nascimento = UCase$(txtnascimento.Text)
   
    ficha_individual.Update
    Aficha_individual.CommitTrans
    ExibirDados
    On Error GoTo 0
    txtaluno.Text = Empty
    txtdata.Text = Empty
    txtvalor.Text = Empty
    txtendereco.Text = Empty
    txtbairro.Text = Empty
    txtcep.Text = Empty
Set Tbficha_individual = ficha_individual.OpenRecordset()
Exit Sub

ErroNovo:
        Dim Aviso As Integer
        Aviso = MsgBox("Erro ao Acessar os Dados!", vbInformation, "Aviso!")
       
        If Aviso = vbCancel Then
        Aficha_individual.Rollback
       
        On Error GoTo 0
       
        Exit Sub
        End If
        Resume
      
End Sub

 

 

O Problema é que quando tento salvar dá esse erro:

Aguém poderia me ajudar com isso!

 

(Compile Error:

Block If Without End If )

 

Você esta esquecendo de fechar if com end if

If Len(txtaluno.Text) <> 0 Then
    ficha_individual!aluno = UCase$(txtaluno.Text)
end if   
 If Len(txtdata.Text) <> 0 Then
    ficha_individual!dat = UCase$(txtdata.Text)
  end if    
If Len(txtvalor.Text) <> 0 Then
    ficha_individual!valor = UCase$(txtvalor.Text)
 end if      
 If Len(txtendereco.Text) <> 0 Then
    ficha_individual!endereco = UCase$(txtendereco.Text)
 end if      
           
  If Len(txtbairro.Text) <> 0 Then
    ficha_individual!bairro = UCase$(txtbairro.Text)
 end if      
      
  If Len(txtcep.Text) <> 0 Then
    ficha_individual!cep = UCase$(txtcep.Text)
    end if