MODIFICAR/ATUALIZAR REGISTRO NO BANCO DE DADOS

ELOI17 27/07/2012 18:51:11
#406748
Boa noite!
Estou precisando de ajuda para inserir os dados de um userform de consulta na planilha de dados excel. Como faço o codigo que localiza o registro pesquisado para atualização?
Nota: A coluna [Ô]A[Ô] é onde esta o numero dos registros que começa com 1 e as colunas [Ô]B:AS[Ô] são dados deste numero de registro.
Eu consulto por exemplo o registro 67, e ele me traz todas as informações. Meu userform de consulta funciona certinho, então faço as devidas alterações de alguns textbox....e agora que vem minha necessidade. Colocar todas estas informaçoes atualizada na mesma linha aonde esta o mumero deste registro substituido os dados antigos.

Se alguem puder me ajudar, desde já agradeço.
HMOLIVEIRABR 28/07/2012 00:22:43
#406751
nao seria melhor usar um banco de dados em vez de planilha amigo?
ROBSON220BASS 28/07/2012 17:06:40
#406774
mostra o codigo que voce faz para pegar o valor desejado, pois acho que posso te ajudar.

uso uma planilha aqui que faz quase isso que voce quer, porem eu utilizo bd access.

manda ai.
ELOI17 28/07/2012 21:46:18
#406783
Private Sub CommandButton1_Click()
[ô]Seleciona o numero do registro
If TextBox1 = [Ô][Ô] Then
MsgBox [Ô]DIGITE UM NUMERO.[Ô]
TextBox1.SetFocus
Else
[ô]Selecionado o numero, este vai para a planilha6 onde atraves do
[ô]procv pega as colunas deste registro do banco.

Plan6.Range([Ô]A1[Ô]) = TextBox1.Value

[ô]Da planilha6 é tranferido para o userform de consulta
TextBox2.Value = Plan6.Range([Ô]B1[Ô])
TextBox5.Value = Plan6.Range([Ô]C1[Ô])
TextBox4.Value = Plan6.Range([Ô]E1[Ô])
TextBox3.Value = Plan6.Range([Ô]F1[Ô])
TextBox6.Value = Plan6.Range([Ô]D1[Ô])
TextBox7.Value = Plan6.Range([Ô]G1[Ô])
TextBox8.Value = Plan6.Range([Ô]H1[Ô])
TextBox9.Value = Plan6.Range([Ô]I1[Ô])
TextBox10.Value = Plan6.Range([Ô]J1[Ô])
TextBox11.Value = Plan6.Range([Ô]K1[Ô])
TextBox12.Value = Plan6.Range([Ô]L1[Ô])
TextBox13.Value = Plan6.Range([Ô]M1[Ô])
TextBox14.Value = Plan6.Range([Ô]N1[Ô])
TextBox15.Value = Plan6.Range([Ô]O1[Ô])
TextBox16.Value = Plan6.Range([Ô]P1[Ô])
TextBox17.Value = Plan6.Range([Ô]Q1[Ô])
TextBox18.Value = Plan6.Range([Ô]R1[Ô])
TextBox19.Value = Plan6.Range([Ô]S1[Ô])
TextBox20.Value = Plan6.Range([Ô]T1[Ô])
TextBox21.Value = Plan6.Range([Ô]U1[Ô])
TextBox22.Value = Plan6.Range([Ô]V1[Ô])
TextBox23.Value = Plan6.Range([Ô]W1[Ô])
TextBox24.Value = Plan6.Range([Ô]X1[Ô])
TextBox25.Value = Plan6.Range([Ô]Y1[Ô])
TextBox26.Value = Plan6.Range([Ô]Z1[Ô])
TextBox27.Value = Plan6.Range([Ô]AA1[Ô])
TextBox28.Value = Plan6.Range([Ô]AB1[Ô])
TextBox29.Value = Plan6.Range([Ô]AC1[Ô])
TextBox30.Value = Plan6.Range([Ô]AD1[Ô])
TextBox31.Value = Plan6.Range([Ô]AE1[Ô])
TextBox32.Value = Plan6.Range([Ô]AF1[Ô])
TextBox33.Value = Plan6.Range([Ô]AG1[Ô])
TextBox34.Value = Plan6.Range([Ô]AH1[Ô])
TextBox35.Value = Plan6.Range([Ô]AI1[Ô])
TextBox36.Value = Plan6.Range([Ô]AJ1[Ô])
TextBox37.Value = Plan6.Range([Ô]AK1[Ô])
TextBox38.Value = Plan6.Range([Ô]AL1[Ô])
TextBox39.Value = Plan6.Range([Ô]AM1[Ô])
TextBox40.Value = Plan6.Range([Ô]AN1[Ô])
TextBox41.Value = Plan6.Range([Ô]AO1[Ô])
TextBox42.Value = Plan6.Range([Ô]AP1[Ô])
TextBox43.Value = Plan6.Range([Ô]AQ1[Ô])
TextBox44.Value = Plan6.Range([Ô]AS1[Ô])
TextBox45.Value = Plan6.Range([Ô]AT1[Ô])
[ô]Nos textbox acima faço as devidas modificações e o proximo
[ô]passo é coloca-los na mesma linha do numero do registro selecionado que esta no banco.
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar