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]atualizar tabela não vinculada

    avatar
    costa256
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/01/2019

    [Resolvido]atualizar tabela não vinculada Empty [Resolvido]atualizar tabela não vinculada

    Mensagem  costa256 24/10/2022, 09:40

    Amigos.

    Mais uma vez precisando de uma ajuda de vocês.


    Vou tentar simplificar ao máximo.

    Tenho um formulário com 8 botões que faz um impressões aleatórias conforme o "Tipo" escolhido. A tabela vinculada tem os campos: Registro; Nome do texto; Autor; Tipo de Texto.

    Os "Tipos de Texto" podem ser: Poema, Poesia, Conto..  Então, quando eu clico no botão "Poema", sai uma impressão de um poema aleatório.  Até í está tudo blz. funcionando de boa.

    O que eu quero é fazer um contador para saber, por exemplo, quantos "POEMAS" foram impressos, quantas "POESIAS" foram impressas..

    Então criei uma tabela (tbl_Contador) com uma coluna para cada tipo de texto: POEMA; POESIA; CONTO; CORDEL; etc

    Essa tabela só tem ima linha, que deve receber uma contagem conforme o tipo de texto impresso., Mas essa tabela não tem vínculo com o formulário.

    Então, como posso fazer para cada vez que eu clicar no botão "POEMA", o BD acrescente +1 lá na linha 1 da coluna correspondente do "POEMA".


    Já deixo aqui o meu agradecimento pela ajuda.
    avatar
    RomildoPS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/06/2012

    [Resolvido]atualizar tabela não vinculada Empty Re: [Resolvido]atualizar tabela não vinculada

    Mensagem  RomildoPS 24/10/2022, 10:07


    Olá!! Da uma olhada neste!

    Coloca o código abaixo no botão "POEMA"


    ' Lista o ultimo
    Me.Nome_campo = DLast("[Nome_campo]", "Nome_tabela", "[Campo_ID] = Campo_ID")


    Me.Nome_campo = Me.Nome_campo + 1
    avatar
    costa256
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/01/2019

    [Resolvido]atualizar tabela não vinculada Empty Re: [Resolvido]atualizar tabela não vinculada

    Mensagem  costa256 24/10/2022, 10:40

    Caro amigo Romildo.

    Acredito que eu não tenha explicado corretamente o que eu preciso.

    o sistema tem a tabela de texto (tbl_Cadastro) o formulário está vinculado a essa tabela.

    a tabela "tbl_contador" não tem nenhum vínculo com o formulário. Essa tabela deve apenas receber "+1" na coluna correspondente.


    então, gostaria de inserir no botão um código tipo "update table", direcionando para a tabela "tbl_contador" e que somasse +1 na coluna correspondente. Essa table é integer.

    [https://i.servimg.com/u/f71/20/45/80/46/sem_tz10.jpg]

    avatar
    costa256
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/01/2019

    [Resolvido]atualizar tabela não vinculada Empty Re: [Resolvido]atualizar tabela não vinculada

    Mensagem  costa256 25/10/2022, 12:14

    Caros amigos.

    Já deixo aqui o meu agradecimento de sempre.

    No meu caso resolvi da seguinte forma:

    X = DLookup("Nome da coluna", "tbl_Contador", "Código=" & VarCod)

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Contador SET tbl_Contador.nome da coluna = '" & X + 1 & "'" & " WHERE Código = " 1 ";"
    DoCmd.SetWarnings True

    RomildoPS gosta desta mensagem


      Data/hora atual: 1/12/2022, 20:13