Como duplicar Registros?

[Lucas Lima]

Como Duplicar Registros?

Tenho um formulario, e salvo as informações em um banco de dados SQL

porem, ao clicar em gravar gostaria que gravasse o mesmo registro duas vezes

Como faço isso?

Abraços

[Macêdo]

Você pode por FOR NEXT indica uma variavel com o valor = 1 e até a quantidade que quiser inserir no BD então até que a variavel alcance o valor o codigo de inserir os dados no BD se repetirá, exemplo:

'inseri duas vezes o registro

Dim x As Integer

For x = 1 To 2

codigo para inserir

Next x

'inseri dez vezes o registro

Dim x As Integer

For x = 1 To 10

codigo para inserir

Next x

[Lucas Lima]

Você pode por FOR NEXT indica uma variavel com o valor = 1 e até a quantidade que quiser inserir no BD então até que a variavel alcance o valor o codigo de inserir os dados no BD se repetirá, exemplo:

'inseri duas vezes o registro

Dim x As Integer

For x = 1 To 2

codigo para inserir

Next x

'inseri dez vezes o registro

Dim x As Integer

For x = 1 To 10

codigo para inserir

Next x

Kara brigadão mesmo..

mas nem funcionou oO

eu salvo com o

MeuBanco.Recordset.Update

[Jonathan Queiroz]

Não funcionou ??

Qual erro ele dá ?

Posta aí como está seu código !

Você fez com:

for i=1 to 2
'O código para inserir o registro ficará aqui
next

Obs.:

Verifique se a variável i já está sendo utilizada dentro do código para inserir o registro !

Se você a modificar poderão ocorrer erros !

[Lucas Lima]

Simplesmente o For Next não executa

Olha como coloquei

Dim X as Integer

For X = 1 to 2

MeuBanco.recordset.Update

Next X

foi isso

ele faz o Update normalmente, porem uma vez só

como se não existisse o For Next

Vlw a Força!

ABraços!

[Jonathan Queiroz]

Ah, sim !

Nesse caso você teria que colocar o código completo dentro do loop

Desde a parte onde você adciona os valores que serão atualizados até a parte que você dá o comando pra atualizar (update)

[Lucas Lima]

Ah, sim !

Nesse caso você teria que colocar o código completo dentro do loop

Desde a parte onde você adciona os valores que serão atualizados até a parte que você dá o comando pra atualizar (update)

Como assim Amigo??? sou leigo =/

você poderia me dar um exemplo?

[Jonathan Queiroz]

Seria mais ou menos isso:

for i=1 to 2
MeuRecordset.AddNew
MeuRecordset("Valor") = "valor do campo"
MeuRecordset.Update
next

Se tiver algum problema posta aí o código do programa completo !

[Lucas Lima]

Seria mais ou menos isso:

for i=1 to 2
MeuRecordset.AddNew
MeuRecordset("Valor") = "valor do campo"
MeuRecordset.Update
next

Se tiver algum problema posta aí o código do programa completo !

certo, porem o valor do campo deve ser igual do registro anterior

como faço isso?

[Jonathan Queiroz]

Você pode salvar o valor do campo anterior em uma variável e depois colocar do recordset novamente !

[Lucas Lima]

é o seguinte

quando eu salvar quero que salve dois registros iguais

e o segundo registro salvo fique na tela

com apenas alguns campos habilitados e em branco para sofrerem alterações

a minha ideia e necessidade, e salvar um proximo registro, com tres campos com valores

iguais aos do registro anterior (na tela são 5 campos, apensa dois mudarei)

sem ter que digitar esses campos novamente

essa é minha Ideia!

seria mais ou menos assim:

'Digitei meu cadastro todo

'Algum comando que não sei, para salvar esse cadastro duas vezes

bancorevistasoperações.recordset.movelast

txt1.text = ""

txt2.text = ""

txt1.locked = false

txt2.locked = false

essa é a rotina que desejo!

COmo salvo eles numa variavel?

[Jonathan Queiroz]

Ah, sim, cara !

você pode salvar os três registro que irão continuar iguais em uma variável e na hora de inserir o próximo registro chamar essa variável

Os outros dois valores você insere diretamente no registro !

Entendeu ?

[Lucas Lima]

Ah, sim, cara !

você pode salvar os três registro que irão continuar iguais em uma variável e na hora de inserir o próximo registro chamar essa variável

Os outros dois valores você insere diretamente no registro !

Entendeu ?

Entendi a Ideia!

Mas como salvo eles numa variavel

vou te passar meus campos

os campos os quais quero manter são

txtcodigorevistasoperações.text

txtdatarevistasoperações.text

txtediçãorevistasoperações.text

meu banco:

BancoRevistasOperações.Recordset

[Jonathan Queiroz]

Ficaria mais ou menos como:

dim valor1, valor2, valor3 as string

valor1=inputbox("Digite o valor para o campo1: ")
valor2=inputbox("Digite o valor para o campo2: ")
valor3=inputbox("Digite o valor para o campo3: ")
valor4="teste"
valor5="valor 5"

Onde você pode escrever a variável valor de qualquer jeito, pode ser um campo text, select o que for ! Depois você pode atualizar o recordset da seguinte maneira:

for i=1 to 2
MeuRecordset.AddNew
MeuRecordset("Valor1") = valor1
MeuRecordset("Valor2") = valor2
MeuRecordset("Valor3") = valor3
MeuRecordset("Valor4") = valor4
MeuRecordset("Valor5") = valor5
valor4 = "Este valor aparecerá somente no segundo registro"
valor5 = "Este também !!"
MeuRecordset.Update
next

Perceba que na primeira execução o campo valor1 do recordset ficará como "teste" e o campo "valor5" será "valor 5"

Já na segunda execução o valor dos campos "valor4" e "valor5" serão modificados !

[Lucas Lima]

não entendi =/

porque o Imput Box?

[kuroi]

não entendi =/

porque o Imput Box?

é so um exemplo, você q sabe com o q vai preencher as variaveis.

imagino q você va pegar os valores do formulario não??

[Lucas Lima]

não entendi =/

porque o Imput Box?

é so um exemplo, você q sabe com o q vai preencher as variaveis.

imagino q você va pegar os valores do formulario não??

isso mesmo, como faço assim!?!?!?

[kuroi]

ué o codigo ta ali, é so pegar do textbox em vez do inputbox ue

[Lucas Lima]

ué o codigo ta ali, é so pegar do textbox em vez do inputbox ue

Kara, num to sacando nada!.. sou novato, inesperiente, da uma força

[kuroi]

vai ver q eu não to entendendo direito então.

ó, qual desses dois você quer:

1 - o cara digita todos os dados de um registro. ai ele clica em gravar. é salvo dessa vez SOMENTE UM registro. ai alguns campos desse primero registro vao ter o mesmo valor no segundo. e esses campos devem estar preenchidos nos textbox quando ele for salvar o proximo. mas alguns outros campos ele pode preencher. e ai quando ele clicar em gravar MAIS UMA VEZ ele grava o segundo registro.

2 - o cara digita todos os dados de um registro. ai ele clica em gravar. dessa vez é salvo um registro com os dados q ele escreveu e logo em seguida, alguns dos dados q ele preencheu são alterados (é você quem altera no codigo e não o usuario) enquanto q otros continuam os mesmos e um segundo registro é gravado sendo Q ELE SO CLICOU EM GRAVAR UMA VEZ.

opcao 1 ou 2??

ou não é nd disso??

[Lucas Lima]

hsuahsuahsua Brigado pela paciencia kara!

definitivamente Opção 1

1 - o cara digita todos os dados de um registro. ai ele clica em gravar. é salvo dessa vez SOMENTE UM registro. ai alguns campos desse primero registro vao ter o mesmo valor no segundo. e esses campos devem estar preenchidos nos textbox quando ele for salvar o proximo. mas alguns outros campos ele pode preencher. e ai quando ele clicar em gravar MAIS UMA VEZ ele grava o segundo registro.

é exatamente o que preciso fazer!

se puder me ajudar...

Um abraço!

[Jonathan Queiroz]

Ah tá !

Imaginei que fosse a segunda opção^^

Nesse caso você pode desabilitar os textbox que você não quer que sejam modificados e pedir que ele escolha o valor para os outros textbox

Aí quando for inserir os dados você habilita todos os textbox e insere os registros da mesma forma que a primeira vez !

[Lucas Lima]

Num é bem isso Jhonatan

acontece que não quero apenas que ele tranque os campos

e sim, que ele pegue as informações do registro anterior( para estes campos)

[Lucas Lima]

Meu Codigo, bem especifico, e estou tentando ao maximo me expressar...

1º - (Salvei meu registro, com os 5 campos preenchidos!)

BancoRevistasOperações.Recordset.Update

2º - (Logo apos esse Addnew, quero que os valores que coloquei nos 3 primeiros campos do registro anterior, continuem os mesmo, e só irei alterar os dois ultimos)

BancoRevistasOperações.Recordset.AddNew

3º - (O foco ira direto para o 4º campo, pois os 3 primeiros já estaram preenchidos)

'TxtCodigoBancaRevistasOperações.SetFocus

4º - (Aqui, apenas os dois ultimo campos, estarão em branco, e habilitados para alterações)

TxtCodigoBancaRevistasOperações.Text = ""
TxtReparteRevistasOperações.Text = ""


TxtCodigoBancaRevistasOperações.Locked = False
TxtReparteRevistasOperações.Locked = False

Vlw galera, sepuderem me ajudar ficarei extremamente agradecido

[kuroi]

se são 3 campos, crie 3 variaveis la em cima no general.

antes do update, coloque os valores dos textbox em cada uma dessas variaveis.

depois do addnew de limpar os textboxs, coloque os valores q estavam nas variaveis de volta nos textboxes.

e pronto.

so q ai você tem q ver. não sei o q acontece depois q ele gravar o segundo. os dados dos 3 campos continuam fixos pro tercero??

[Lucas Lima]

Kara Deu Certoooo!!!

sim, eles continuam fixos pra quanto eu Quiser

mas ainda tem um porem

um desses campos é uma Data, ta dando erro

sera que a variavel deve ser diferente?

Desde já Mue Muito Obrigado a todos!

Kuroi e Jhonatan Queiroz Pela Paciennnnncia

abraços