[Resolvido]Colocando condição para 3 if para a mesma tabela

Meu amigos muito boa tarde.
Para não precisar de colocar 2 botões para cada função estou querendo colocar 3 condição para meu if e não esta dando cert.
O objetivo da minha logica:
O primeiro If é verificar se o campo principal esta vazio, caso esteja ele para. (aqui OK)
O segundo If é inserir o usuário e 1 acompanhante (aqui OK)
O terceiro é inserir o usuário mais 2 acompanhantes

Dim sSQL As String
Dim DB As Database
'''''''''''Inseri com 1 acompanhante'''''''''''

'''''''''''Inseri com 2 acompanhante'''''''''''
Dim sSQL1 As String
Dim DB1 As Database

On Error GoTo trata_erro

If IsNull(Me.NdeAcompanhantes) Then
MsgBox "Informe o número de acompanhamtes", vbInformation, "TFD"
Me.NdeAcompanhantes.BackColor = vbRed
Exit Sub
ElseIf Me.NdeAcompanhantes = 1 Then
Set DB = CurrentDb
sSQL = "INSERT INTO tb_encaminhamento"
'CAMPOS----------------------------------------
sSQL = sSQL & "("
sSQL = sSQL & " IdUsuario"
sSQL = sSQL & ",Acompanhante"
sSQL = sSQL & ",CNS"
sSQL = sSQL & ",DataMarcada"
sSQL = sSQL & ",horasDoEncaminhamento"
sSQL = sSQL & ",Local"
sSQL = sSQL & ",EnderecoDoACompanhante"
sSQL = sSQL & ",CnsUsuario"
sSQL = sSQL & ",Procedimento"
sSQL = sSQL & ")"
'VALORES -------------------------------------
sSQL = sSQL & " VALUES"
sSQL = sSQL & "("
sSQL = sSQL & " '" & Trim(Me.txtIdUsuario.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.cboAcompanhanteDoUser.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtCNSAcomp.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtDataDoEncaminhamento.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtHoraDoEncaminhamento) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtDestino) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtEnderecoAcomp) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtCNSAcomp) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtProcedimento) & "'"
sSQL = sSQL & ")"
DB.Execute sSQL
MsgBox "Usuário encaminhado com sucesso!", vbInformation, "TFD"
DoCmd.PrintOut acPages, 1, 1, , 1 '<--vai a quantidade de cópias

'*****************************'Insere com 1 acompanhante*************************
'*****************************'Insere com 2 acompanhante*************************

ElseIf Me.NdeAcompanhantes = 2 Then
Set DB1 = CurrentDb
sSQL1 = "INSERT INTO tb_encaminhamento"
'CAMPOS----------------------------------------
sSQL = sSQL & "("
sSQL = sSQL1 & " IdUsuario"
sSQL = sSQL1 & ",Acompanhante"
sSQL = sSQL1 & ",CNS"
sSQL = sSQL1 & ",DataMarcada"
sSQL = sSQL1 & ",horasDoEncaminhamento"
sSQL = sSQL1 & ",Local"
sSQL = sSQL1 & ",EnderecoDoACompanhante"
sSQL = sSQL1 & ",CnsUsuario"
sSQL = sSQL1 & ",Procedimento"
sSQL = sSQL1 & ")"
'VALORES -------------------------------------
sSQL = sSQL & " VALUES"
sSQL = sSQL & "("
sSQL = sSQL & " '" & Trim(Me.txtIdUsuario.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.cboAcompanhanteDoUser.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtCNSAcomp.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtDataDoEncaminhamento.Value) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtHoraDoEncaminhamento) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtDestino) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtEnderecoAcomp) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtCNSAcomp) & "'"
sSQL = sSQL & " ,'" & Trim(Me.txtProcedimento) & "'"
sSQL = sSQL & ")"

'2º acompanhatesSQL1 = sSQL1 & " VALUES"
sSQL1 = sSQL1 & "("
sSQL1 = sSQL1 & " '" & Trim(Me.txtIdUsuario.Value) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.cboAcompanhte2.Value) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtCNSAcomp2.Value) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtDataDoEncaminhamento.Value) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtHoraDoEncaminhamento) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtDestino) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtEnderecoAcomp) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtCNSAcomp2) & "'"
sSQL1 = sSQL1 & " ,'" & Trim(Me.txtProcedimento) & "'"
sSQL1 = sSQL1 & ")"
DB.Execute sSQL
Me.Requery
MsgBox "Usuario encaminhado." & vbCrLf & "Imprimir", vbInformation, "TFD"
DoCmd.PrintOut acPages, 1, 1, , 1 '<--vai a quantidade de cópias
trata_erro:
Else
End If
End Sub

up

up em menos de 24 horas?

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Boas....

Apenas uma sugestão....trabalhe nesse caso com a clausula.....Select case.

Crysostomo bom dia,

Mande copia do seu bd com as partes envolvidas para análise e solução.

OBS: Olhando o código que vc postou, já tem um erro de sintaxe:
- Você está concatenando variáveis diferentes

sSQL = sSQL1 & ",EnderecoDoACompanhante"


[]'s

FIM

Alexandre boa tarde. Ontem a noite refiz ela toda de novo e continuou dando erro.
Assim que chegar há noite eu postarei.

Boa noite Alexandre.
O porque o erro disso, se eu jogo ele para outra tabela ele grava se para mesma tabela ele não grava.
drive.google.com/drive/folders/1YLNqe3tIm23BYpFm7Uj5zmXwQsAThB5T?usp=sharing

Ok Crysostomo.
Vou baixar o exemplo e analisar.

Valeu

Olá Crysostomo,

Baixei seu exemplo e analise as tabelas e está tudo equivocado.

O sistema possui uma tabela chamada "tb_encaminhamento", que existem campos do Acompanhante do usuário que está sendo encaminhado.
E também tem uma tabela chamada "tbAcompanhante", que também possui os campos do Acompanhante do Encaminhado.

Se voce já tem uma tabela de Acompanhantes, não é necessário gravar os dados deles na tabela de Encaminhamento.

A instrução SQL do formulário pretende executar o INSERT na tabela quando houver 2 acompanhantes, e do jeito que está, ela vai gravar 2 registros de um mesmo Encaminhado.

E o formulário de encaminhamento é usado como relatório? É isso?

OBS: Alguns campos que representam Data estão definidos como Texto Curto.

Muito confuso !!!

É necessário arrumar algumas coisas antes de te ajudar.

=== SUGESTÕES/RECOMENDAÇÕES ====

1 - Arrumar a tabela de Encaminhamento, e deixar somente os campos pertinentes ao encaminhamento do usuário, conforme abaixo:



2 - Ajustes os campos das tabelas abaixo:



Obs.: Se os campos do tipo Data estiverem como Texto, será necessário convertê-los para data ao realizar cálculos como Idade, Nro de dias de um determinado periodo e etc.

Se pretende desenvolver sistemas e aplicações de forma correta, é necessário utilizar os recursos do software de forma correta.

Separe as coisas.

- Formulários são para "input" e atualizações de dados.
- Relatórios são objetos destinados à exibir os dados imputados pelos formulários

É isso!!

[]'s

FIM

Vou dar uma olhada nisso. Logo mais a noite vou enxugar e te retorno.

Gilliard boa noite,

Me ajuda a entender o processo.
Os dados são realizados nesta sequencia?

1 - Cadastro de Usuários
2 - Cadastro de Acompanhantes
3 - Cadastro de Encaminhamento

É isso?

[]'s

FIM

Correto.

Teu sistema já possui o Cadastro de Usuário e de Acompanhantes?

Sim.

Ok...beleza...

Vou ajustar o Cadastro de Encaminhamento e criar um relatório para impressão.
Assim que eu terminar, eu compartilho aqui.

É isso

Valeu

Gilliard,

O limite máximo de acompanhates é 2?

Giliard,

Fiz algumas alterações necessárias no teu sistema.

Tela de Encaminhamento:


Relatorio de Encaminhamento:


Veja se é isso que vc precisa.

Segue versão.

[]'s

FIM

Boa tarde Alexandre. Estou em viagem.
Assim que chegar estarei respondendo.
Desde já obrigado.
Ficou muito top o visual.

Chegando aqui no escritório de um colega, ficou muito bom. Obrigado Alexandre.
Erei adaptando, vou mexer nas outras páginas e a noite entrarei na estrada de novo.
Bom final de semana e feriado para nós.

Valeu Gilliard,

O fórum agradece.
Sucesso !!!