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 Seg 4 Jun - 12: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 : 4179
    Registrado : 20/04/2011

    Re: [Resolvido]Fechar formulário Form_Current

    Mensagem  Silvio em Seg 4 Jun - 12:42

    Docmd.Close


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

    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 Seg 4 Jun - 13:51

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

      Data/hora atual: Dom 20 Jan - 21:05