[Resolvido]Colocar todos os Campos de um Formulario Continuo como Null

Srs. Venho aqui pedir ajuda dos Leões da Selva Access !!!!!!

O que Acontece é o seguinte tenho Form Continuo com os Campos
Equipe - Nome - Horario - HorarioSaida - Atendido_Por

Nestes Campos os Usuario vão Digitando em Linha de registro ja adicionadas os Dados.
Tenho um Botão com Nome de btn_limpa. ai Vem !!!!
Gostaria que no click deste Botão limpasse dos os dados do meu Form, isto é todas as linhas ficasse "" null novamente, estou tentando algo do Tipo Loop para todas as linhas ficarem em branco mas não estou conseguindo, e o Botão limpa de linha em linha !!!!

Estou tentando digitar algo do Tipo, mas acho que estou completamente fora.


Private Sub btn_Limpar_Click()
If MsgBox(getUsuarioAtual & ", Você Deseja Realmente Limpar Todos as Equipes listadas Abaixo!", vbYesNo + vbInformation, "Limpar Dados !") = vbYes Then

Do While Equipe <> ""
Me.Equipe = ""
Me.Nome = ""
Me.Horario = ""
Me.HorarioSaida = ""
Me.Atendido_Por = ""
Loop
End If
End Sub
===============================================
Bom a verdade nem sei se é desta Forma que devo fazer, Ficarei muito agradecido quem poder me ajudar.
Abraço a todos...

Teste assim, com um botão de comando


For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next

Desculpa Viera minha Total Ignorancia, mas como ficario esta instrução que voce me passa. !!!!!

Private Sub btn_Limpar_Click()

If MsgBox(getUsuarioAtual & ", Você Deseja Realmente Limpar Todos as Equipes listadas Abaixo!", vbYesNo + vbInformation, "Limpar Dados !") = vbYes Then

For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
End If
End Sub

Se for Isto esta dando Erro !

òi amigão, já estava de saída e recebebi o mail:

Você tem 2 hipóteses:

1- No seu botão de comando digite assim
Dim ctrl As Control
For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then
ctl.SetFocus
ctl.Text = ""
End If
Next

2- Ou faz isso caixa a caixa

text1.setfocus
rext1=""
text2.setfocus
text2=""
e por aí fora

Ok Viera este é o caminho que Preciso, So que neste codigo ele esta apagando somente a linha por Completo.
Preciso que ele Continue ate o Ultimo Registro Entendeu.
Isto é, Passe para linha debaixo e faz a mesma Coisa.
Proxima Linha e mesma Coisa, Etc........Entendeu !!!!!!



Private Sub btn_Limpar_Click()
Dim ctrl As Control

If MsgBox(getUsuarioAtual & ", Você Deseja Realmente Limpar Todos as Equipes listadas Abaixo!", vbYesNo + vbInformation, "Limpar Dados !") = vbYes Then

For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then
Equipe.SetFocus
Equipe = ""
Nome.SetFocus
Nome = ""
Horario.SetFocus
Horario = ""
HorarioSaida.SetFocus
HorarioSaida = ""
Atendido_Por.SetFocus
Atendido_Por = ""
End If
Next

End If
End Sub

Olá seja bem vindo ao fórum;

Teste por favor;


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strobjControl As Control
Dim strRegistro As Integer

DoCmd.GoToRecord acDataForm, Me.Name, acLast
strRegistro = Form.CurrentRecord

DoCmd.GoToRecord acDataForm, Me.Name, acFirst

While (strRegistro)
For Each strobjControl In Me.Controls
If (strobjControl.ControlType = acTextBox) Then
strobjControl.Value = ""
End If
Next

strRegistro = strRegistro - 1
If (strRegistro > 0) Then
DoCmd.GoToRecord acDataForm, Me.Name, acNext
End If
Wend

End Sub

Só agora reparei que tambem tem Combobox`s nesse form;

Faça com este;


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strobjControl As Control
Dim strRegistro As Integer

DoCmd.GoToRecord acDataForm, Me.Name, acLast
strRegistro = Form.CurrentRecord

DoCmd.GoToRecord acDataForm, Me.Name, acFirst

While (strRegistro)
For Each strobjControl In Me.Controls
If (strobjControl.ControlType = acTextBox) Or (strobjControl.ControlType = acComboBox) Then
strobjControl.Value = ""
End If
Next

strRegistro = strRegistro - 1
If (strRegistro > 0) Then
DoCmd.GoToRecord acDataForm, Me.Name, acNext
End If
Wend

End Sub

Estava a postar na mesma altura que o Mestre e o meu foi-se.

De qualquer forma o colega estava a misturar as duas rotinas. Para que fique com a informação:

1- No seu botão de comando digite assim
Dim ctrl As Control
For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then
ctl.SetFocus
ctl.Text = ""
End If
Next

2- Ou faz isso caixa a caixa no botão de comando (isto é outra rotina)

text1.setfocus
rext1=""
text2.setfocus
text2=""
e por aí fora

Abs

Certo Vieira, mas num formulario continuo, com esse codigo apenas percorre todos os controles num linha.

E o amigo quer em todo o formulario, de cima a baixo.

Obrigado Mestre

Realmente não é um num form mas num sub form contínuo. Vou aproveitar essa rotina pois desconhecia.

OK;

Vamos aguardar o retorno do amigo Araujo.

Amigos Fico muito Agradecido em Saber que nesta selva existe tantas pessoas que gostam de ajudar, Obrigado ao Viera e o JPaulo. Bom mas vamos la desculpa pela demora !!!!
Jpaulo é exatamente isto mesmo que vc me passou, so tem um Detalhe, o codigo tambem esta apagando as linhas de registro, onde isto não deveria ocorrer, pois nesta mesma linha tenho outras informações, por isso queria somente colocar os campos como Null, ou seja somente deixar em branco novamente sem nada escrito.
o Seu codigo faz, limpa as linha e depois exclui as linhas de registro !!!!! Mas este é o caminho, agora vem a pergunta seria possivel o que eu quero fazer ? Somente deixar a linha em branco ?

Feras e mestres do Access espero ter explicado direitinho, mas o JPaulo matou em Cima minha Dúvida !......
Caso queiram posso Retirar este Formulario do Meu Banco Principal e postar para baixar somente o Form em questão!
No Aguardo !!!!!!!

Bom dia Araujo;

Duas questões não esclarecidas desde o inicio;

1ª Os campos são vinculados a alguma tabela ?

2ª Ao introduzir, você quer que fique guardado na tabela e limpe os campos para novas introduções ?

Aguardo...

Bom Dia João Paulo !!!!

1º Os Campos São sim Vinculado a uma Tabela, onde nesta tabela alem deste campos ja mensionados ainda tenho outros que são usado no mesmo Form Principal, so que na condição de ListBox, pois tem informação de Nome e Telefone Etc....
Veja tem uma Condição que ao Atualizar o Form Principal ele atualiza os outros Campos dentro deste Form Principal inclusive este Sub Form que estou trabalhando. e todas esta informações estão dentro de uma só Tabela, por isso não pode apagar a linha de Registro.
Sendo assim preciso somente que os campo fiquem em branco aguardando uma nova inserção de dados, como se a pessoa tivesse entrado campo a campo de Deletado o que estava escrito dentro, mas mantendo a linha de registro interia, Consegui explicar !!!!!!! rsrsrs

Abraço !!!!

Era o que eu suspeitava.

O Código que lhe passei, apenas serve para campos desvinculados.

Penso que um simples DoCmd.GoToRecord , , acNewRec vai resolver.

Ok e como Ficaria isto !!!!

Seria algo do Tipo.=====

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strobjControl As Control
Dim strRegistro As Integer

DoCmd.GoToRecord , , acNewRec
strRegistro = Form.CurrentRecord

DoCmd.GoToRecord , , acNewRec

While (strRegistro)
For Each strobjControl In Me.Controls
If (strobjControl.ControlType = acTextBox) Or (strobjControl.ControlType = acComboBox) Then
strobjControl.Value = ""
End If
Next

strRegistro = strRegistro - 1
If (strRegistro > 0) Then
DoCmd.GoToRecord , , acNewRec
End If
Wend

End Sub

Seria isto !!!!!!!!!!

No Aguardo !
Pois sinceramento não Sei !

Coloque num site publico, o seu banco ou parte dele e ficará resolvido em menos de 1 minuto.

Pode colocar aqui;

http://www.speedyshare.com/

João Paulo estou na Empresa no momento Vou tentar colocar neste local, mas não é Certeza visto que aqui na empresa é praticamento tudo Bloq. com Relação a internet rsrsrsrsrs.
Caso queira posso passar por Email Tambem, ou somente apos as 15:00 h pra mim postar !!!!!!!
O que é melhor, por Email ta facil !!!!

Pode enviar sim, depois eu coloco a solução aqui mesmo;

jpaulo65@gmail.com

Ok Já enviado o Email !!!!

Obrigado !

Tópico Resolvido.

O amigo Araujo irá mudar a estrutura do BD, como está será impossivel limpar o subform uma vez que está vinculado a um campo do form.