MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


5 participantes

    [Resolvido]Problemas com Insert Into + Update

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 1/6/2012, 23:50

    Olá Amigos.
    Boa noite a todos.

    Tenho comigo alguns exemplos que funcionam perfeitamente.
    Estou tendando adaptá-los ao meu sistema mas não consigo.
    Acredito que para o pessoal aqui do forum isto é uma coisa boba. Mas não sou programador e estou a dois dias quebrando a cabeça!!!

    Estou usando:
    CurrentDb.Execute "INSERT INTO tbSub (Nome) SELECT * From Cst2"
    CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
    Me.tbSub_subformulário.Requery

    Posto também um BD de exemplo.

    Alguém sabe me dizer o que estou fazendo errado?

    Obrigado
    Anexos
    [Resolvido]Problemas com Insert Into + Update AttachmentUPDATE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 42 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  criquio 2/6/2012, 00:07

    Já tentou colocar o SELECT em um Recordset e passar o campo da tabela utilizando ele?

    Código:
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cst2 WHERE CampoTal=" & Me.TalCampo & "")

    CurrentDb.Execute "INSERT INTO tbSub(NomeCampo) VALUES('" & rs!NomeCampo & "')"

    ...

    rs.Close
    Set rs = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 2/6/2012, 00:31

    Olá Criquio.
    Como vai o amigo?

    Apaixonei-me pelo Access e tornou-se um Hoby.
    Mas sou péssimo nos fundamentos básicos.
    Gostaria muito de poder fazer um curso. Mas com 50 anos, casado, três filhos, trabalhando... fica difícil arrumar um tempinho. Mas vamos lá.
    Não consegui... Ficou assim e da erro:

    Private Sub Comando6_Click()
    Dim rs As RecordsetSet
    rs = CurrentDb.OpenRecordset("SELECT * FROM Cst1 WHERE IDSub=" & Me.Filtro & "")
    CurrentDb.Execute "INSERT INTO tbSub(Nome) VALUES('" & rs!Nome & "')"
    CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
    Me.tbSub_subformulário.Requery
    rs.CloseSet
    rs = Nothing

    End Sub


    Grato pela atenção

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  criquio 2/6/2012, 00:47

    Bom, em primeiro lugar, mude o Set de lugar. Coloque ele antes de rs = CurrentDb.OpenRecordset...:

    Private Sub Comando6_Click()
    Dim rs As RecordsetSet
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cst1 WHERE IDSub=" & Me.Filtro & "")
    CurrentDb.Execute "INSERT INTO tbSub(Nome) VALUES('" & rs!Nome & "')"
    CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
    Me.tbSub_subformulário.Requery
    rs.Close
    rs = Nothing
    End Sub


    E esse IDSub=0? É assim mesmo? O ID é 0?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 2/6/2012, 07:41

    Desculpe-me Criquio por não ter dado continuidade na seqüência. Houve um imprevisto e tive que parar. Agora são 3h30min e estou digitando num tablete. Não tenho como testar o código. Em breve faço as alterações e te retorno.

    Quanto a sua pergunta sobre o IDSub=0 , não sei responder ao certo, mas acho que sim.
    São dados inseridos num sub formulário através de uma consulta e o ID (IDSub) fica com valor 0 e depois é feito o UPDATE do ID do formulário.

    Obrigado

    Até mais.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8454
    Registrado : 05/11/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Alexandre Neves 2/6/2012, 12:14

    Bom dia, Luíz

    Não entendi a mecânica do que pretende.
    Parece-me que vai buscar dados à tbSub para a consulta e, depois, quer acrescentar os registos da consulta à tbSub. É isso? Parece-me redundante.
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 2/6/2012, 21:44

    Obrigado por sua atenção, Alexandre.

    Você tem razão! Parece ser redundante. Mas no BD original se faz necessário.

    Estou postando um novo DB de exemplo. Num Forms há 2 botões que executam o mesmo código. Um dos botões funciona e outro da erro. Qual a diferença entre eles? - Um deles busca uma consulta que há um filtro diretamente na consulta e no outro o filtro vem de um campo no forms. (Este segundo não funciona). Da erro:

    "Erro em tempo de execução 3061. Parâmetros insuficientes. Eram esperados 1."

    Alexandre, conheço muito pouco de Access. Mas uma coisa sei: Parece-me que no Access nada é impossível, logo, estou fazendo algo errado. Embarassed

    Obrigado

    Anexos
    [Resolvido]Problemas com Insert Into + Update AttachmentUPDATE 2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 88 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8454
    Registrado : 05/11/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Alexandre Neves 3/6/2012, 10:40

    Bom dia, Luíz

    Os botões não executam o mesmo código. Um deles executa a consulta Cst e o outro a consulta Cst1.
    Relativamente ao botão que executa a consulta Cst1 dar erro na execução, poderá ser porque se trata de caixa de texto desacoplada. No entanto, é desaconselhável o enredo de código. Em vez de ter uma consulta acréscimo e, depois, executar uma consulta de actualização, deve executar código que faça o pretendido numa só etapa.
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 4/6/2012, 02:05

    Desculpe-me Alexandre.
    Me expressei mal. Realmente os botões não executam o mesmo código. Executam códigos semelhantes.

    Quanto a caixa de texto desacoplada, deve ser isto. Quanto ao BD de exemplo, a parte que funciona, foi passado pelo mestre JPaulo.

    Agora fiquei perdido.
    Não sei que caminho seguir.

    Mais uma vez, muito obrigado por sua atenção.

    Abraços.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  JPaulo 4/6/2012, 09:00

    Bom dia Grande Luiz;

    Delete a 2ª consulta e passe toda a instrução para VBA, e já funfa;


    CurrentDb.Execute "INSERT INTO tbSub (Dia, Nome) SELECT tbSub.Dia, tbSub.Nome FROM tbSub WHERE tbSub.Nome='" & [Forms]![tb]![NN] & "'"



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Problemas com Insert Into + Update Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Problemas com Insert Into + Update Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Problemas com Insert Into + Update Folder_announce_new Instruções SQL como utilizar...
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 4/6/2012, 15:36

    JPaulo.
    Realmente você é o Cara!
    Parabéns pela sua competência e eficiência.
    E acima de tudo,obrigado por sua paciência.
    O código funcionou perfeitamente.
    Muito Obrigado

    Meus agradecimentos também ao Criquio e Alexandre Neves pela atenção.

    Valeu JPaulo.





    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Luiz Gustavo M 4/6/2012, 15:38

    Opss!
    Faltou o resolvido.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  JPaulo 4/6/2012, 15:38

    Isso é que preciso, é que fique resolvido e o usuário contente por mais uma batalha ganha.

    Obrigado pelo retorno, o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Problemas com Insert Into + Update Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Problemas com Insert Into + Update Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Problemas com Insert Into + Update Folder_announce_new Instruções SQL como utilizar...
    avatar
    Wallace Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 29/04/2014

    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Wallace Lima 7/5/2014, 03:54

    Olá JPaulo.
    Será que você poderia me ajudar nesse tópico abaixo:

    http://maximoaccess.forumeiros.com/t18618-formulario-login-grava-acesso-de-usuario-entrada-e-saida-problemas#138021

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Problemas com Insert Into + Update Empty Re: [Resolvido]Problemas com Insert Into + Update

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 10:55