[Resolvido]Else sem If (Diferente)

Amigos, encontrei o tópico "Erro de Compilação Else sem IF" já resolvido neste fórum mas, apesar de parecido não se aplica ao meu caso e já estou batendo cabeça há um tempão e não consigo  entender pois em tudo que pesquisei não identifiquei nenhum erro... Quando executo aparece o seguinte erro "Erro de Compilação: Else sem If"  e a execução para antes de DoCmd.Close... Será que algum mestre poderia me ajudar ???



Private Sub btcCadTMembro_Click()
On Error GoTo TrataErro
DoCmd.RunCommand acCmdSaveRecord
   If (Me.Texto0 <> "") Then
       Dim db As Database, rs As Recordset
       Dim i As Integer
       Set db = CurrentDb()
       Set rs = db.OpenRecordset("tblMTMembro")
       For i = 0 To Me.Texto0 = 1
           rs.AddNew
           rs("mtmTMembro") = Me.[Texto0]
           rs.Update
           rs.Close
           db.Close
           Me.frmMTMembrosub.Requery
           Me.Texto0 = ""
   Else
       DoCmd.Close
   End If
Sair:
   Exit Sub
TrataErro
   Select Case Err.Number
       Case 3022
           MsgBox "O Tipo de Membro' informado já havia sido cadastrado...", vbInformation, "Aviso"
           [Forms]![frmMTMembroCad]![Texto0] = ""
       Case Else
           MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", _
           Err.HelpFile, Err.HelpContext
   End Select
   Resume Sair:
End Sub

Olá Cleiton, bem vindo ao fórum.
Compile o seu projecto todo e efetue compactar e reparar.
Para compilar ALT+F11 , project , compile.
Abraço

Amigo "ahteixeira" muito obrigado pela presteza, fiz o que me pediu:

primeiro compactei e reparei e depois compilei todo o projeto
depois primeiro compilei todo o projeto e depois compactei e reparei...

Em ambos os casos a mensagem é a mesma: "Erro de compilação: Else sem If"

mesmo assim, muito obrigado...

Fico no aguardo de auxílio...

Olá, crie uma base de dados nova.
Importe todos os objectos, refaça referências se tiver e teste.
Caso não consiga, poste base de dados apenas com os objectos envolvidos para podermos testar.
Abraço

Vi agora no código, falta fechar o for
....
Me.Texto0 = ""
Next
Else
...

Veja se é isso.
Estou no telemóvel , não dá para exemplificar melhor.
Abraço

Amigo ahteixeira, realmente esse era um vacilo que com sua ajuda acabei de corrigir... Mas o código não está tratando o erro... tenho que tratar o erro em caso de tentativa de inserção de registros repetidos mas o código "On Error GoTo TrataErro" não está funcionando, o tratamento que aparece é o nativo do vb.

Sem querer abusar da sua boa vontade, uma vez que já me ajudou bastante, ficaria grato se pudessem me dar uma mão nesse problema também... sem atrapalhar é claro... continuo no aguardo de auxílio de alguém... Muito Obrigado...

Olá, poste base de dados com o que tem para testar.
Abraço

Olá amigo ahteixeira, mil desculpas, mas depois que vc resolvel fechamento do for, dei mas uma olhada e o erro que tinha, creio que era o dois pontos após o trata erro... pelo menos voltou a funcionar fico grato pela atenção e lhe parabenizo pela dedicação em ajudar os que precisam na hora da angustia... espero um dia conseguir fazer o mesmo e seguir tais exemplos... Muito obrigado de coração. Valeu a ajuda.

Olá Marcos, obrigado pelo retorno.

Não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço