|
|
Postada em 29/01/2006 20:45 hs
Por favor, alguem me diga por que não esta dando certo. Estou querendo adicionar registro e estou usando assim: Private Sub novoRegistro()
Dim Codigo As String
rsCliente.MoveMax
Codigo = rsCliente.Fields("CodigoDoCliente") + 1
Call DesabilitaBotoes
Call LimpaControles
TxtCodCliente.Text = Codigo
Call MostraDados
TxtNome.SetFocus
rsCliente.AddNew
End Sub |
|
|
|
|
|
|
|
Postada em 29/01/2006 21:07 hs
Aparece alguma mensagem de erro? Não seria "rsCliente.MoveMax" no lugar de "rsCliente.MoveMax" |
|
|
|
|
|
Postada em 29/01/2006 21:43 hs
Paulo, por segurança o FORUM substitue comandos tipo M_o_v_e_N_e_x_t e M_o_v_e_L_a_s_t por nomes parecidos (no caso MoveMax)... é segurança pra evitar engraçadinhos tentando fazer da pau no site... Jailson, Nao entendi exatamente o q vc quer fazer, mas acho q o codigo abaixo vai te ajudar... Dim Codigo as Long rs.Move_L_a_s_t Codigo = rs("campo1") rs.AddNew rs("campo1") = Codigo rs("campo2") = txtCampo2 rs("campo3") = txtCampo3 rs.Update Acho q isso ajuda esclarecer como funciona o AddNew / Update... Flw...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 02/02/2006 06:11 hs
Essa função que eu digitei acima a é intenção é auto numerar o campo Cod_Cliente no momento que que for clicado novo no form, mas em vez no código aparecer as caixas do form são limpas e o codigo do cliente que seria para numerar na sequencia não aparece |
|
|
|
Ivo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2006 17:15 hs
vc tem que chamar a função limpacontroles antes . call limpacontroles codigo = rsclientes.fields(0) + 1 rsclientes.addnew rsclientes.fields(0) = codigo rsclientes.update |
|
|
|
