ATUALIZAR
Estou com dificuldade de ao dar um UPTADE, atualizar um combo que contém itens de pesquisa.
Pra atualizar o combo tou tendo que fechar e reabrir o formulário.
alguém sabe como devo proceder?
Agradeço, quem puder me ajudar.
Pra atualizar o combo tou tendo que fechar e reabrir o formulário.
alguém sabe como devo proceder?
Agradeço, quem puder me ajudar.
campelo bom dia.
posta o codigo de como voce esta fazendo para carregar o combobox para podermos ajuda-lo
posta o codigo de como voce esta fazendo para carregar o combobox para podermos ajuda-lo
CAMPELO,
Está muito vago o que realmente precisa, mas creio que seja algo do tipo que você tenha que alterar para obter o resultado esperado:
Talvez você carregue sua Combo no Form_Load.
Você poderia criar uma função/procedimento que carregue-o e chamá-la no Form_Load.
Com isso, após fazer a ATUALIZAÇÃO (update) na base, chamaria a função novamente, para carregá-lo novamente com os dados atualizados.
Está muito vago o que realmente precisa, mas creio que seja algo do tipo que você tenha que alterar para obter o resultado esperado:
Talvez você carregue sua Combo no Form_Load.
Você poderia criar uma função/procedimento que carregue-o e chamá-la no Form_Load.
Com isso, após fazer a ATUALIZAÇÃO (update) na base, chamaria a função novamente, para carregá-lo novamente com os dados atualizados.
campelo boa noite.
continuando o que o andre disse. segue abaixo o que eu faco para carregar o combo sem a necessidade de fechar e abrir para carrega-lo
[txt-color=#e80000]Private Sub Cbosetor_GotFocus()
Set TBSETOR = bancodedados.OpenRecordset([Ô]select * From SETOR[Ô])
If TBSETOR.RecordCount > 0 Then
TBSETOR.MoveFirst
Cbosetor.Clear
Do While Not TBSETOR.EOF
Cbosetor.AddItem TBSETOR([Ô]SETOR[Ô])
TBSETOR.MoveNext
If TBSETOR.BOF Then Exit Do
Loop
End If
End Sub[/txt-color]
ESPERO TER AJUDADO
E POSTE AI CASO NAO LHE SIRVA...
continuando o que o andre disse. segue abaixo o que eu faco para carregar o combo sem a necessidade de fechar e abrir para carrega-lo
[txt-color=#e80000]Private Sub Cbosetor_GotFocus()
Set TBSETOR = bancodedados.OpenRecordset([Ô]select * From SETOR[Ô])
If TBSETOR.RecordCount > 0 Then
TBSETOR.MoveFirst
Cbosetor.Clear
Do While Not TBSETOR.EOF
Cbosetor.AddItem TBSETOR([Ô]SETOR[Ô])
TBSETOR.MoveNext
If TBSETOR.BOF Then Exit Do
Loop
End If
End Sub[/txt-color]
ESPERO TER AJUDADO
E POSTE AI CASO NAO LHE SIRVA...
Citação::
campelo boa noite.
continuando o que o andre disse. segue abaixo o que eu faco para carregar o combo sem a necessidade de fechar e abrir para carrega-lo
[txt-color=#e80000]Private Sub Cbosetor_GotFocus()
Set TBSETOR = bancodedados.OpenRecordset([Ô]select * From SETOR[Ô])
If TBSETOR.RecordCount > 0 Then
TBSETOR.MoveFirst
Cbosetor.Clear
Do While Not TBSETOR.EOF
Cbosetor.AddItem TBSETOR([Ô]SETOR[Ô])
TBSETOR.MoveNext
If TBSETOR.BOF Then Exit Do
Loop
End If
End Sub[/txt-color]
ESPERO TER AJUDADO
Esse exemplo me ajudou bastante. E deu certo.
E VB assim mesmo, as vezes dá um branco e a gente empaca, de repente alguém fala alguma coisa e pronto! Reacende a luz e tudo fica claro. Obrigado ao André e Eriveltonvga.
As dicas de vocês me ajudaram a resolver. Obrigado
Tópico encerrado , respostas não são mais permitidas