MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Else sem If (Diferente)

    Compartilhe

    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/01/2013

    [Resolvido]Else sem If (Diferente)

    Mensagem  cleitonOliveira em Sex 29 Abr 2016, 18:13

    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


    Última edição por cleitonOliveira em Sab 30 Abr 2016, 04:37, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  ahteixeira em Sex 29 Abr 2016, 18:17

    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

    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/01/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  cleitonOliveira em Sex 29 Abr 2016, 18:23

    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...

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  ahteixeira em Sex 29 Abr 2016, 19:33

    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  ahteixeira em Sex 29 Abr 2016, 19:37

    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

    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/01/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  cleitonOliveira em Sex 29 Abr 2016, 20:53

    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...

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  ahteixeira em Sex 29 Abr 2016, 23:45

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

    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/01/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  cleitonOliveira em Sab 30 Abr 2016, 04:42

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]Else sem If (Diferente)

    Mensagem  ahteixeira em Sab 30 Abr 2016, 11:57

    Olá Marcos, obrigado pelo retorno.

    Não se esqueça de dar o tópico como resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

      Data/hora atual: Sab 03 Dez 2016, 04:37