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

    [Resolvido]Limpar campos em formulário

    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Limpar campos em formulário Empty [Resolvido]Limpar campos em formulário

    Mensagem  lumoquenco 8/6/2022, 20:18

    Boa tarde pessoal!

    Mais uma vez precisando da ajuda de vocês!

    Tenho um formulário de vendas onde tenho uma combo em que escolho se o exame é por conta "Loja" ou "Cliente". Quando escolho "Loja", ele me dá a opção de escolher um código de consulta onde me diz o médico, e a data da consulta, já filtrando pelo cliente.

    O que eu preciso é que depois de escolher "Loja", se eu quiser alterar para "Cliente" ele apagar os dados de CodConsulta, Nome_Medico e DtConsulta.

    Tentei da forma abaixo, mas ele me dá mensagem de erro no Cod_Consulta.

    Private Sub cmb_Exame_AfterUpdate()
    If cmb_Exame = "Cliente" Then
       Me.cmb_CodConsulta = ""
       Me.txt_MedicoConsulta = ""
       Me.txt_DtConsulta = ""
       
       Me.txt_Longe_OD_1ª.SetFocus
       
    Else

       cmb_CodConsulta.Visible = True
       txt_MedicoConsulta.Visible = True
       txt_DtConsulta.Visible = True
       
     
    End If

    End Sub


    Última edição por lumoquenco em 11/8/2022, 15:28, editado 1 vez(es)
    avatar
    Ricardo84
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 18/01/2014

    [Resolvido]Limpar campos em formulário Empty Re: [Resolvido]Limpar campos em formulário

    Mensagem  Ricardo84 8/6/2022, 21:56

    Na cmb_Exame, qual é a linha da origem de dados? É uma lista de valores? Quantas colunas tem?
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Limpar campos em formulário Empty Re: [Resolvido]Limpar campos em formulário

    Mensagem  lumoquenco 9/6/2022, 14:15

    Nesta combo tenho uma lista de dois nomes: "Cliente" e "Loja"
    avatar
    Ricardo84
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 18/01/2014

    [Resolvido]Limpar campos em formulário Empty Re: [Resolvido]Limpar campos em formulário

    Mensagem  Ricardo84 14/6/2022, 01:43

    Boa noite.

    Julgo que tem duas colunas, portanto.

    tente indicar a que coluna se refere
    If cmb_Exame.column(X) = "Cliente" Then
    Sendo X a coluna que contém o "Cliente"

    Para colocar a data em branco, jugo que tem de indicar Null em vez de ""

    Conteúdo patrocinado


    [Resolvido]Limpar campos em formulário Empty Re: [Resolvido]Limpar campos em formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/2/2024, 09:35