Salvar registros da ComboBox no access!

[Edson_csi]

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 é:

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 cbo1_Change()

Private Sub cmdSalvar_Click()

DadosPesquisa.Recordset.Update

DadosPesquisa.Refresh

End Sub

Editado Março 22, 2008 por Edson_csi

[Macêdo]

Basta pegar o valor de COMBO.Text

[Edson_csi]

Basta pegar o valor de COMBO.Text

Não entendi muito bem!

Como seria o código pra gravar o valor da combo.text no access?

[Macêdo]

Me parece que tu ta usando controle vinculado certo? ADODC ? basta vincular a propriedade DataField igual as textbox, se estiver usando mesmo o ADODC fica ainda melhor se você usar a DataCombo ao invés da Combo

[Edson_csi]

Olá pessoal consegui resolver!

Adicionei mais esse código no botão salvar!

DadosPesquisa.Recordset.Field("nome do campo")=cbo1.text

Até mais!