[Resolvido]CLICK em campo atraves do VBA

Boa tarde amigos..

Tenho um campo que em determinado momento recebe o foco atraves do código:

Me.ValorPago.SetFocus

Preciso que quando o foco vá para esse campo, ele dê um click no campo

Se puderem ajudar...

O que pretende fazer com essa acção, meu amigo?

eu tenho um codigo ao click desse campo que abre uma Box para que se insira valores e o valor retorna a esse campo....

Entao quando esse campo ja estiver preenchido e o usuario inadvertidamente dar a quitacao dessa linha, abre uma Msg Box avisando que no campo ja tem valores (que foram os recebidos anteriormente)
e pergunta se o usuario quer iserir novos valores,
Se sim retorna o Foco para esse campo.. o que ocorre e que nao posso deixa o usuario preencher esses valores direto no campo, pois preciso que abra a box, que tem interacao com outros campos no Form...

entao quando se avisa ao usuario que nesse campo ja tem valores,
se o usurio quer altera-los.
Se sim volta o foco para o campo, abre A box se altera o valor e procede a quitacao..

Porque isso...

isso ocorre porque se o usuario for inserir alguma quitacao nesse campo e ele ja tiver um valor anterior, o usuario tem que clicar no campo para alterar o valor... mas pode ser que o usuario se distraia e como o campo ja esta preenchido ele se confunda e clique na ChkBox sem alterar o valor.. (o que nao pode)

entao se ja tem valor e ele clica na ChkBox inadvertidamente emite esse aviso e o foco vai para o campo
dando o click automatico abrindo a box de alteracao de valor..


rsrs]
meio confuso?
rsrs
mas é uma logica de uso para evitar erros do usuario.

Amigão

No evento LostFocus() escreva:

DoCmd. só isto e vai ver todas as acções que o vba disponibiliza para o evento.


Volto daqui a 1 hora. Abraço Brother Pilot

Thank's

Sempre às ordens brother.

Caro Vieira tenho um codigo que quero executar no evento ao clicar de um campo...

ocorre que nesse mesmo campo existe um codigo no envento '"Depois de Atualizar"

o que preciso que seja executado o codigo do Evento ao clicar e se a resposta for nao, ele nao executar o codigo do evento Ao atualizar.. Tem jeito isso?


Este e o codigo do evento ao clicar


If Me.QuitadaParcial.Value = -1 Then
MSG = MsgBox("JÁ ESXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não ", vbYesNo + vbCritical, "ATENÇÃO")
If vbNo Then (Aqui ele encerra todos os eventos e nao da prosseguimento a nenhum
Me.QuitadaParcial.Value = "-1"
Me.Quitada.Value = "0"
Exit Sub
End If
End If
If vbYes Then ( Aqui ele continua todos os eventos)
End If


Veja se consegue arrumar esse codigo para mim...

Ele é o objeto de minha pergunta nesse tõpico..

Saudacoes

òi amigão

Li agora o poste. O que é que está a acontecer? Ele não cancela o evento, é? ou não continua o evento?

E assim Amigão...
Se o Campo QuitadaParcial tiver valor -1

Independente da resposta sim ou nao...

Cancela todos os eventos subsequente...

Todos os eventos da folha de propriedades...

Nao executa mais nenhum codigo...

porque isso?

Para executar os demais codigos.. preciso do valor 0

Entao se a pessoa clica em sim, Volta para o Form alterando o Valor do campo

Se sim:
Cancela todos os eventos
Me.QuitadaParcial = 0

Se não
Cancela todos os eventos]
e o valor Quitada parcial continua -1

No evento clique do campo

Dim msg, Style, Title
msg ="JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não "
Style = "vbYesNo"
Title = "Aviso"
msg = MsgBox(msg, vbYesNo, Title)
If MsgBox=vbYes Then
coloque aqui o que pretende fazer no sim
Else
coloque o evento para o não
End If

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não "
Style = "vbYesNo"
Title = "Aviso"
msg = MsgBox(msg, vbYesNo, Title)
If MsgBox = vbYes Then
Me.QuitadaParcial.Value = 0

Else
Me.Quitada.Value = -1
Exit Sub
End If
End Sub


Amigão esta dando erro na linha

If MsgBox = vbYes then (o argumento nao e opciional

mas olha eu preciso da seguinte consição para executar o comando a partir da mensagem

If me.quitadaparcial.Value = -1 then

MsgBox.......

Companheiro

Desculpe o mau jeito. Retire o box

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não "
Style = "vbYesNo"
Title = "Aviso"
msg = MsgBox(msg, vbYesNo, Title)
If Msg = vbYes Then
Me.QuitadaParcial.Value = 0

Else
Me.Quitada.Value = -1
Exit Sub
End If
End Sub

Eu não estou a ver a BD, mas o evento click passa o campo a -1 não?

o evento esta -1

se esta -1

executa o codigo que me enviou...

se no codigo a resposta fos sim

passa o evento para 0

se for nao.. cancela e deixa como esta...


Vieira, COmo funcina o Cancel event...

nao seria melhor nesse caso do que o exit sub?


Me de uma Luz

Grato

DoCmd.CancelEvent

pode experimentar, mas não creio que vá funcionar neste caso. Melhor passar o evento de -1 a 1

vieira o codigo deu certo...
coloquei nao no evento click
coloquei-o no ao receber foco...

agora o que eu quero.. é que mesmo se a resposta for sim ou nao...

Cancele os eventos seguites....


esse campo tem um evento principal Apos Receber foco...

Preciso que esse codigo nao permita que ele seja executado se o valor do campo estiver -1


porque isso?

porque se o valor estiver -1 cancela os eventos, volta ao form..
e faz o que tem que fazer

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não "
Style = "vbYesNo"
Title = "Aviso"
If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
ElseIf msg=vbYes Then
complete a partir daqui para o sim
Else
Para o não
End If

Ok.. O codigo esta funcionando parcialmente... a gora o seguinte:


nesse form tenho apenas UM EVENTO Que executo tudo que preciso
Esse evento esta no Evento (ao atualizar)

Entao o que quero...


que esse evento nao seja executado se o Campo QuitadaParcial estiver -1

entao esse codigo que voce fez.. checa se o campo esta -1
e se sim ou nao a reposta.. nao deixa executar o evento Ao atualizar...
Voltando ao form para o usuario desmarcar a opcao.... e deixa-la = desmarcada...


e isso nao esta funcionado..
mesmo respondendo sim ou nao nesse codigo que me enviou... ele da o exit sub, mas continua a executar o outro evento....



Pensei assim..
Pegar o evento que esta Ao atualizar e transformar numa funcao publica...
e chama-la por um comando Call no evento ao clicar, utilizando de um evento para chamar esse codigo nosso e o comando call...


Entao se o campo esta -1 produzo um exit sub e nao executa o call, que é a funcao publica..

Entendeu amigão?

Assim fica confuso. E qual o evento ao actualizar que você tem, não entendi?

Se o usuário der o Sim, qual o evento que tem que ser efectuado e se for não, para ver se consigo daqui dar resolução a isso

Será isto?

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Deseja receber parcialmente novamente?" & vbCrLf & " Se sim pressione SIM, caso contrário pressione Não "
Style = "vbYesNo"
Title = "Aviso"
If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
ElseIf msg=vbYes Then
Me.QuitadaParcial.Value = 1
Else
Me.Quitada.Value = -1
End If

olha so....

tenho uma Duas Check Box... Uma esta marcada... A quitadaParcial
eu Clico na CheckBox Quitda... e se a QuitadaParcial estiver marcada... Sai da execucao de todos os codigos da Quitada....

interrompe a execucao dos codigos da ChkBox Quitada...

Sou seja...

Click na Quitada....
Se Quitada pacial esta marcada...
Interrompe todos os eventos da Quitada...
Voltando ao form

O sim ou nao.. e um coadjuvante.. apenas muda os valores das Chek's
mas o pricipal, sendo sim ou nao.. é interromper a execusão dos eventos da quitada caso a quitadaparcial estiver marcada
entendeu amigão?

Caro Vieira, me serviu dessa maneira:

Private Sub Quitada_GotFocus()

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Está recebendo novo valor fracionado da parcela?" & vbCrLf & "Caso não, cancele a operação clicando em NÃO na próxima janela"
Style = "vbOkOnly"
Title = "Aviso"
If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbOKOnly, Title)
Exit Sub
End If

End Sub

Grato pela ajuda

Amigo Vieira, nao fiquei muito satisfeito com a solucao que dei para este problema meu, e gostaria de continuar com o topico ate ser resolvida a questao, e vou tentar lhe explicar direito o que preciso realmente, pode ser?

Grato

OLá amigo

Ontem fiquei sem net e dado o adiantado da hora fui descansar. Hoje estive todo o dia fora. Vamos lá a isso.

Seguinte amigão...

na folha de propriedades temos varios eventos:


NO ATUAL
AO CARREGAR
AO CLICAR
APÓS ATUALIZAR
ANTES DE ATUALIZAR
ANTES DE INSERIR
APÓS INSERIR
ETC.....

o meu form usa apenas um...

APÓS ATUALIZAR


Então esse código que estamos discutindo neste tópico, quero colocá-lo no evento que serã executado primeiro....

E esse codigo vai emitir uma MSGBox VByesNo...

preciso que qualquer que seja a escolha.. Sim ou Não...

o evento que está no evento ao atualizar nao seja executado... para que mesmo respondendo sim ou não...
pare os codigos restante.. (nao execute o do evento ao atualizar)
para que depois da MsgBox o usuario desmarque a opção que da o Start a Msg Box..]

Ai sim desmarcada a opção.. o usuaruio utiliza do evento que esta no Ao atualizar...

Entao Assim:

o Usuario Clica no Botão (há no form uma ChkBox Marcada)

Como a Ckbox esta marcada, executa o codigo que da Start essa situacao (Chkbox marcada)

o usuario responde sim ou não...

O codigo que esta no Ao atualizar nao e executado...

o usuario desmarca a ChkBox... e clica novamente no envento apos atualizar..
Como a CkBox nao esta marcada, aquela MsgBox nao e aberta..

ai sim executa o procedimento do evento apos atualizar...

Espero que tenha entendido amigao...

Qualquer coisa da um alo..

|Grato

Vamos tentar assim no botão de comando

Se a check estiver marcada ele não faz nenhum evento. Se estiver desmarcada a msg não aparece.

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Está recebendo novo valor fracionado da parcela?" & vbCrLf & "Caso não, cancele a operação clicando em NÃO na próxima janela"
Style = "vbYesNo"
Title = "Aviso"
If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
If msg = vbYes Then
Exit Sub
Else
End If
End If

em qual botao me aconselha a colocar o codigo...

Recebi o seu email na hora que ia encerrar o expediente rsrsrs. Você é que fala num botão de comando.

Entao Assim:

o Usuario Clica no Botão (há no form uma ChkBox Marcada)

Como a Ckbox esta marcada, executa o codigo que da Start essa situacao (Chkbox marcada)

o usuario responde sim ou não...

Tente cxom esse código. Não sei qual é o evento afterupdate mas penso que possa coloca~lo depois do Else

Boa Noite para si e até amanhã.

Olha so AMigao..

coloquei o codigo no envento antes de atualizar....


poderia altera-lo para mim e colocar com a opcao nao

If MsgBox No....then
para eu testar algo aqui

Vierão.. Fiz assim:

Transformei o outro codigo em uma funcao privadada... e fiz o codigo ,,

FICOU ASSIM:


Private Sub Quitada_AfterUpdate()

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Está recebendo novo valor fracionado da parcela?" & vbCrLf & "Caso não, cancele a operação clicando em NÃO na próxima janela"
Style = "vbYesNo"
Title = "Aviso"

If Me.QuitadaParcial.Value = 0 Then GoTo Executar

If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
If msg = vbYes Then GoTo Continuar
End If
If msg = vbNo Then
Me.Quitada.Value = 0
Exit Sub


Executar:
Call CodigoQuitacao
End If
Exit Sub

Continuar:
DoCmd.OpenForm "Frm_Valor", acNormal, , , , acDialog
Call CodigoQuitacao
Exit Sub
End Sub


SO PRECISO DE UMA COISA....
Ai acima no CONTINUAR... preciso que ele de um click no campo ValorPago...

Continuar:
Click no campo ValorPago
DoCmd....


So falta isso nesse codigo amigao

Saudacoes

O campo valorpago é um campo Sim/Não?

O campo ValoPago e uma Cx Texto..

Ma olha so.. estive pesquisando sobre codigos para simular o click do mouse..

Mas pensei em uma outra estrategia...

quando eu precisar do click automatico nesse campo.. antes remeto o foco para o mesmo

Me.ValorPago.SetFocus
E colocarei o evento que preciso no envento ao receber foco..

Que a grosso modo vai simular o click do mouse...

Vou testar e dou retorno

Saudações

Ok.

Amigo Vieira, ficou assim:






Private Sub Quitada_AfterUpdate()
Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Está recebendo novo valor fracionado da parcela?" & vbCrLf & "Caso não, cancele a operação clicando em NÃO na próxima janela"
Style = "vbYesNo"
Title = "Aviso"

If Me.QuitadaParcial.Value = 0 Then GoTo Executar

If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
If msg = vbYes Then GoTo Continuar
End If
If msg = vbNo Then
Me.Quitada.Value = 0
Exit Sub


Executar:
Call CodigoQuitacao
End If
Exit Sub

Continuar:
Me.ValorPago.SetFocus
End Sub.

Abraço e bom trabalho. Podemos dar por resolvido.

A logica disso e

A funcao "Call CodigoQuitacao"
Ela executa diversos procedimentos.
1 - Quitacao total e parcial..
dependendo de determinados requitos contidos em chek's Box...
se Primeiro pagamento
Se Parte de pagamento de parcela
Recalculo de pagamento fracionado de parcela.. etc..

Entao esse codigo estou usando para que dependendo de uma situacao
ele execute ou nao a Call CodigoQuitacao..

Tudo esta a funcionar perfeitamente exceto por um detalhe..

Como te falei dependendo das opcoes.. esse codigo remete ao Call CodigoQuitacao...

Ate ai tudo bem... mas tem um desses eventos que da erro na linha:

Continuar:
Me.ValorPago.SetFocus
Exit Sub

Sao varis procedimentos de quitacao.. apenas um deles da erro nessa linha
So que o erro nao influencia no restante da operacao, nao modifica valores nada...

Porque da o Erro?
Da-se o erro porque neste evento, Me.ValorPago.SetFocus o foco, neste determinado evento nao pode ser movido pra la, porque executa o mesmo comando duas vezes...

entao como o comando ja esta sendo executado, o foco vai para la novamente e da erro no mover foco...


Esse comando..
Continuar:
Me.ValorPago.SetFocus
Exit Sub

é essencial e nao pode ser retirado ou modificado...



ENTAO A QUESTAO...

Preciso que quando de esse erro, nao dê erro em tempo de execucao.. que emita um OK e continue...

Espero que tenha entendido...

ASSIM RESOLVERIA?



Private Sub Quitada_AfterUpdate()
On Error GoTo Quitada_AfterUpdate_Err

Dim msg, Style, Title
msg = "JÁ EXISTEM VALORES NO CAMPO!" & vbCrLf & "Está recebendo novo valor fracionado da parcela?" & vbCrLf & "Caso não, cancele a operação clicando em NÃO na próxima janela"
Style = "vbYesNo"
Title = "Aviso"

If Me.QuitadaParcial.Value = 0 Then GoTo Executar

If Me.QuitadaParcial.Value = -1 Then
msg = MsgBox(msg, vbYesNo, Title)
If msg = vbYes Then GoTo Continuar
End If
If msg = vbNo Then
Me.Quitada.Value = 0
Exit Sub


Executar:
Call CodigoQuitacao
End If
Exit Sub

Continuar:
Me.ValorPago.SetFocus
'DoCmd.OpenForm "Frm_Valor", acNormal, , , , acDialog
'Call CodigoQuitacao
Exit Sub
Quitada_AfterUpdate_Exit:
Exit Sub

Quitada_AfterUpdate_Err:
msg = MsgBox("Ocorreu um erro, verifique os valores e repita a operação" & vbCrLf & _
"Se a operação foi concluida com êxito, ignore o erro", vbOKOnly + vbQuestion, "ATENÇÃO")
Resume Quitada_AfterUpdate_Exit

End Sub

Resolvi com esse codigo amigo vieira..

Grato pela ajuda e paciência..

Mas resolveu mesmo amigo?

Resolvido Amigão..
Grato pela sempre prontas ajuda...

Estou a terminar os relatorios deste BD... Terminando posto ele no repositorios de exemplo...

Agra vou aos relatorios...

Me aguarde la.. com as dividas.. heheheheh

te mais