[Resolvido]Inserir dados automática numa tabela.

Bom dia Colegas,

Estou necessitando de uma grande, um big ajuda da parte de todos.

Estou criando um sistema que faz a geração de numero de série de um equipamento. Mas esta geração de numero tem que ser automática, ou seja, informo os dados e o sistema tem que criar automáticamente os numero de séries e registrar numa tabela.
Exemplo :

00314042001-B este é um numero de série. A minha grande dúvida é que este numero seja incluído em uma tabela de forma automática quando for criado.
Se eu quero produzir 20 numero de série em um dia, o sistema terá que criar.

00314042001-B - 00314042002-B - 00314042003-B - 00314042004-B - 00314042005-B..... 00314042020-B

O problema é inserir ( registrar ) estes valores numa tabela. Em anexo estou enviando o sistema criado. Por favor, vejam como foi criado e com toda a certeza irá facilitar mais a sua compreensão. Obrigado

Boa tarde!

não veio o anexo!

Obrigado, arquivo anexado

Meu amigo, no seu projeto na hora do For antes do Next a
acrescentei este código:

Código:


Dim mes As String
Dim ano As String
Dim a As Integer


mes = Mid(Data, 4, 2) ' 06
ano = Right(Data, 2) ' 14


For a = 1 To Qte
numeroserie = tipo & mes & ano & prod & "000" & a & "-" & modelo

MsgBox (numeroserie)
'AQUI VAMOS COLOCAR O INSERT NO BANCO DE DADOS OU SEJA  NA SUA TABELA "Tabela1"
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Tabela1")
rs.AddNew
rs("data") = Me.Data
rs("numeroserie") = Me.numeroserie
rs("prod") = Me.prod
rs("Qte") = Me.Qte
rs("modelo") = Me.modelo
rs("tipo") = Me.tipo
rs.Update
rs.Close
Set rs = Nothing
'AQUI TERMINA O INSERT NO BANCO DE DADOS
Next a

e desvinculei o formulario da tabela.

http://www.4shared.com/rar/HEGjg6Iyba/ExemploNumeroSerie.html

Danilo,

Fiquei imensamente grato pela sua atenção e a disponibilidade em que me ajudou rapidamente.

Cara, não sabe o adianto que você deu-me. Muito obrigado, precisando estou disponível.

Abraço

Clodoaldo silva