MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    como criar caixas de seleção para ativar outros campos

    Compartilhe

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    como criar caixas de seleção para ativar outros campos

    Mensagem  sanderba em Sab 19 Ago 2017, 19:22

    olá amigos do forum, sou novo aqui e gostaria de uma ajuda. Estou disponibilizando um bd  na qual estou tentando criar uma caixa de seleção que quando eu selecionasse ela , ela ativa dois campas abaixo "data da ultima calibração e proxima calibração" e que ao final eu pudesse imprimir essa seleção, se alguem puder me ajudar , agradeço, pois estou iniciando no acess agora.
    Anexos
    cadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (140 Kb) Baixado 12 vez(es)

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    Re: como criar caixas de seleção para ativar outros campos

    Mensagem  sanderba em Ter 22 Ago 2017, 11:11

    ola amigo consegui criar o codigo, mas estou com um problema, quando eu salvo o registro e crio um novo novo a caixa de seleção fica marcada aparecendo as datas, se eu desmarco quando volto para o registro em que salvei a caixa selecionada ela não aparece marcada, ou seja para eu ver o registro com as informações de data tenho que marcar a caixa de seleção. Eu gostaria que quando eu adicionasse um novo registro a caixa aparecesse desmarcada e ao salvar algum registro com a caixa marcada ao procurar por esse esse registro ela viesse marcada, independente se ela estivesse marcada anteriormente. Alguem poderia ajudar

    Private Sub caixa_AfterUpdate()
    If Me.caixa Then
    Me.data1.Visible = True
    Me.data1.SetFocus
    Me.data2.Visible = True
    Me.data2.SetFocus

    Else
    Me.data1.Visible = False
    Me.data2.Visible = False

    End If
    End Sub

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    Re: como criar caixas de seleção para ativar outros campos

    Mensagem  sanderba em Ter 22 Ago 2017, 21:03

    alguem pra ajudar? estou disponibilizando o bd.
    Anexos
    Cadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (388 Kb) Baixado 1 vez(es)

      Data/hora atual: Ter 21 Nov 2017, 19:14