(Resolvido) Lançamentos automaticos (inserir registros)

[Luis Castro]

Caros amigos

cá estou eu com mais uma questão.

Tenho uma base de dados onde lanço recibos que são entregues aos vendedores

Quando eles levam recibos sem serem sequenciais, tenho de os lançar um a um, mas tem muitas vezes que eles levam livros de recibos inteiros , ou seja por exemplo levam do recibo 1 ao 100.

Não queria estar a lançar isto um a um, precisava de algo onde pusesse DATA SAIDA - VENDEDOR - Nº RECIBO de 1 a 100, e o computador criasse logo os recibos na base de dados, ou seja criaria algo assim:

DATA SAIDA - VENDEDOR - RECIBO

02.08.2010 - 33 - 1

02.08.2010 - 33 - 2

02.08.2010 - 33 - 3

02.08.2010 - 33 - 4... 100

Será que poderei fazer isto.

Obrigado a todos

1abraço

Editado Agosto 2, 2010 por Luis Castro

[MrMALJ]

Tipo fiz esse código rapidamente, mais vocÊ vai ter que adapta-lo

dim i as integer
dim strSql As String


for i 1 to 100
     Let strSql = "insert into suaTabela (data,vendedor,nrRecibo) values(" & suaData & ",'" & codVendedor & "','" & i & "')"
     DoCmd.RunSQL strSql
next i

Você pode substituir suaData pelo nome da caixa de texto que contem a data, codVendedor pelo objeto que tem o código e o i é número do recibo, daí você incrementa da forma que for mais conveniente para você.

[Luis Castro]

Obrigado MrMALJ

Mas não sei como adapta-lo, dá para me ajudares.

A tabela chama-se "MOV_SAIDA", e o campo data tem o nome "DATA", vend é "VENDEDOR" e o nº recibo é "RECIBO Nº".

Podes dar umas dicas como adapto.

1abraço

[MrMALJ]

Basta substituir pelos seus correspondentes qual a dificuldade em fazer isso?

[Luis Castro]

Obrigado MrMALJ, pela tua resposta tão rápida.

Mas a minha duvida consiste onde meto esse código?

Não sei onde o pôr.

1abraço

Editado Agosto 4, 2010 por Luis Castro

[MrMALJ]

Daí é com você.

Você criar um botão e colocar esse código pra ser executado quando esse botão for clicado. Como disse vocÊ vai definir quando isso vai acontecer.

[Luis Castro]

MrMALJ

Já criei o botão e meti esse código, mas dá-me erro no código.

Posso estar a fazer mal, já fiz de tantas maneira e nada.

Desculpa, mas não estou a conseguir.

[MrMALJ]

Posta ai seu banco que podemos tentar ver o que está levando ao erro.

[Luis Castro]

MrMALJ

Obrigadão por tudo.

Deixo aqui o link para a base de dados RECIBOS

1abraço

Editado Agosto 4, 2010 por Luis Castro

[MrMALJ]

Amigo suas tabelas não estão normalisadas, por isso criei uma que não use caracteres especiais ou espaços no nome dos campos, nomeia de tstMALJ e nela tem os 3 campos alvos para inserção, copiei seu formulário SAIDA RECIBOS para SaidaRecibosMALJ e fiz algumas alterações para que eu pudesse fazer o exemplo para você.

Bom agora acredito que você normalisando seu banco de dados, basta você adequar o que já fiz para o que você criar.

No arquivo zipado que estou disponibilizando tem a imagem do teste que fiz para que vocÊ possa visualizar o resultado.

Aguardo seu retorno para colocar resolvido no tópico.

tstReciboMrMALJ.zip

[Luis Castro]

Muito obrigado pela tua ajuda MrMALJ

Fiz download, mas dá ficheiro corrompido, e não consigo abrir.

Será que podes voltar a postar.

1abraço

[MrMALJ]

Ai amigo outra opção de download...

http://www.4shared.com/file/5OAWSy6f/tstReciboMrMALJ.html

[Luis Castro]

Amigo MrMALJ

Com este novo link, já consegui descarregar.

Na imagem do teste que envias, na data para criação do recibo metes 04//08/2010 e na tabela aparece com a data de 30/12/1899. Podes dizer-me porquê?

E estive a fazer testes com varios numeros de recibos a criar e se puseres 33333 ou 41444 no recibo inicial ou outros, dá erro "Run time error '6' Overflow"

Será que podes ver porque acontece isto.

Obrigado por tudo

1abraço

Editado Agosto 5, 2010 por Luis Castro

[MrMALJ]

Agora só semana que vem, a questão data pode ser algo relacionado ao formato.

Os demais só quando eu voltar de férias, ou se por acaso conseguir conectar de algum lugar....

[Luis Castro]

Obrigado amigo MrMALJ

Aguardo noticias tuas

1abraço

Editado Agosto 18, 2010 por Luis Castro

[Luis Castro]

Amigo MrMALJ

Será que já me podes ajudar com aresolução disto

1abraço

[MrMALJ]

Wu imaginei que com o exemplo bem encminhado você já teria resolvido o problema de formato, mais vou baixar de novo pra ver o que é.

[MrMALJ]

Como disse o problema era simples, eu esqueci de colocar o # (cerquilha ou jogo da velha) na data, então basta inserir ela a linha do include ficará assim:

Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Me.txtData & "#,'" & Me.txtVend & "','" & i & "')"

Pronto isso resolve a questão da data, posso colocar resolvido então?

[Luis Castro]

Amigo MrMALJ

Obrigado pela rapidez da tua resposta, a data está ok.

Falta só aquela questão de quando meto o recibo inicial por exemplo 33333 ou 40000 ou outro deste genero, não cria e dá o erro "Run time error '6' Overflow"

1abraço

[MrMALJ]

Testei aqui e não deu erro algum

[Luis Castro]

Amigo MrMALJ

Trabalho com acess 2003, e quando meto alguns numeros desta ordem 33333 ou 40100 dá o erro que podes ver o link a seguir. Imagem de erro

O que será? É que testei com numero inicial 30000, 31000, 32000 e deu ok. Com 33000 já dá erro.

Editado Agosto 23, 2010 por Luis Castro

[MrMALJ]

Amigo mudei o código do botão, cole esse no lugar do está lá, realmente estava havendo um estouro, devido ao tipo de váriavel e o tipo de loop que utilizei, com essa nova estrutura testei funcionou perfeitamente,

Dim inicio, final As Variant
Dim strSql As String

If Not IsNull(Me.txtVend) And Not IsNull(Me.txtData) And Not IsNull(Me.txtIni) And Not IsNull(Me.txtQtd) Then
    DoCmd.SetWarnings False
    inicio = Me.txtIni
    final = Me.txtIni + Me.txtQtd
    
    While inicio <= final
        Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Me.txtData & "#,'" & Me.txtVend & "','" & inicio & "')"
        DoCmd.RunSQL strSql
        inicio = inicio + 1
    Wend
    
    DoCmd.SetWarnings True
    MsgBox "Geração automática Concluída!", vbOKOnly + vbInformation, " Mr. MALJ"
Else
    MsgBox "Para geração automática de recibos é necessário informar todos os Requisitos!", vbOKOnly + vbInformation, " Mr. MALJ"
End If

Posso colocar resolvido no seu tópico?!!!!

[Luis Castro]

Obrigado por tudo MrMALJ

Já está OK.

Mais uma vez obrigado pela tua grande dedicação.

1 Grande Abraço