[Resolvido]Os valores gravados através da caixa de combinação não aparecem depois de salvos no formulário

Boa tarde,

Tenho um formulário no qual possui algumas informações que são salvas através de uma caixa de combinação. Quando são selecionados os dados na caixa de combinação são gravados na tabela corretamente. Mas, posteriormente ao pesquisar o formulário os valores gravados na tabela não aparecem na caixa de combinação, somente o primeiro registro. Abaixo envio link com vídeo demonstrando o problema. Se alguém puder oferecer uma ajuda agradeço imensamente.


https://mega.co.nz/#F!LN4h0aSI!azPt7sopXXTgqha64TIPig

Grato,

Darlan

Não vi teu aplicativo.

Experimente colocar na propriedade de evento Ao entrar da caixa de combinação:

Me!NomedaCombobox.Requery

Isso só funcionará se os registro foram realmente salvos na tabela.

Veja se funfa.

Perdoa-me pela demora na resposta estava viajando a trabalho. Grato pela sua ajuda, contudo não funcionou. Abaixo depositei no link o banco. Peço ajuda para resolver esta situação.


https://mega.co.nz/#F!LN4h0aSI!azPt7sopXXTgqha64TIPig


Deus abençoe

Darlan

Embora tente explicar no video passando o mouse sobre os controles, não dá pra entender o que deseja.

Lembre-se, quem sabe do teu aplicativo, é você.

Uma das coisas que percebi é que quando se abre o form, todos os controles estão desativados, é assim mesmo?

Você fala de uma combobox, que não recebe os novos registros.

"Mas, posteriormente ao pesquisar o formulário os valores gravados na tabela não aparecem na caixa de combinação, somente o primeiro registro. "

Qual é a caixa de combinação?

Os dados são gravados na tabela tbl_documentoFiscal, porém não encontrei uma combobox que tenha como origem da linha, essa tabela.

Aguardo...

Boa tarde, perdoa-me serei mais claro. Os valores são gravados na tabela "tbl_documentoFiscal" corretamente, através do formulário "frm_documentofiscal". Mas ao sair do formulário e retorna para ele, navegando através dos registros pelos botões "btnRegistoAnterior" e "btnProximoRegistro", os valores que estão gravados na tabela não aparecem no formulário. Os valores que estão conectados através das caixas de combinação. Abaixo segue o código.

Código:


Private Sub txt_documentoFiscal_tipo_GotFocus()
    ' Limpa a combo cboProdutos toda
    ' vez que cboCategorias recebe o foco.
    Me.txt_documentoFiscal_operacaofiscal = Null
    Me.txt_documentoFiscal_pistributavel_cst = Null
    Me.txt_documentoFiscal_piscofinsmonofasico_cst = Null
    Me.txt_documentoFiscal_piscofinssubstituido_cst = Null
    Me.txt_documentoFiscal_piscofinsSemIncidencia_cst = Null
    Me.txt_documentoFiscal_piscofinsSuspensao_cst = Null
    Me.txt_documentoFiscal_piscofinsaliquotazero_cst = Null
    Me.txt_documentoFiscal_piscofinsisento_cst = Null
    Me.txt_documentoFiscal_piscofinsOutrasOperacoes_cst = Null
End Sub
Private Sub txt_documentoFiscal_pistributavel_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_pistributavel_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinsmonofasico_cst_GotFocus()
 ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsmonofasico_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinssubstituido_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinssubstituido_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinsSemIncidencia_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsSemIncidencia_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinsSuspensao_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsSuspensao_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinsaliquotazero_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsaliquotazero_cst.Requery

End Sub
Private Sub txt_documentoFiscal_piscofinsisento_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsisento_cst.Requery
End Sub
Private Sub txt_documentoFiscal_piscofinsOutrasOperacoes_cst_GotFocus()
' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_piscofinsOutrasOperacoes_cst.Requery
End Sub



Private Sub txt_documentoFiscal_operacaofiscal_GotFocus()
    ' Limpa a combo cboProdutos toda
    ' vez que cboCategorias recebe o foco.
Me.txt_documentoFiscal_operacaofiscal.Requery
Me.txt_documentoFiscal_icmstributavel_cfop = Null
Me.txt_documentoFiscal_icmsST_cfop = Null
Me.txt_documentoFiscal_icmsIsento_cfop = Null
Me.txt_documentoFiscal_outras_cfop = Null
End Sub
Private Sub txt_documentoFiscal_icmstributavel_cfop_GotFocus()
  ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_icmstributavel_cfop.Requery
End Sub
Private Sub txt_documentoFiscal_icmsST_cfop_GotFocus()
  ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_icmsST_cfop.Requery
End Sub
Private Sub txt_documentoFiscal_icmsIsento_cfop_GotFocus()
  ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_icmsIsento_cfop.Requery
End Sub
Private Sub txt_documentoFiscal_outras_cfop_GotFocus()
  ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    Me.txt_documentoFiscal_outras_cfop.Requery
End Sub




Grato pela ajuda mais uma vez,

Me perdoem a intromissão....
Mas não é mais fácil e simples postar partes do projeto que está com problema e assim podermos te ajudar ?

Boa tarde Silvio,

Postei o projeto e um vídeo explicativo no poster anterior apontando a tabela, o formulário e os campos que apresentaram o problema. Desta forma imagino ser o mais detalhista possível. Abaixo link para melhor visualização das informações.


https://mega.nz/#F!LN4h0aSI!azPt7sopXXTgqha64TIPig


Grato,

Darlan

Estou verificando teu aplicativo.
Um tanto difícil ler o teu código, porque está usando nomes muito longos nos controles.
Quando um controle começa com txt, significa que é uma textbox ou caixa de texto,
cbo ou cmb  são usado no inicio de combobox, lst para caixa de listagem e op para caixa de opções.
Esta usando txt no inicio de todos os controles de dados.
O botões de navegação que mencionou; registro anterior e posterior estão invertidos,
o botão registro anterior está indo pra o próximo registro e o posterior para o registro anterior.
Eu adicionei dois registros e estão aparecendo no formulário.

A combobox txt_documentoFiscal_operacaofiscal tem como origem da linha a tabela tbl_OperaçãoFiscal
que por sua vez está sem registros.
A exemplo de outras combobox e suas tabelas , precisa alimentar essa tabela com dados no caso o código e tipo de operação.
por mais que digite na combo o numero da operação, não refletira no campo da tabela do formulário, devido a essa combobox
não ter registros, ou seja, estar vazia de dados.

Verifique e retorne,

Aguardo...

Estranho....quem se relaciona com quem em teu projeto....ou seja....qual tabela se relaciona com qual tabela, pois não vi nenhum relacionamento feito.
Sem contar que os nomes de campos de tuas tabelas estão parecendo uma salada de frutas, muito extensos !
Mas vamos dar um fuçada nele.

boas...Noob, não me ative que estavas a responder....

Isso acontece Silvio

Darlan:
Eu editei meu post anterior.

Boa tarde Gente,

Verifiquei todo o código e descobrir que as opções que não estavam gravando são as que estavam marcadas na tabela com valor padrão "0". A demora na resposta foi por que tive que estudar todo o código com paciência e como sou novo com VB, tive algumas dificuldades. Agradeço a todos pela ajuda, de qualquer forma a orientação de vocês me ajudou a conhecer melhor a linguagem.


Grato,