Edson_vb6
|
SÃO JOÃO DEL REI
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/04/2008 11:36 hs
Tenho um campo ComboBox (cbo1) com a propriedade 2- Dropdown List.
Quando eu incluo um registro em uma combobox e mando salvar, ele salva no banco de dados mas desaparece do form. Gostaria de poder acompanhar os registros usando o objeto Data, mas ao tentar ver os registros pelo Objeto DATA consta como se não houvesse registro algum.
Para que ela seja salva no meu banco de dados (access), sem dar erro de propriedades, tive quer usar o código abaixo:
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.Fields("Sexo") = cboSexo.Text
DadosPesquisa.Recordset.Update
End Sub
|
|
|
|
|
|
|
|
Postada em 16/04/2008 19:13 hs
Faz isto depois qdo atualizar:
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.MaxModified
End Sub
Se quiser, me manda um e-mail vilmar9820@gmail.comque eu te mando um projetinho simples com controle data feito com o utilitário Visual Data Manager. |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/04/2008 09:07 hs
Vilmar, você poderia, por favor, me enviar também esse projeto simples com controle data para eu aprender um pouco mais sobre ele? Obrigado desde já. Até mais. |
|
|
|
Edson_vb6
|
SÃO JOÃO DEL REI
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/04/2008 09:37 hs
Olá Perci, já mandei o programinha para o seu e-mail.
Lá descrevi o que está acontecendo!
Obrigado!
|
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/04/2008 10:06 hs
|
|
|
|
