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


4 participantes

    [Resolvido]esconder janela access

    disapd
    disapd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 11/02/2010

    [Resolvido]esconder janela access Empty [Resolvido]esconder janela access

    Mensagem  disapd 13/2/2010, 17:44

    amigos,
    como faço seguindo o exemplo "http://dl.dropbox.com/u/771097/Gestao%20Stoks%20Economato%20V1.2.rar"
    em que se inicia automaticamente o formulario e esconde a janela do access, ficando somente a janela do formulário.


    Última edição por disapd em 13/2/2010, 23:48, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  JPaulo 13/2/2010, 18:11

    Olá;

    Entre nesse banco com a tecla shift+Enter pressionadas e veja o codigo e as configurações do formulario.


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

    [Resolvido]esconder janela access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]esconder janela access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]esconder janela access Folder_announce_new Instruções SQL como utilizar...
    disapd
    disapd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 11/02/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  disapd 13/2/2010, 18:30

    Obrigado, Abraço

    Para quem quiser saber como controlar a exibição da janela access:

    http://office.microsoft.com/pt-br/access/HP051885031046.aspx



    Muito bom:
    http://www.speedyshare.com/files/20940182/Manipular_janela_tutorial_-_Ciro.pdf
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  sardao 20/3/2011, 10:00

    Boas tardes a todos!
    Eu copiei o codigo VB desse ficheiro, e o que acontece é que desaparece tudo incluido o formulario :S
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  vieirasoft 20/3/2011, 11:02

    Pois é meu amigo, as coisas não são tão simples assim:

    1- Defina todos os formulários como Modal e sobreposição=Sim

    2- Apenas um formulário deve ter botão para encerrar DoCmd.Quit

    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  sardao 20/3/2011, 11:48

    Compreendo! Very Happy
    So uma questão? em que zona esta o "Sobreposição" ?
    Nao encontro...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  vieirasoft 20/3/2011, 11:53

    Na Aba Outra das propriedades do formulário, são logo os 2 primeiros itens
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  sardao 20/3/2011, 12:11

    Obrigado!
    Ja esta a funcionar! Very Happy
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  vieirasoft 20/3/2011, 12:11

    Bom trabalho
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  sardao 20/3/2011, 12:22

    Olhem, no login que tenho com este metodo está a dar erro.
    vou por aqui o que ele identifica como estar mal.

    Private Sub cmd5_Click()
    Dim Identificacao As Integer

    If Me.txtPass.Value = DLookup("[Password]", "[Assistente]", "[User] = '" & Me.txtutilizador & "'") Then
    Identificacao = DLookup("[Grupo]", "[Assistente]", "[User] = '" & Me.txtutilizador & "'")
    Select Case Identificacao
    Case 1
    stDocName = "frmAdministrador"
    Case 2
    stDocName = "frmUsuario"
    End Select
    DoCmd.Close
    DoCmd.OpenForm stDocName
    Else
    MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
    Me.txtPass.Value = ""
    Exit Sub
    End If

    End Sub


    é o que esta a vermelho.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  vieirasoft 20/3/2011, 12:53

    Não é por causa da janela escondida que o login passou a dar erro. Aliás se não me engano você já teve esse problema antes? Experimente sem a janela escondida. Defina também a variável stDocName As String junto com a identificação
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  sardao 20/3/2011, 13:03

    Por acaso nao era do codigo de login, mas tb nao sei do que era, mas penso que fosse disto
    "Option Explicit"
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  vieirasoft 20/3/2011, 13:06

    Era o mais certo. Bom trabalho

    Conteúdo patrocinado


    [Resolvido]esconder janela access Empty Re: [Resolvido]esconder janela access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:47