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


3 participantes

    suspende a execução de um procedimento

    avatar
    salomao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 15/05/2010

    suspende a execução de um procedimento Empty suspende a execução de um procedimento

    Mensagem  salomao 16/6/2010, 20:57

    Antes de tudo, gostaria de agradecer a todos que respostaram minhas dúvidas anteriores. Me ajudou bastante.
    Meu problema atual é o seguinte: preciso suspende a execução de um procedimento até que outro seja concluido. Tenho um formulário que exige a identificação do cliente através do seu cpf. Quando o usuário inserir um CPF que não esteja cadastrado, o sistema pergunta ao usuário de deseja cadastra-lo. Se o usuário optar por sim, o sistema abre um formulário de cadastro para a devida inclusão.
    É neste momento (do sim) que preciso que o access suspenda a execução da função, abra o formulário de cadastro, e quando o usuário fechar este formulário o access continue a execução do ponto em que foi suspenso.
    Agradeço antecipamente as dicas.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  criquio 16/6/2010, 21:20

    Se esse formulário que será aberto para a inclusão tiver a propriedade "janela restrita" definida como "Sim", o usuário só poderá voltar ao form anterior após fechar esse formulário. Isso não resolve? Se não for isso, dê mais detalhes, por gentileza.


    .................................................................................
    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
    salomao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 15/05/2010

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  salomao 24/6/2010, 21:34

    Prezado Criquio

    Avalio não ser suficiente, pois o objetivo é que o access, de forma imediata, verifique na tabela, se o registro foi efetuado com sucesso, para evitar situações de inconsistência de dados.
    Assim, caso o usuário desista do cadastramento, o sistema critique que o cpf correspondente ainda não consta na base.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  JPaulo 25/6/2010, 09:35

    Bom dia Salomao;

    Veja o que está grifado a Verde neste código para cadastrar uma Cidade que não existe ainda...


    Private Sub Cidade_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue ' Inibe msg padrão do Access.
    If MsgBox("Cidade não cadastrada: '" & NewData & "'" & vbCrLf _
    & "Deseja Cadastrar?", 32 vbYesNo) = 6 Then
    DoCmd.OpenForm "frmCidades", , , , acFormAdd, _
    acDialog, NewData
    ' A execução deste código fica interrompida aqui até o
    ' fechamento do formulário frmCidades.

    Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    suspende a execução de um procedimento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    suspende a execução de um procedimento Folder_announce_new 102 Códigos VBA Gratuitos...
    suspende a execução de um procedimento Folder_announce_new Instruções SQL como utilizar...
    avatar
    salomao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 15/05/2010

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  salomao 26/6/2010, 22:39

    Uma pergunta JPaulo:
    A variável "Newdata", bem como a "response" pode ser usada em um "private sub" que não seja vinculado a uma caixa de combinação, pois o item que desejo cadastradar está numa caixa de texto, com um "private" que verifica, antes de atualizar, se o CPF está na base ou não?
    Abraços,
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  JPaulo 28/6/2010, 10:26

    Faça algo deste tipo;

    Private Sub SuaCaixaTexto_Exit(Cancel As Integer)
    Dim NewData As String
    Dim Response As Integer
    Response = acDataErrContinue ' Inibe msg padrão do Access.
    If MsgBox("CPF não cadastrado: '" & NewData & "'" & "Deseja Cadastrar?", vbYesNo, "Cadastro") = 6 Then
    DoCmd.OpenForm "SeuForm", , , , acFormAdd, acDialog, NewData
    SeuCampoCPF = NewData
    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    suspende a execução de um procedimento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    suspende a execução de um procedimento Folder_announce_new 102 Códigos VBA Gratuitos...
    suspende a execução de um procedimento Folder_announce_new Instruções SQL como utilizar...
    avatar
    salomao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 15/05/2010

    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  salomao 2/7/2010, 17:24

    Valeu amigo, vou testar. Abraços.

    Conteúdo patrocinado


    suspende a execução de um procedimento Empty Re: suspende a execução de um procedimento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 16:57