MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Inserir dados automática numa tabela.

    avatar
    cbs412
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2013

    [Resolvido]Inserir dados automática numa tabela. Empty [Resolvido]Inserir dados automática numa tabela.

    Mensagem  cbs412 30/6/2014, 15:03

    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
    Anexos
    [Resolvido]Inserir dados automática numa tabela. AttachmentExemploNumeroSerie.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 11 vez(es)


    Última edição por cbs412 em 30/6/2014, 16:15, editado 2 vez(es)
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Inserir dados automática numa tabela. Empty Inserir dados automática numa tabela.

    Mensagem  daniloreiis 30/6/2014, 16:06

    Boa tarde!

    não veio o anexo!


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    cbs412
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2013

    [Resolvido]Inserir dados automática numa tabela. Empty Arquivo Anexado

    Mensagem  cbs412 30/6/2014, 16:16

    Obrigado, arquivo anexado
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Inserir dados automática numa tabela. Empty Inserir dados automática numa tabela.

    Mensagem  daniloreiis 30/6/2014, 18:12

    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


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    cbs412
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2013

    [Resolvido]Inserir dados automática numa tabela. Empty Re: [Resolvido]Inserir dados automática numa tabela.

    Mensagem  cbs412 30/6/2014, 19:30

    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

      Data/hora atual: 28/11/2022, 02:57