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


2 participantes

    [Resolvido]Como executar uma instrução SQL em VBA?

    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 30/7/2014, 15:28

    Bom dia, como executar, em VBA, essa instrução:

    INSERT INTO Hemo ( CódigoOS )
    SELECT Laudos.CódigoOS
    FROM Laudos
    WHERE (((Laudos.CódigoOS)=[Formulários]![Formulário1]![CódigoOS]));


    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 30/7/2014, 15:45

    Pode fazer o teste ao pressionar de um botão no seu form;

    Código:
    CurrentDb.excute "INSERT INTO Hemo (CódigoOS) " & vbCrLf & _
    "SELECT Laudos.CódigoOS " & vbCrLf & _
    "FROM Laudos " & vbCrLf & _
    "WHERE Laudos.CódigoOS=" & Forms!Formulário1![CódigoOS]


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 30/7/2014, 15:52

    Bom dia JPaulo, obrigado pela ajuda.

    Testei e ocorre o seguinte:

    Erro de compilação:
    Método ou membro não encontrado




    Ficando ![CódigoOS] selecionado.

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 31/7/2014, 15:12

    CódigoOS é numerico ou texto ?


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 31/7/2014, 18:01

    Olá, é numérico.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 31/7/2014, 18:26

    Então como está tem de funfar.
    Reveja se o nome do form e do campo é mesmo esse.


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 31/7/2014, 19:20

    Olá JPaulo, agora sim, funcionou. Havia tentado utilizar Docmd.RunSQL no lugar de CurrentDb.Execute, depois desfiz isso e funcionou (não sei como).

    Mas veja, como é um tipo de consulta ação, não pede para confirmar se desejo executá-la (mesmo essa opção estando marcada nas opções do Access).


    Amigo, não querendo abusar, mas dá pra me ajudar mais uma vez?

    Estou executando essa consulta no evento Ao clicar de minha combobox que lista os nomes das tabelas que preciso inserir dados. Ao clicar ela abri e inseri o dado do registro atual que preciso do meu formulário.

    Veja que uso INSERT INTO para inserir um dado na tabela Hemo.
    Há uma forma de inserir esse dado na respectiva tabela que será aberta ao clicar na combo?
    E que esse dado já apareça quando a tabela for carregada, sem que eu tenha que atualizar para ele ser exibido?


    JPaulo, muito obrigado pela ajuda.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 1/8/2014, 11:22

    Se o amigão quiser anexar aqui parte do seu banco, será mais facil de resolver isso para você.


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 1/8/2014, 12:21

    Claro, amigo. Segue o banco.

    As tabelas que quero inserir usando INSERT INTO são: Hemo, Glico e Crea (outras podem ser criadas depois).


    Obrigado
    Anexos
    [Resolvido]Como executar uma instrução SQL em VBA? AttachmentBanco de Dados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (190 Kb) Baixado 8 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 1/8/2014, 14:21

    Você não pode utilizar o procedimento ao prssionar da combo.

    Tem de utilizar o procedimento depois de atualizar, veja o simples;

    Código:
    Private Sub cboTabelas_AfterUpdate()

    Select Case Me.cboTabelas.Value
            Case Is = "FHemo"
            'Insere CódigoOS na tabela Hemo
            CurrentDb.Execute "INSERT INTO Hemo (CódigoOS) Values(" & Forms!Formulário1![CódigoOS] & ")"
            'Abre form FHemo no CódigoOS correspondente
            DoCmd.OpenForm "FHemo", , , "CódigoOS = " & Me.CódigoOS
            Case Is = "FGlico"
            'Insere CódigoOS na tabela Glico
            CurrentDb.Execute "INSERT INTO Glico (CódigoOS) Values(" & Forms!Formulário1![CódigoOS] & ")"
            'Abre form FGlico no CódigoOS correspondente
            DoCmd.OpenForm "FGlico", , , "CódigoOS = " & Me.CódigoOS
    End Select
      
    End Sub
    Anexos
    [Resolvido]Como executar uma instrução SQL em VBA? AttachmentBanco de Dados1_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 25 vez(es)


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 1/8/2014, 15:10

    Perfeito, JPaulo. Mas veja, pretendo criar mais de 20 tabelas a serem preenchidas com INSERT INTO.

    Sei que posso fazer isso com SELECT CASE, mas veja que o código ficaria muito extenso. Tem uma forma de deixá-lo menor ou não tem problema fazer assim?

    Grato

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  JPaulo 1/8/2014, 15:29

    Não tem qualquer problema fazer assim, o select case comporta muito mais.


    .................................................................................
    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]Como executar uma instrução SQL em VBA? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como executar uma instrução SQL em VBA? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Jonatan 1/8/2014, 17:39

    Muito obrigado, amigo. Realmente você e outros aqui do fórum são feras. Me ajudou muito.

    Abraços

    Conteúdo patrocinado


    [Resolvido]Como executar uma instrução SQL em VBA? Empty Re: [Resolvido]Como executar uma instrução SQL em VBA?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:48