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

4 participantes

    Simplificação de código 2

    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 05/11/2013

    Simplificação de código 2 Empty Simplificação de código 2

    Mensagem  Drecosalles 8/1/2015, 01:46

    Boa noite pessoal,

      Estou precisando de uma ajuda pra simplificar este código abaixo:

    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb1.Column(1) & "','" & Me.lc1.Column(0) & "', '" & Me.entra1.Value & "','" & Me.sai1.Value & "')"
    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb2.Column(1) & "','" & Me.lc2.Column(0) & "', '" & Me.entra2.Value & "','" & Me.sai2.Value & "')"
    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb3.Column(1) & "','" & Me.lc3.Column(0) & "', '" & Me.entra3.Value & "','" & Me.sai3.Value & "')"
    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb4.Column(1) & "','" & Me.lc4.Column(0) & "', '" & Me.entra4.Value & "','" & Me.sai4.Value & "')"


    Desde já agradeço a ajuda.
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    Simplificação de código 2 Empty Simplificação de código 2

    Mensagem  daniloreiis 8/1/2015, 10:11

    Olá bom dia!

    poderia disponibilizar o projeto para melhor ajuda-lo ?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 05/11/2013

    Simplificação de código 2 Empty Re: Simplificação de código 2

    Mensagem  Drecosalles 9/1/2015, 17:11

    Ola Daniel Boa tarde,

                  o Projeto é bem simples, apenas tenho um formulário vinculado a uma tabela (Dia) e no formulário vários textboxs e comboboxs, nomeados na ordem que apareceram no código:

    cb1        lc1       entra1        sai1
    cb2        lc2       entra2        sai2
    cb3        lc3       entra3        sai3
    cb4        lc4       entra4        sai4


                    O que eu quero é simplificar o que já esta funcionando, é inserir através do código enviado, os valores das textbox, combobox não vinculados na tabela dia.
    avatar
    Minato
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/01/2015

    Simplificação de código 2 Empty Simplificar

    Mensagem  Minato 9/1/2015, 23:14

    Pode cocolocar em um Modulo e Metodo separado.




    private Sub AdicionarDia(Nome as String, Localizacao as String, Chegada as String, Saida as String)

    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Nome & "','" & Localizacao & "', '" & Chegada & "','" & Saida & "')"

    end Sub

    Chamada:

    AdicionarDia(Me.cb1.Column(1), Me.cb1.Column(10), Me.Entra1, Me.Sai1)



    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 05/11/2013

    Simplificação de código 2 Empty Re: Simplificação de código 2

    Mensagem  Drecosalles 21/1/2015, 21:00

    Ola Minato desculpa a demora,


           Infelizmente não consegui fazer como você orientou, estou disponibilizando o banco de dados caso você queira me ajudar.


    Grato
    Anexos
    Simplificação de código 2 AttachmentEscala.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (166 Kb) Baixado 6 vez(es)
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 05/11/2013

    Simplificação de código 2 Empty Re: Simplificação de código 2

    Mensagem  Drecosalles 27/1/2015, 22:56



    Iai pessoal nada?!!!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3805
    Registrado : 04/04/2010

    Simplificação de código 2 Empty Re: Simplificação de código 2

    Mensagem  Avelino Sampaio 28/1/2015, 06:36

    Olá!

    Minha sugestão:

    Dim j%
    For j = 1 To 25
    If Len(Me("cb" & j).Column(1) & "") > 0 Then
    CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me("cb" & j).Column(1) & "','" & Me("lc" & j).Column(0) & "', '" & Me("entra" & j).Value & "','" & Me("sai" & j).Value & "')"
    End If
    Next


    Mais detalhes sobre referenciar objetos, neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 7/12/2022, 14:43