Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Alexandre Neves 8/6/2016, 21:09
Boa noite,
Crie uma tabela tbDadosSequenciais com campo NC
Cole o código num módulo e execute-o
- Código:
Sub PreencheSequencia()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, L As Long
Set Rst1 = CurrentDb.OpenRecordset("SELECT * FROM tbDados")
Set Rst2 = CurrentDb.OpenRecordset("SELECT * FROM tbDadosSequenciais")
Do While Not Rst1.EOF
For L = Rst1("NCInicial") To Rst1("NCFinal")
Rst2.AddNew
Rst2!NC = L
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
End Sub
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo