[Resolvido]Botão desaparecer apos 1 click

olá meus amigos , queria saber como fazer o botão desaparecer após 1 click

tente

Private nomebotao_Click()

me.nomebotao.visible = true

end sub

o botão não desaparece o sistema todo fecha. Veja bem(ja está pronto pronto um pequei uma copia dele por aqui ) para quando o usuário for abrir ele  não aparecer mais aquele  botão , tipo apos 1 click o botão desparece.
 

Porque eu  fiz um setup no sistema para armazenar, ai apos a extração dos arquivos no disco ele só deixe o atalho no desktop e quando abrir não ter ele mais

sinceramente não entendi direito

para ocultar o botão com um click o que mandei funciona


se for...

para armazenar para o usuário que ja clicou deveria ser gravado em uma tabela de usuários ou geral alguma informação após esse clique e ao reiniciar o sistema devera fazer uma pequena consulta

minha sugestão

crie uma tabela: tbl_status
campo: Status

no evento no formulário onde tem o botão

Private nomebotao_Click()

me.nomebotao.visible = true

me.status = "Invisivel"

end sub

ao iniciar seu formulário como no evento ao carregar algo assim


dim VerificaStatus as string
VerificaStatus = nz(dlookup("status","tbl_status", "[status]=Invisivel"),"-")

if VerificaStatus="Invisivel" then

me.nomebotao.visible = true

end if


se não for isso poste uma parte e explique melhor no detalhe

Olá a todos,

Gillard, se pretende após o primeiro click, então o lógico é existir "um contador".
Pode ser uma tabela com um campo "contador" que por defeito está zero.
Ao abrir vai consultar,

Código:

se for zero, então
    coloca o botao visivel
caso não seja
   coloca botao invisivel
fim do se


Ao clicar no botao, será conveniente, alterar o campo para um valor diferente de zero.

É transformar para código.

Abraço a todos

Estou analisando meus tópicos para serem fechados ,amigo pois eu esqueci de fechar alguns e dar retorno, .
Obg aamigo