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]Cancelar evento vba

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Cancelar evento vba Empty [Resolvido]Cancelar evento vba

    Mensagem  Altair_147 11/3/2011, 12:56

    Bom dia,

    Estou trabalhando em um form e tenho o seguinte problema, nele existe vários eventos. Tem como colocar uma condição que se ela não satisfazer meus critérios, ele cancele determinado evento que iria acontecer posteriormente?

    Obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  criquio 11/3/2011, 13:03

    Explique melhor como os eventos são processados, se por variáveis, se por evento de campos, etc. Existe o Exit Sub, o Cancel = True, o Me.Campo.Cancel entre outros. Vai depender do que precisas. Tambem pode usar variáveis para armazenar resultados e usar os eventos de acordo os resultados das variáveis.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  Altair_147 11/3/2011, 13:19

    Vou tentar descrever abaixo:

    Private Sub horario_AfterUpdate()
    processo_marcacao
    verifica_tipo_registro
    confirma_ponto1
    End Sub



    private Sub verifica_tipo_registro()
    'By JPaulo ® Maximo Access
    On Error Resume Next

    Dim db2 As DAO.Database
    Dim rs2 As DAO.Recordset
    Dim str2SQL As String

    On Error Resume Next
    str2SQL = "SELECT * FROM cad_marcacoes where pis_empregado = '" & pis_empregado & "' and junta_sequencia = '" & junta_sequencia & "' and data_jornada = '" & data_jornada & "'"
    Set db2 = CurrentDb
    Set rs2 = db2.OpenRecordset(str2SQL)
    If Not rs2.BOF Then
    MsgBox " Marcação " & Me.Combinação20 & ", já efetuada para a data " & Me.data_jornada & "", vbCritical, "Silva Informática"
    confirma_ponto.Enabled = False
    Me.Undo
    "Cancelar Evento"
    Else

    rs2.Close
    Set rs2 = Nothing
    db2.Close
    Set db2 = Nothing

    End If


    A parte em negrito é onde chama o procedimento "verifica_tipo_registro", a parte de vermelho seria onde cancelaria o terceiro evento "confirma_ponto1".

    Obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  criquio 11/3/2011, 13:29

    A montagem não é a ideal. Não tem como você cancelar um evento que já ocorreu, uma vez que ele vem antes do cancelamento no código. O certo seria você remontar na ordem em que os eventos devem ocorrer ou ser cancelado.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  Altair_147 11/3/2011, 13:31

    Ok,

    vou refazer aqui e lhe retorno.

    sds...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  criquio 11/3/2011, 13:46

    Certo. Aguardando...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Cancelar evento vba Empty Re: [Resolvido]Cancelar evento vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:58