MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Formulas em código VBA

    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Sex 02 Nov 2018, 14:24

    Boa tarde a todos

    Agora estou com este problema:

    Já inseri este código e está a dar erro, alguem me pode ajudar?

    Insert Into Tbl_Movimento_da_Pernoita(Nome, Idade, Género, Especialidade_Cirúrgica, Cirurgião, Intervenção_Cirurgica, Data_Pernoita)Select (Nome, Idade, Genero, Especialidade_Cirurgica, Cirurgiao, Intervenção_Cirurgica, Data_Entrada_Recobro)From Tbl_Resgisto_Recobro.

    Ou terei que por tambem "CmdRunSql" antes do Insert Into

    Abraço a todos
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3136
    Registrado : 21/04/2011

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  Marcelo David em Sex 02 Nov 2018, 14:34

    Boa tarde,

    Se está no construtor de consultas, não precisa, deve funcionar ao executar a consulta.
    Agora, se está no VBA, pode fazer assim:

    Código:
    CurrentDb.Execute "Insert Into Tbl_Movimento_da_Pernoita(Nome, Idade, Género, Especialidade_Cirúrgica, Cirurgião, Intervenção_Cirurgica, Data_Pernoita)Select (Nome, Idade, Genero, Especialidade_Cirurgica, Cirurgiao, Intervenção_Cirurgica, Data_Entrada_Recobro)From Tbl_Resgisto_Recobro.", dbFailOnerror


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Sex 02 Nov 2018, 14:41

    Boa tarde

    Não amigo, inserir esta formula, num Btn de comando que ao clicar, eu quero ele passa directamente os dados  para a outra tabela.
    mas está a dar erro.




    Um abraço
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3136
    Registrado : 21/04/2011

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  Marcelo David em Sex 02 Nov 2018, 14:51

    Qual erro?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Sex 02 Nov 2018, 15:23

    posso por a base, para o amigo ver.

    Um abraço
    Anexos
    [Resolvido]Formulas em código VBA AttachmentRecobro Teste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (245 Kb) Baixado 9 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3136
    Registrado : 21/04/2011

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  Marcelo David em Sex 02 Nov 2018, 15:59

    Vou sair, a noite, ao voltar, posto as alterações.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 366
    Registrado : 25/02/2016

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  FranklinJSP em Sex 02 Nov 2018, 19:13

    Oi CPimenta

    Primeiro: Não é bom usar espaços no nome do campo dos bancos de dados.
    Segundo: Não use acentos ou caracteres como "ç ã ê " e outros no nome do campo

    Eu espero que seja o que você precisa

    Saludos desde Bolivia


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6806
    Registrado : 15/03/2013

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  ahteixeira em Sex 14 Jun 2019, 03:43

    Olá a todos,

    Carlos Pimenta, como ficou a situação?
    Os membros do fórum merecem e agradecem o retorno.

    Abraço a todos
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Sex 14 Jun 2019, 10:24

    Boa tarde

    Peço desculpa, pelo atraso, relativamente ao post que fiz, está quase resolvido, mas agora estou com problema que tenho 2 form que vão buscar a informação a duas Cons, e não consigo por a fncionar 2 caixa de combinação.

    Um abraço a todos que me tem ajudado.

    Carlos Pimenta
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6806
    Registrado : 15/03/2013

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  ahteixeira em Sab 15 Jun 2019, 09:35

    Olá a todos,

    Carlos Pimenta,
    Se a dúvida esta relacionada com o tópico dê mais detalhes para se verificar.
    Caso contrário, dê o tópico como Resolvido e abra novo tópico para a dúvida.

    Abraço a todos
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Codigo VBA

    Mensagem  CPimenta em Seg 17 Jun 2019, 09:07

    Boa tarde

    Segue a base para dar uma vista de olhos.

    Muito obrigado a todos.

    Um Grande Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6806
    Registrado : 15/03/2013

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  ahteixeira em Seg 17 Jun 2019, 09:41

    Olá Carlos,

    Deve dar mais detalhes do que está acontecer (onde) e o que pretende.

    Abraço a todos
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Ter 18 Jun 2019, 12:32

    Boa tarde amigos

    O que acontece é que em dois formulários não consigo adicionar nenhuma informação, ou seja, os Form_Domicilio e Form_Serv_Domici, estão como a origem dos dados atraves da Cons_Domicilio e Cons_Serv_domicilio, e já tentei de todo mas não consigo que seja adicionada a restante informação, será que tenho que por que a origem dos dados têm que ser atraves das tabelas, mas se for não consigo inserir as formulas para que sejam copiados os dados necessários.

    Um abraço a todos

    Carlos Pimenta
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  Silvio em Ter 18 Jun 2019, 12:44

    A origem de dados qualquer formulário....tem que ser e deve ser as tabelas em questão !!!

    No formulário em questão...ir para:
    1- folha de propriedades.
    2- aba Dados.
    3- fonte de registro...chama o construtor de consulta. Coloque todos os campos necessários nessa consulta que vai ser criada.
    4- coloque tuas formulas nos campos dessa consulta criada.

    Teste e nos informe.


    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Ter 18 Jun 2019, 13:27

    Boa tarde

    Tentei por o codigo seguinte:

    Me.Processo_Clinico = DLookup ("ProcessoClinico", "TabRegistroRecobro")

    e não deu
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 12/01/2015

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  renpv em Ter 18 Jun 2019, 14:27

    A função DLookup retorna o valor de um único campo com base nas informações especificadas nos critérios. Embora o critério seja opcional, se você não fornecer um valor para critérios, a função DLookup retorna um valor aleatório na tabela consultada.

    Se nenhum registro satisfizer os critérios ou a tabela não contiver registros, a função DLookup retorna Nulo.

    Se mais de um campo atende aos critérios, a função DLookup retornará a primeira ocorrência. Você deve especificar critérios que garante que o valor do campo retornado pela função DLookup seja exclusivo.

    Aí eu pergunto: O que você espera que retorne? Você já tentou pelo menos jogar esse valor num msgbox?
    avatar
    CPimenta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Formulas em código VBA Empty Re: [Resolvido]Formulas em código VBA

    Mensagem  CPimenta em Seg 24 Jun 2019, 09:50

    Boa tarde

    Valeu pela dicas, ficou a funcionar.

    Um grande abraço

      Data/hora atual: Seg 03 Ago 2020, 13:40