[Resolvido]atualizar tabela não vinculada

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.

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

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]

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