[Resolvido]Subtrair dados de um Registro em um Campo ao clicar em um Botão

Olá caros mestres! Venho aqui humildemente pedir aos senhores(as) que tem mais conhecimento na área de programação Accdb uma ajuda para eu conseguir resolver um problema que venho tentando a dias.

Estou montando um Bd de marcação de consultas, daí queria que quando pressionasse o btn Salvar do meu Form, pegasse o profissional selecionado e subtraísse -1 da quantidade de vagas disponibilizadas pelo Usuário do bd, sendo que quando chegasse a 0, exibisse uma msgbox: Vagas esgotadas para o Profissional desejado.
Fiz as alterações nas tabelas, na qual se eu digitar o valor manualmente no Campo VagasUsadas, o valor 1 ou qualquer outro número, automaticamente em VagasDisponiveis irá exibir o resultado subtraído; mas daí a intenção seria acoplar essa função de subtrair a Quantidade de Vagas por -1 pelo Botão (txtSalvar) do Form "SistemadeMarcações" q está vinculado ao Form "VagasMedico". pra quando zerar a quantidade, fosse exibido uma msg.

Talvez que tem mais conhecimento seja simples, mas pra mim que sou pouco sábio na área de programar, estou quebrando cabeça totalmente. Devido a isto venho pedir a quem puder me ajudar serei muito Grato pela colaboração.

Obs.: já fui nos repositórios e não consegui encontrar algo que fizesse essa função, talvez não procurei com extrema perícia.

"Que o desejo de ajudar o próximo consiga sempre superar o egoísmo e falta de esperança no ser humano"


Segue o link do exemplo do Bd:

https://www.dropbox.com/s/qnqerjtfc3xn7fo/SISGAM.zip?dl=0

Euler, no seu caso basta add esse codigo no botão salvar:

CurrentDb.Execute "UPDATE Tbl_VagasMedico SET VagasUsadas=" & Me.VagasUsadas & "+1 WHERE Profissional = '" & Me.txtProf.Column(1) & "'"

Observe que nesse caso eu atualizo o campo VagasUsadas. Colocando a quantidade de vagas Utilizadas e +1. Filtrando pelo nome do Profissional! que esta na coluna (1) do campo txtProf.

Caro amigo Fabio Paes, era isso mesmo que precisava inserir, quem sabe faz ao vivo, deu certinho com que estava a dias tentando fazer.
Só mais um pedido se não fosse abusar da vossa sabedoria; queria limitar o uso quando chegasse a 0 houvesse uma msgbox informando que esgotaram as vagas. tipo um caso If, com o Else impedindo marcar se estivesse com 0 vagas.

Muito Obrigado, Deus abençoe sua inteligência!

Opa, sim...

Basta no evento apos atualizar do campo txtProf colocar:

Código:

Private Sub txtProf_AfterUpdate()
If Me.QtdeDisponível < 1 Then
MsgBox "Profissional ja lotado! Selecione outro Médico", vbInformation
Me.undo
End If
End Sub

Bem meu Caro amigo , só tenho humildemente à te agradecer pelas Dicas prestadas para contribuir na Construção do meu Bd. Deus te abençoe mais uma vez pela sua inteligência. Estou bem perto de concluir o BD, logo irei postar no Repositório de Exemplos para que possa ajudar a mais pessoas. Muito obrigado mesmo!

Resolvidíssmo!

Bom dia
Marque o Resolvido

Grato pelo retorno amigo! Até a próxima se Deus quiser!

Boa Noite a todos, Perdão aos moderadores do Fórum por repostar em tópico Resolvido. Mas é que surgiu uma dúvida em relação ao mesmo, como o amigo FabioPaes quem me passou uma grande orientação sobre o assunto, imagino que consiga tirar essa dúvida.

Caro FabioPaes por Gentileza? Deu tudo certo em relação a subtração da quantidades em VagasUsadas, mas testando aqui o Bd percebi que houve um situação que o Sr. deve entender sobre; Quando eu Adiciono um novo Profissional no Form VagasMedico, porém com o mesmo nome, mas datas diferentes daí eu vou em Form quando SistemadeMarcações e marco em uma Data, o código no Botao Salvar subtrai nas duas Datas que crio para poder ser Agendado distintamente.
Será se há como fazer em que diferencie o Mesmo no de profissional com datas diferentes sem fazer a subtração dos dois juntos? Tentei aqui mas a sintaxe sempre dá incorreta Erro. Vou postar no link da dropbox o exemplo para q compreenda. E desde então sou muito grato pela sua Ajuda.

Segue abaixo o Link do Exemplo:

dropbox.com/s/qnqerjtfc3xn7fo/SISGAM.zip?dl=0

Euler, Mesmo apos o tópico resolvido, se surgirem duvidas pertinente ao assunto do tópico, pode reabri-lo e dar sequencia!

Nesse Caso, iremos ignorar o Nome do Medico e usarmos como critério o Campo Codigo_Medico! Pois esse não se repetirá!


Mude o comando para:

CurrentDb.Execute "UPDATE Tbl_VagasMedico SET VagasUsadas=" & Me.VagasUsadas & "+1 WHERE Cod_Profissional= " & Me.txtProf.Column(0) & ""

Faça um teste!

Fabio Mais uma vez Boa Noite! Hum então estava certo, tentei desta forma que tu postou usando como Critério o Cod_Profissional mas da erro de Sintaxe, daí mexi, fui nas relações pra conferir, eliminei-as, tirei a chave primária pra ver tirei o Under line do Cod_Profissional. Mas mesmo  assim ainda continua dando erro. Aguardo...

Sempre Grato pela ajuda de compartilhar seus conhecimentos.

Segue abaixo em axenos o print da tela de Erro:

Amigo, então tem algo diferente no seu sistema... Pois no que me passou aqui funciona normalmente!
Copiei e colei novamente o código que postei e funciona normalmente!

Nessa mensagem de erro, clique em depurar e print a tela que aparecer e posta aqui!

Ok amigo, vou dar uma mexida aqui, até conseguir. Mas muito obrigado!

Olá Boa tarde! Prestando atenção com calma vi o erro, era a Column (0), pois tava Column (1) aí dava erro mesmo. dei uma analisada direitinho.

Muito obrigado Fabio por compartilhar seus conhecimentos!

Agora o Tópico está bem resolvido. já salvei meu Bd direitinho fiz testes e deu certo graças a Deus.
vamos que vamos...

Bacana amigo!
Até a próxima se Deus quiser!