USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Salvar registros da ComboBox no access!
Edson_csi
SÃO JOÃO DEL REI
MG - BRASIL
Postada em 22/03/2008 09:55 hs            
Olá pessoal,
 
Tenho um form com algumas ComboBox e TextBox. Quando incluo algum registro ele apenas salva no access os campos TextBox. Os campos TextBox estão ligados via DataField. Já as ComoBox eu não estou usando o DataField.
 
Como seria o código pra salvar as minhas ComboBox no acess?
 
O código que estou usando para as ComboBox é:
 
Private Sub cbo1_Change()
For i = 0 To cbo1.ListCount - 1 'conta do 0 ao último item do combo
   If cbo1.List(i) = DadosPesquisa.Recordset.Fields("P1") Then ' se achar algum item do combo igual ao registro da tabela...
       cbo1.ListIndex = i '...selecionar esse item
       Exit For 'sair do loop
   End If
Next
End Sub
 
 
Private Sub cmdSalvar_Click()

DadosPesquisa.Recordset.Update
DadosPesquisa.Refresh

End Sub
TÓPICO EDITADO
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 22/03/2008 17:32 hs            
tenta desta forma
 
inclua esta linha no botão salvar
 
DadosPesquisa.Recordset.Field("nome do campo")=cbo1.text
 
   
Edson_vb6
SÃO JOÃO DEL REI
MG - BRASIL
Postada em 23/03/2008 22:26 hs            
Obrigado TREZE, deu certo esse código!

Valeu!
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página