[Resolvido]DCount + DLookup

Salve!

Senhores, estou enrrolado novamente.

Estou utilizando DCount para verificar na tabela se existe um determindo valor no campo "CodigoControle". Até aí tudo certo. Ele retorna a informaçao se o valor que busco existe ou não (esse Código peguei aqui no forum):

Tenho um campo (caixa texto) chamado "CodigoControle" e nele coloquei no BeforeUpdate:


Dim NomeOriginal As String

Private Sub CodigoControle_BeforeUpdate(Cancel As Integer)
If NomeOriginal = Me!CodigoControle Then Exit Sub
If DCount("Código", "TabelaValidaIngresso", "CodigoControle ='" & Me!CodigoControle & "'") > 0 Then
Msgbox "Codigo Cadastrado"

Else

Msgbox "Codigo Nao Cadastrado"

End If

Bom, o problema é que nessa mesma tabela existe um campo chamado "Status". E preciso atualizar esse campo para "Entrada" ou "Saida" dependendo do retorno desse Dcount.

Exemplo: Se o DCount encontra o valor que digitei no campo "CodigoControle" eu atualizo o campo "Status" para "Entrada" por exemplo.

Por favor, agradeço muito a ajuda.

Se houver outra forma de fazer, será aceito.

Obrigado.

Boa tarde, jonas

Nomeie os controlos de acordo com as melhores práticas, já enunciadas várias vezes aqui no fórum.

Será
Private Sub CodigoControle_BeforeUpdate(Cancel As Integer)
If NomeOriginal = Me!TxtCodigoControle Then Exit Sub
If DCount("Código", "TabelaValidaIngresso", "CodigoControle ='" & Me!TxtCodigoControle & "'") > 0 Then
Msgbox "Codigo Cadastrado"
currentdb.execute "UPDATE TabelaValidaIngresso SET Status='Entrada' WHERE CodigoControle ='" & Me!TxtCodigoControle & "';"
Else
Msgbox "Codigo Nao Cadastrado"
currentdb.execute "UPDATE TabelaValidaIngresso SET Status='Saída' WHERE CodigoControle ='" & Me!TxtCodigoControle & "';"
End If

Prezado Alexandre Neves,

Funcionou perfeitamente. Só tenho a agradecer.

Saúde e Paz a vocês!

Obrigado.

Novamente, jonasamado

Ainda bem que resolveu.
Sempre que der por resolvido algum tema, prima o botão adequado, localizado na zona inferior direita do formulário.
Desta, primo eu.

Alexandre,

Pode deixar, vou aprendendo aos poucos aqui.

Aproveitando, sem querer explorar muito você, como seria esse código se eu quisesse verificar mais um campo na tabela ao mesmo tempo? Uma data por exemplo? Como ficaria?

If DCount("Código", "TabelaValidaIngresso", "CodigoControle ='" & Me!TxtCodigoControle & "'") > 0 Then

Ex: Se o código existir e a data for xx/xx/xxxx, entao....

Obrigado

Bom dia, jonas

Será
If DCount("Código", "TabelaValidaIngresso", "CodigoControle ='" & Me!TxtCodigoControle & "' and CampoData #" & Me!TxtData & "#") > 0 Then
Veja, aqui no fórum, que tem muitos temas abordados sobre o assunto.

Grande Alexandre;

Peço desculpas pela demora em retornar, somente agora pude testar.

Funcionou perfeito.

Deus de Abençoe!

Obrigado.