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


    Verificar conteúdo de campo no formulário

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Verificar conteúdo de campo no formulário Empty Verificar conteúdo de campo no formulário

    Mensagem  ilvecchio 9/6/2014, 21:58

    Buenas!

    Estou fazendo uma agenda de compromissos para um pequeno salão de beleza.
    No formulário tenho oito botões com o nome de cada profissional de atendimento, e outros oito campos para receber o nome do cliente a ser atendido pelo profissional. O campo cliente tem o nome formado pelo nome do profissional + a palavra "cliente" .




    Assim:
    1) botão do profissional: Maria >>>> nome do campo cliente: MariaCliente
    2) botão do profissional: Paula>>>> nome do campo cliente: PaulaCliente

    .....

    Gostaria de criar um código que identificasse o campo "MariaCliente" ao clicar no botão "Maria", e assim para os demais botões.
    (não queria usar o select case para cada botão de profissional, prefiriria um loop, para encontrar o campo relacionado ao controle ativo)

    Já sei que ao clicar em "Maria", ele é o controle ativo. Mas não sei como achar o campo relacionado "MariaCliente" para verificar se está preenchido ou não.

    Cheguei a fazer isso, mas não funcionou:

    Function FunBtProf()
    Dim ctlCliente As Control
    Dim ctlAtivo As Control
    Dim frm As Form

    Set frm = Screen.ActiveForm
    Set ctlAtivo = Screen.ActiveControl
    ctlCliente.Name = ctlAtivo.Name & "Cliente"

    If IsNull(ctlCliente) Then
    ' aqui vai entrar uma instrução

    Else


    If MsgBox("Deseja excluir este agendamento?", _
    vbYesNo + vbExclamation + vbDefaultButton2, "Excluir o agendamento") = vbNo Then
    Else 'Sim

    'procedimento para excluir o agendamento (vai limpar o campo "MariaCliente")

    Exit Function

    End If
    End If


    DoCmd.OpenForm "FO_Agenda_IncluirCliente"

    End Function










      Data/hora atual: 29/3/2024, 07:29