MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Verificar conteúdo de campo no formulário

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Verificar conteúdo de campo no formulário

    Mensagem  ilvecchio em Seg 09 Jun 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: Dom 04 Dez 2016, 06:03