[Resolvido]Inserindo linhas em branco em subformulário

Assim como no Excel é possível inserir linhas em branco em subformulário?
Eu queria inserir uma linha em branco no meio dos registros igual ao Excel.
Exemplo, estou no 1º registro, mas existem outros depois dele, mas entre o 1º e o 2º eu quero inserir um registro (linha) em branco, tem como?

Inserir registros em branco em um subformulário é relativamente simples...
Basta inserir o registro na tabela e fazer um requery no subform.

A questão é como colocar este registro entre um e outro...Visto que não se pode alterar a numeracao automatica...

No caso poderia se utilizar uma função que numerasse um campo... mas supondo que voce tenha 4 registros
1
2
3
4

Se adicionar mais um registro na segunda posição teria que renumerar os demais...

Pense nisso.


Cumprimentos.

hahaha parece simples, acho que vou ter que usar umas 3 sqls e uma tabela temporaria.
Quando fizer eu posto o resultado aqui.
Valeu

Envie um modelo do form e subform para que eu veja isto pra ti.


Cumprimentos.

Segue o modelo.
Lembrando que eu queria inserir uma linha em branco no meio dos registros já existente, no exemplo, eu queria inserir uma linha em branco entre o registro 1 e 2 ou qq outro no subformulário.

Poderia falar porque deseja isso? qual o motivo desta necessidade?

A questão principal ai.. é a numeração automática.
Pra conseguir isto teria que colocar Numeraçào comum e código para renumerar os registros.... Como iria identificar a posição para inserir a linha em branco...

Sinceramente não vejo utilidade para o que pretende...

Vamos a sua solução:

1 - Criado um campo na tabela DetPedido >>> Item
     O subform será visualizado em ordem de acordo com a numeração do ítem
2 - Ocultado no subform os campos IdDet e IdPedido
3 - Incluido módulo de numeração Vago para numerar o proximo registro (Item) após atualização do produto na caixa de combinação
4 - Botão para inserir nova linha selecionando em que linha inserirá este registro

Código para inserir nova linha

Private Sub btnInserirLinha_Click()
Dim IntItem As Integer
Dim Rs As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Dim X As Integer
'---------------------------------
'SQL da tabela
'---------------------------------
strSQL = "SELECT * FROM DetPedido"
'---------------------------------
'Abre o recordset baseado na SQL
'---------------------------------
Set Rs = CurrentDb.OpenRecordset(strSQL)
'------------------------------------------------------------------------------------------------
'Carrega a variável com o número de registros da tabela para utilização no procedimento com o For
'------------------------------------------------------------------------------------------------
i = DCount("*", "DetPedido", "IdPedido =  " & Forms!Pedido.IDPedido & "")
'-------------------------------------------------------------
'Carrega a variável com o número da linha digitada na ImputBox
'-------------------------------------------------------------
IntItem = InputBox("Informe a linha para inserir:", "Atenção!")
'-----------------------------------------------------------------------------------------------------------------
'Procedimento com For... Filtrará o recordset de acordo com o número na variável IntItem para en seguida alterá-lo
'adicionando 1 ao mesmo...Seguidamente incrementa a variável IntItem e encontrará o próximo registro no recordset
'para ir alterando os registros subsequentes, deixando o número digitado na ImputBox vago
'-----------------------------------------------------------------------------------------------------------------
For X = 1 To i - 1
    Rs.FindFirst "Item = " & IntItem & ""
    IntItem = IntItem + 1
    Rs.Edit
    Rs!Item = IntItem
    Rs.Update
Next X
'--------------------------------------------------------------------------------
'Adiciona o registro com número vago na tabela, justamente o digitado na ImputBox
'--------------------------------------------------------------------------------
Rs.AddNew
Rs!Item = NumeroLivreVago("Item", "DetPedido")
Rs!IDPedido = Forms!Pedido.IDPedido
Rs.Update
Me.PedidoSubform.Requery
End Sub

Cumprimentos.

Nossa cara, vc salvou minha vida.
Valeu mesmo.

O Fórum agradece o Retorno.

Amigo.. o código continha algumas iconsistências dependendo da linha a inserir..
podia dar erro no item do registro final..

O exemplo corrigido, podendo inserir linhas em qualquer posição:

http://maximoaccess.forumeiros.com/t15081-inserir-novo-registro-em-subform-em-linha-intermediariaitem-reposicionando-as-demais-linhas-subsequentes#114449


Cumprimentos.

Olá Pessoal!

Estou a tentar incorporar este exemplo na minha BD mas, como não estou a conseguir, peço o favor de disponibilizarem o exemplo com resultado final.

Muito obrigado