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

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4116
    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.
    [Você precisa estar registrado e conectado para ver este link.]

    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: 18/11/2018, 19:11