MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Fechar formulário Form_Current

    Compartilhe
    avatar
    vailson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Fechar formulário Form_Current

    Mensagem  vailson em 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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4236
    Registrado : 20/04/2011

    Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  Silvio em 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."
    avatar
    vailson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  vailson em 4/6/2018, 18:51

    não funciona no Form_Current.
    Vou refazer o código

      Data/hora atual: 20/3/2019, 20:18