[Resolvido]Adicionando linhas em Subformulário

Saudações amigos

Preciso fazer com que um Subformulário vá acrescentando linhas somente sob solicitação...
Que inicialmente inicie-se com uma linha somente quando eu clicar num botão + ele acrescenta mais uma linha em baixo e assim sucessivamente.

Alguém teria alguma idéia?

Att,


Davi

Quase lá JPaulo...

Vou tabulando meu Subform, quando passo pelo último campo automaticamente ele cria uma outra linha certo...
Eu precisava inibir essa criação automática e eu pudesse cria-la à partir de um botão

Não sei se consegui ser objetivo...

Grato,

O botão no formulario, ou em cada linha do subformulario ?

Em cada linha...

Então no botão no subformulario ao lado da ultima caixa de texto, apenas coloque;

Private Sub SeuBotão_Click()
DoCmd.GoToRecord , , acNewRec 'cria novo registro
End Sub


No evento VBA ao Saír da ultima caixa de texto no subformulario, envie o foco para a primeira;


Private Sub SuaUltimaCaixaTexto__Exit(Cancel As Integer)
Me.SuaPrimeiraCaixaTexto.SetFocus
End Sub

Show de bola JPaulo

Bem pensado, muito grato pela força.

Obrigado pelo retorno o fórum agradece.