[Resolvido]Erro de compilação: Else sem if

Connekta Informatica 17/1/2017, 21:21

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº1

[Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 17/1/2017, 21:21

Boa Noite, estou tentando fazer funcionar 3 else em uma função, mas esta com erro. Alguém pode me ajudar?

Código:: Private Sub btnSalvar_Click() Dim NovoCod, SeqCod As String NovoCod = 1 If IsNull(Me.txtCategoria) Or Me.txtCategoria = "" Then MsgBox "Por favor, digite uma Categoria!", vbCritical, "Aviso" Me.txtCategoria.SetFocus 'Verifica se o campo da tabela esta vazio ElseIf IsNull(DLookup("ID", "tbl_CadCategorias")) Then 'Salva os dados na tabela CurrentDb.Execute "Insert Into tbl_CadCategorias (ID,Categoria) VALUES ('" & NovoCod & "','" & Me.txtCategoria & "')" MsgBox "Categoria inserida com sucesso!", vbInformation, "Aviso" Me.ListCategoria.Requery Call LimparCampos Else SeqCod = DLast("ID", "tbl_CadCategorias") + 1 'Salva os dados na tabela CurrentDb.Execute "Insert Into tbl_CadCategorias (ID,Categoria) VALUES ('" & SeqCod & "','" & Me.txtCategoria & "')" MsgBox "Categoria inserida com sucesso!", vbInformation, "Aviso" Me.ListCategoria.Requery Call LimparCampos End If ElseIf DCount("ID", "tbl_CadCategorias", "ID =" & Me.txtCodigo & "") > 0 Then MsgBox "Atualiza" End If End If End Sub

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Alvaro Teixeira** 18/1/2017, 05:32

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº2

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Alvaro Teixeira 18/1/2017, 05:32

Olá, é no que dá não usar a indentação.
Veja como fica quando usamos:

Código:: Private Sub btnSalvar_Click() Dim NovoCod, SeqCod As String NovoCod = 1 If IsNull(Me.txtCategoria) Or Me.txtCategoria = "" Then MsgBox "Por favor, digite uma Categoria!", vbCritical, "Aviso" Me.txtCategoria.SetFocus 'Verifica se o campo da tabela esta vazio ElseIf IsNull(DLookup("ID", "tbl_CadCategorias")) Then 'Salva os dados na tabela CurrentDb.Execute "Insert Into tbl_CadCategorias (ID,Categoria) VALUES ('" & NovoCod & "','" & Me.txtCategoria & "')" MsgBox "Categoria inserida com sucesso!", vbInformation, "Aviso" Me.ListCategoria.Requery Call LimparCampos Else SeqCod = DLast("ID", "tbl_CadCategorias") + 1 'Salva os dados na tabela CurrentDb.Execute "Insert Into tbl_CadCategorias (ID,Categoria) VALUES ('" & SeqCod & "','" & Me.txtCategoria & "')" MsgBox "Categoria inserida com sucesso!", vbInformation, "Aviso" Me.ListCategoria.Requery Call LimparCampos End If If DCount("ID", "tbl_CadCategorias", "ID =" & Me.txtCodigo & "") > 0 Then MsgBox "Atualiza" End If End Sub

No código que postei, alterei onde tinha ELSEIF, por IF, pois já estava fora do bloco do primeiro IF.
Também retirei um ENDIF a mais, verifique se é assim que pretende.

Não esquecer Indentação, veja abaixo :
https://www.maximoaccess.com/t10040-resolvidoerro-de-compilacao-else-sem-if
Abraço

**Noobezinho** 18/1/2017, 05:33

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº3

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Noobezinho 18/1/2017, 05:33

Postamos juntos Alvaro Wink

Resolvi tirar minha postagem!

Abração !

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

**Alvaro Teixeira** 18/1/2017, 05:38

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº4

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Alvaro Teixeira 18/1/2017, 05:38

É verdade Amigo Noob!
Estamos cá pela mesma causa Wink

, Abraço enorme.

Aguardamos o retorno do colega.
Membro desde 2011, vamos ver se inicia Identação no código.
cheers

Connekta Informatica 27/1/2017, 14:14

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº5

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 27/1/2017, 14:14

Uma dúvida ...

Como eu faço para que o botão "btnSalvar" Adicione e Atualize os dados?

Bom, tem a tabela "tbl_OS" onde o campo "ID" é tipo "Número" e seu valor padrão "0". E no meu formulário tenho o botão "btnSalvar" e ao clicar nele quero que ele tenha a seguinte função:

Verificar se o código do campo "txtCodigo" já exista na tabela, se existir Atualize os dados que esta no formulário; Caso não exista adicione os dados na tabela.

Como posso fazer isso?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Alvaro Teixeira** 28/1/2017, 07:57

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº6

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Alvaro Teixeira 28/1/2017, 07:57

Olá a todos,

Connekta Informatica, como ficou o Else sem if Shocked

Connekta Informatica 28/1/2017, 22:03

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº7

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 28/1/2017, 22:03

Funcinou! Mas não esta dando por que o campo "txtCodigo" esta em branco, ai da erro de compilação.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Alvaro Teixeira** 29/1/2017, 00:14

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº8

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Alvaro Teixeira 29/1/2017, 00:14

Olá, seria melhor dizer qual o erro que está a dar na compilação.
Abraço

Connekta Informatica 29/1/2017, 09:25

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº9

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 29/1/2017, 09:25

Erro em tempo de execução '3075'. Erro de sintaxe (operador faltando) na expressão de consulta 'IS ='.

Código:: Dim NovoCod, SeqCod As String NovoCod = 1 If IsNull(Me.txtCliente) Or Me.txtCliente = "" Then MsgBox "Por favor, selecione o Nome do Cliente!", vbCritical, "Aviso" Me.txtCliente.SetFocus Else If DCount("ID", "tbl_OS", "ID =" & Me.txtCodigo & "") > 0 Then MsgBox "Atualiza os dados" ElseIf IsNull(DLookup("ID", "tbl_OS")) Then 'Salva os dados na tabela CurrentDb.Execute "Insert Into tbl_OS (ID, ID_Cliente, DataCadastro, DataEntrega, HoraEntrega, PrevisaoConclusao, DataConclusao, " & _ "HoraConclusao, IDAtendente, ProblInfoCliente, ProblIndTecnico) VALUES ('" & NovoCod & "', '" & Me.txtCliente & "', " & _ "'" & Me.txtDataCadastro & "', '" & Me.txtDataEntrega & "', '" & Me.txtHoraEntrega & "', '" & Me.txtPrevisaoConclusao & "')" MsgBox "OS inserida com sucesso!", vbInformation, "Aviso" 'Me.ListCategoria.Requery 'Call LimparCampos Else SeqCod = DLast("ID", "tbl_OS") + 1 CurrentDb.Execute "Insert Into tbl_OS (ID,ID_Cliente, DataCadastro, DataEntrega, HoraEntrega, PrevisaoConclusao, DataConclusao, " & _ "HoraConclusao, Situacao, IDAtendente, ProblInfoCliente, ProblIndTecnico) VALUES ('" & SeqCod & "','" & Me.txtCliente & "', " & _ "'" & Me.txtDataCadastro & "', '" & Me.txtDataEntrega & "', '" & Me.txtHoraEntrega & "', '" & Me.txtPrevisaoConclusao & "')" MsgBox "OS inserida com sucesso!", vbInformation, "Aviso" 'Me.ListCategoria.Requery 'Call LimparCampos End If End If

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Noobezinho** 29/1/2017, 09:36

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº10

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Noobezinho 29/1/2017, 09:36

Olá

O trecho que colocou não tem esse erro.

Verifique no teu aplicativo, ONDE está o erro.

Acredito que o erro está em qualquer local onde ao invés de ser IS=, seja ID=

[ ]'s

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

Connekta Informatica 29/1/2017, 13:59

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº11

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 29/1/2017, 13:59

Bom, dê uma olha frm_OS ao clicar no botão btn_Salvar.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Noobezinho** 29/1/2017, 16:31

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº12

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Noobezinho 29/1/2017, 16:31

Você escreveu:

"Erro em tempo de execução '3075'. Erro de sintaxe (operador faltando) na expressão de consulta 'IS ='."

Deixei-me levar pelo o erro que estava na frase.

Substitua a parte do código pelo código abaixo:

DCount("ID", "tbl_OS", "ID = " & Me.txtCodigo)

[ ]'s

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

Connekta Informatica 15/2/2017, 13:16

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº13

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Connekta Informatica 15/2/2017, 13:16

Ok, resolvido, muito obrigado!

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Noobezinho** 15/2/2017, 14:41

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº14

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Noobezinho 15/2/2017, 14:41

Ótimo!

Valeu o retorno !!

Boa sorte!!

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº15

Re: [Resolvido]Erro de compilação: Else sem if

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Erro de compilação: Else sem if

[Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Re: [Resolvido]Erro de compilação: Else sem if

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada