posta o código completo do botão salvar

ta ai

 

For F = 1 To 2
BancoRevistasOperações.Recordset.AddNew
BancoRevistasOperações.Recordset.Fields("TxtCodigoRevistasOperações.Text") = "1"
BancoRevistasOperações.Recordset.Fields("TxtDataRevistasOperações.Text") = "2"
BancoRevistasOperações.Recordset.Fields("TxtEdiçãoRevistasOperações.Text") = "2"
BancoRevistasOperações.Recordset.Update
Next F

TxtCodigoBancaRevistasOperações.SetFocus

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

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

tenta isto

 

porem joguei esses valores pra testar

 

pois é 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.moveMax

 

txt1.text = ""

txt2.text = ""

 

txt1.locked = false

txt2.locked = false

 

 

 

essa é a rotina que desejo!

entendeu!?

então!?