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
