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


2 participantes

    Referenciar campo de texto em outro formulário para ganhar o foco e aproveitar o conteúdo digitado em tela anterior

    avatar
    gilkleber
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 22/02/2011

    Referenciar campo de texto em outro formulário para ganhar o foco e aproveitar o conteúdo digitado em tela anterior Empty Referenciar campo de texto em outro formulário para ganhar o foco e aproveitar o conteúdo digitado em tela anterior

    Mensagem  gilkleber 10/3/2023, 14:04

    Ola pessoal, bom dia!
    Por favor, vejam se conseguem me ajudar

    tenho um formulario chamado frmFicha, que possui alguns campos de texto, dentre eles um listBox com alguns nomes. Quando digitado um nome não cadastrado, ele reconhece e pergunta se deseja cadastrar. dessa forma, abriria um formulário de cadastro "frmCadastroAnestesista", ja no modo de adição, definia o foco para o campo NOME ANESTESISTA, e ja traz pra esse controle, o nome digitado no formulário anterior, que não estava cadastrado.

    porem, não consigo fazer o foco funcionar, e nao tenho nem ideia de como trazer o texto digitado de um form pra outro..

    podem ajudar??
    o código esta assim no evento "se não estiver na lista"

    If MsgBox("O Anestesista: " & UCase(NewData) & " não está cadastrado. Deseja Cadastrar?", vbYesNo, "Anestesista não cadastrado") = vbYes Then
    DoCmd.OpenForm "formCadastroAnestesista", acNormal, , , acFormAdd, acDialog, UCase(NewData)
    Forms!formCadastroAnestesista!nomeAnestesista.SetFocus
    Response = acDataErrContinue
    Else
    Response = acDataErrContinue
    Me.listBoxAnestesista.SetFocus
    End If
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    Referenciar campo de texto em outro formulário para ganhar o foco e aproveitar o conteúdo digitado em tela anterior Empty Re: Referenciar campo de texto em outro formulário para ganhar o foco e aproveitar o conteúdo digitado em tela anterior

    Mensagem  Ney Santos 11/3/2023, 14:34

    Bom dia tente o seguinte:
    Troque esssa parte do codigo(If MsgBox) por Escolha =.
    o codigo:
    num modulo escreva
    Global ESCOLHA

    No seu formulario no evento se nao estiver na lista:

    escolha =("O Anestesista: " & UCase(NewData) & " não está cadastrado. Deseja Cadastrar?", vbYesNo, "Anestesista não cadastrado")
    if vbyes then
    docmd.opem form(seu formualario para cadastro)
    Forms!seu formulario que esta aberto.visible = false( assim vc podera "pegar" os campos nescessarios.
    Forms!formCadastroAnestesista!nomeAnestesista.SetFocus
    Forms!formCadastroAnestesista!"campo que deseja pegar do formulario oculto" = forms!"nome do formulario oculto".nome do campo desse form oculto
    Faça isso para cada campo que vc quer aproveitar
    termine com :
    exit sub
    end if

    espero ter ajudado.

      Data/hora atual: 2/5/2024, 20:59