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


5 participantes

    [Resolvido]Chamar form e inserir nome. . .

    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Chamar form e inserir nome. . . Empty [Resolvido]Chamar form e inserir nome. . .

    Mensagem  m_sousa 1/12/2020, 17:49

    Olá

    Preciso de saber como fazer o seguinte :

    Ao clicar num botão, este abrir um form e levar o nome associado ao botão para o outro form e coloca-lo na cx de texto. Obrigado

    Deixo exemplo do pretendido !!!

    Um bem hajam !
    Anexos
    [Resolvido]Chamar form e inserir nome. . . AttachmentInserirUtente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 13 vez(es)
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  Jungli 1/12/2020, 22:20

    Boa noite.


    Private Sub brnInserir_Click()
    DoCmd.OpenForm "frmUtentes"
    'Insere o texto do rótulo no campo informado
    Forms.frmUtentes![txtNomeUtentes] = Me.Rótulo2.Caption
    End Sub


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    m_sousa gosta desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  m_sousa 2/12/2020, 11:16

    É isto mesmo ! Obrigado

    Código:
    Private Sub brnInserir_Click()
    DoCmd.OpenForm "frmUtentes"
    'Insere o texto do rótulo no campo informado
    Forms.frmUtentes![txtNomeUtentes] = Me.UtenteAnabelaSousa.Caption
    End Sub

    Reparei que preciso fechar o form anterior frmInserir. coloquei DoCmd.Close

    Código:
    Private Sub brnInserir_Click()
    DoCmd.Close
    DoCmd.OpenForm "frmUtentes"
    'Insere o texto do rótulo no campo informado
    Forms.frmUtentes![txtNomeUtentes] = Me.UtenteAnabelaSousa.Caption
    End Sub

    Dá o seguinte erro :
    Run-time error 2767:
    A expressão que introduziu refer-se a um objeto que esta fechado ou que não existe.
    Como posso fazer para fechar o form inicial ?
    Obrigado

    Um bem hajam !
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  zcarloslopes 2/12/2020, 11:39

    Bom dia m_sousa,

    Passe o nome para uma variável, tipo:
    Código:
    Private Sub brnInserir_Click()
    Dim sNome as String
    sNome = Me.UtenteAnabelaSousa.Caption
    DoCmd.Close
    DoCmd.OpenForm "frmUtentes"
    'Insere o texto do rótulo no campo informado
    Forms.frmUtentes![txtNomeUtentes] = sNome
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  Silvio 2/12/2020, 11:46

    Não feche o formulário !

    Use o comando...invisible = true

    Forms!SeuFormulario.invisible =true

    Para ativar novamente troque o true por false


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

    m_sousa gosta desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  m_sousa 2/12/2020, 12:45

    Olá

    Obrigado pela ajuda, mas não funcionou !!!

    Código:
    Private Sub brnInserir_Click()
    Forms!frmInserir.Invisible = True
    DoCmd.OpenForm "frmUtentes"
    Forms.frmUtentes![txtNomeUtentes] = Me.UtenteAnabelaSousa.Caption
    End Sub

    Deu o seguinte erro :
    Run-time error 2465
    Application-defined or object-defined error

    Um bem hajam !
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  Alexandre Neves 2/12/2020, 15:14

    Boa tarde
    Código:

    Private Sub brnInserir_Click()
        DoCmd.OpenForm "frmUtentes", , , , , , Rótulo2.Caption
    End Sub

    Private Sub btnInserir_Click()
        DoCmd.OpenForm "frmUtentes", , , , , , Rótulo4.Caption
    End Sub
    Private Sub Form_Load()
        If IsMissing(OpenArgs) = False Then
            txtNomeUtentes = OpenArgs
        End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    m_sousa gosta desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  m_sousa 2/12/2020, 15:49

    Obrigado ! resolvido . . .

    Um bem haja !
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  Silvio 2/12/2020, 16:46

    Boas...

    queria entender a logica dessas linhas...se possível for.

    Código:
    Private Sub Form_Load()
        If IsMissing(OpenArgs) = False Then
            txtNomeUtentes = OpenArgs
        End If

    Em uma tradução livre

    se é perdido(OpenArgs) =falso então
    txtNomeUtente = OpenArgs

    De onde está vindo o OpenArgs ?


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

    Conteúdo patrocinado


    [Resolvido]Chamar form e inserir nome. . . Empty Re: [Resolvido]Chamar form e inserir nome. . .

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 04:13