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]Fechar formulário Form_Current

    vailson
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015
    • Mensagem nº1

    [Resolvido]Fechar formulário Form_Current Empty [Resolvido]Fechar formulário Form_Current

    Mensagem  vailson 4/6/2018, 17:15

    Olá pessoal. Como faço pra fechar esse formulário após o ok?
    Código:
    Private Sub Form_Current()
    Me.identificaPostoOcorrencia.Value = DLookup("descreve", "cons_identificadorDoposto")
    If Not DCount("descreve", "cons_postosparausuario", "descreve = '" & Me.identificaPostoOcorrencia & "'") > 0 Then
        MsgBox "Você não tem permissão para criar ou editar ocorrência para essa guarnição.", vbOKOnly, "Usuário não autorizado"
        End If
    End Sub

    Obrigado
    • Ir para o topo
    Silvio
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011
    • Mensagem nº2

    [Resolvido]Fechar formulário Form_Current Empty Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  Silvio 4/6/2018, 17:42

    Docmd.Close


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    • Ir para o topo
    vailson
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015
    • Mensagem nº3

    [Resolvido]Fechar formulário Form_Current Empty Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  vailson 4/6/2018, 18:51

    não funciona no Form_Current.
    Vou refazer o código
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]Fechar formulário Form_Current Empty Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 23/11/2024, 05:50