MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Else sem If (Diferente)

    Compartilhe
    avatar
    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    cleitonOliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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: Qua 20 Set 2017, 20:55