[Resolvido]Botão adicionar e remover campo

Bom dia caros clegas,

Estou com um formulário onde tenho 4 campos para telefone celular, gostaria que só um campo ficase visivel
caso a pessoa tenha mais de um celular clico no botão adicionar então a cada click vai aparecendo os outros campos
de celulares e um botão para remover tambem.

Desde já agradeço pela atenção e conto com a ajuda dos colegas


Bd em anéxo - DOWNLOAD EXEMPLO

Alguem saberia me ajudar com essa duvida ?

Amigo,

Ficaria mais organizado criar uma tabela para os telefones associada a tabela origem de seu formulário através de uma chave primária. Dessa forma, possibilitaria formulário que você trabalhasse com um listbox ou subformulário contendo as informações de celulares.


Abraços,

Ola amigo agradeço pela atenção, mais dessa forma que expliquei não teria como fazer ?

É mais trabalhoso e menos organizado ...

digamos que eu crie uma nova tabela para os numeros de celulares
como faço para criar um botão no formulário que adicione os campos conforme esta no exemplo que deixei em anéxo ?

Com a licença dos amigos para deixar aqui um caminho das pedras...

Clytom obrigado pela colaboração,

estamos no caminho certo esse exemplo seu já foi adptado no meu projeto
porem quando troco o cadastro de pessoas os campos ficam visiveis gostaria que aparecesse só os campos
que tem valor armazenado

ex:

fulano : 9999-9999
           5555-5555



ciclano: 4444-4444


beltrano: 6666-9999
             4568-7894
             1234-7642

consegui fazer aqui mais ou menos parecido com o seu mais os campos do meu exemplo tambem estão aparecendos os vazios de uma olhada
se possivel gostaria que ajudasse com um código que colocado junto com o botão de remover o campo apagasse os registros inseridos no mesmo

Exemplo - Download

Não olhei o seu exemplo ainda, a versão da estação que estou é incompatível com o arquivo que me mandou, mas, coloque no Evento 'No atual' nas Propriedades do Form:
*Baseado no exemplo que mandei.

Código:


    If IsNull(Me.Celular01.Value) = True Then
       Me.Celular01.Visible = False
ElseIf IsNull(Me.Celular02.Value) = True Then
       Me.Celular02.Visible = False
ElseIf IsNull(Me.Celular03.Value) = True Then
       Me.Celular03.Visible = False
ElseIf IsNull(Me.Celular04.Value) = True Then
       Me.Celular04.Visible = False
    End If


Se você tiver um botão para fazer um novo Cadastro, coloque no Evento 'Ao clicar' do botão o mesmo comando que foi colocado no Evento 'Ao abrir' do Form.

Infelizmente não funcionou amigo, tente ver o meu exemplo e espero que possa me ajudar a resolver esse problema
noob como eu é complicado kkkk

conto com a ajuda dos senhores.


Exemplo - Download

Bom dia.....

Uma dica, coloque a tabela paciente junto com o formulário, do modo que esta mandando ( tabela vinculada ) fica difícil ajudar você.

Ola Silvio, agradeço pela ajuda
segue no download o arquivo conforme você pediu


Exemplo - Download

Boa tarde

Teste

Assis primeiro obrigado pela colaboração

testei aqui e o que ocorreu é o seguinte quando removo um telefone troco de paciente
e depois volto no registro do paciente que removi o celular o registro que foi removido reaparece
gostaria se possivel quando usar o botão remover alem de esconder o campo apagasse o registro do campo removido

desde já agradeço pela atenção

Fernando

Eu não tinha alterado essa parte, nem mexi ....

Veja se é isto que quer

Perfeito amigo isso mesmo que eu precisava
só não consegui identificar o comando dado para apagar o campo
poderia me dizer qual é, e em qual lugar devo colocar o mesmo ?

Eis a vermelho

Private Sub remove2_Click()
pac_Telefone_Celular1.SetFocus
add1.Visible = True
remove1.Visible = True
pac_Telefone_Celular2.Visible = False
pac_Operadora2.Visible = False
add2.Visible = False
remove2.Visible = False

pac_Telefone_Celular2 = Null
pac_Operadora2 = Null

End Sub

Private Sub remove3_Click()
pac_Telefone_Celular2.SetFocus
add2.Visible = True
remove2.Visible = True
pac_Telefone_Celular3.Visible = False
pac_Operadora3.Visible = False
add3.Visible = False
remove3.Visible = False

pac_Telefone_Celular3 = Null
pac_Operadora3 = Null
End Sub

Private Sub remove4_Click()
pac_Telefone_Celular3.SetFocus
add3.Visible = True
remove3.Visible = True
pac_Telefone_Celular4.Visible = False
pac_Operadora4.Visible = False
remove4.Visible = False

pac_Telefone_Celular4 = Null
pac_Operadora4 = Null
End Sub

Perfeito muito obrigado amigo por dividir sua sabedoria

Duvida resolvida e que o exemplo possa servir para outros companheiros usarem
muito obrigado mais uma vez

Fernando

Obrigado pelo retorno .