[Resolvido]Atualizar dados em campos de subformulários

Boa tarde. Tenho um formulário de cadastro com um subformulário. Esse subformulário possui outro subformulário com uma caixa de combinação. O relacionamento entre as tabelas está correto (ou pelo menos acho que está).

Quando lanço um novo item na caixa de combinação que está no último subformulário, o item não entra na lista enquanto o cadastro está aberto. Essa caixa de combinação, o usuário clica duas vezes para abrir um pop com a tabela referente para adicionar o novo item. Ao fecha-lo o item insiste em não aparecer na lista.

O que quero é atualizar o registro que está sendo digitado no cadastro sem ter que sair do cadastro e abrir de novo.
O botão Atualizar que existe no assistente só atualiza em formulários e na tabela vinculada, nunca em caixas de combinação em subformulários.

Gostaria de inserir um item na caixa de combinação e a atualização ser feita sem ter que sair apertando botão Atualizar. Tem jeito isso?

Obrigado!

Se entendi o que você explicou, você pode colocar um Me.Form.Refresh no evento AfterUpdate dessa combo, mas ela não aceitará adição de registros, somente aqueles que estiverem na tabela/consulta de onde ela tira os dados para sua exibição.

A caixa de combinação tem a propriedade "limitar a uma lista" como sim. Então, nada é digitado dentro do campo. O usuário clica duas vezes para abrir a tabela referente que está em um formulário pop. Essa tabela é a mesma usada na caixa de combinação.
A atualização é que é a encrenca!

Olá, pelo que entendi quando vc cadastra algo ele não aparece no subformulários. Creio que vc usa um botão para salvar. Pois bem, abra no modo designe e vá nas propriedades do botão>evento. Na opção "Ao Clicar" vc insere uma marcro, logo no começo tem a opção Atualizar, fecha, salva e testa. Creio q seja isso.

Olá! posso dar Palpite?

Eu tenho um código que tirei de um modelo de Pedidos que acompanhava o acces mai antigo e está servindo ainda hoje
é só atualizar os devidos nomes



Private Sub Conta_DblClick(Cancel As Integer)
On Error GoTo Err_Conta_DblClick
Dim lngProductID As Long
'Conta = Nome da Combx
If IsNull(Me![Conta]) Then
Me![Conta].Text = ""
Else
lngProductID = Me![Conta]
Me![Conta] = Null
End If
' Conta = Nome do Formulário a abrir
DoCmd.OpenForm "Conta", , , , , acDialog, "GotoNew"
Me!Conta.Requery
If lngProductID <> 0 Then Me![Conta] = lngProductID

Exit_Conta_DblClick:
Exit Sub

Err_Conta_DblClick:
MsgBox Err.Description
Resume Exit_Conta_DblClick
End Sub

Colega Juliano, tudo tranquilo....
Viu como este forum é uma maravilha. Percebe que mais e mais colegas estão se cadastrando. E também um ajudando o outro, hoje com dúvida e logo após ajudando a encontrar a solução, uma familia....isso aqui é um aurelio access.
Bem vamos lá.... quer adicionar algum registro que não há na combo que vem de uma

Primeiro crie um novo modulo (codigo abaixo) e salve com o nome modConfirmar
Public Function Confirmar(sMensagem As String) As Boolean
'Faz uma pergunta ao usuário e retorma True se a resposta for SIM,
'e False se a resposta for NÃO
Dim intResp As Integer
intResp = MsgBox(sMensagem, vbYesNo + vbQuestion, "Confirmação")
If intResp = vbYes Then
Confirmar = True
Else
Confirmar = False
End If
End Function

Depois na tabela
tbl. tente no evento "se não estiver na lista" da combo o seguinte código.

Private Sub cli_EstadoCivil_NotInList(NewData As String, Response As Integer)
Dim strMessage As String
Dim dbs As Database
Dim rst As DAO.Recordset
strMessage = "Deseja adicionar '" & NewData & "' ao cadastro de Estado Civil?"

If Confirmar(strMessage) Then
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from tblEstadoCivil")
rst.AddNew
rst!EstadoCivil = NewData
rst.Update
Response = acDataErrAdded
Else
cli_EstadoCivil.Undo
Response = acDataErrContinue
Exit Sub
End If
Me.cli_EstadoCivil.Value = NewData
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Sub

retorne para sabermos.....

Bom dia Norberto.....esqueci de mencionar o modulo e depois sim o evento se não estiver na lista, assim ele chama "confirmar" Já corrigi acima, obrigado.....

Bom dia! Há tempos estou atrás de uma solução para essa encrenca pois sempre tenho que explicar que quando o item não entra na lista da caixa de combinação, o cadastro deve ser fechado e reaberto. Isso nem sempre acontece porque o usuário esquece e tem que ficar me procurando para solucionar. Ficar o tempo todo apertando botão de atualizar não dá pé.
Obrigado ao Ale, Rschz, Caf e Norbs pela força. Vou tentar cada sugestão e dou um retorno!
Abraços

Bom dia colega Juliano....em meus bds uso e funciona perfeitamente. Caso tenha dificuldade posso lhe passar um modelo, mas primeiro tene você ai....

Oi Caf, as últimas linhas do seu código deu um erro (Método ou membro de dados não encontrado).

Me.descricao.Value = NewData
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Sub

O campo o qual quero inserir o novo item é "descricao" como indicado. Nesse caso é o código do item que deve estar aqui ou o campo de texto?

Obrigado!

Olá Renato, tentei fazer a adaptação em seu código mas não funcionou nem com reza brava.

Seguem os dados da tabela, caixa de combinação e o formulário pop que deverá ser aberto ao clicar duas vezes.

Tbl_Entre_Eixos (tabela secundária - relacionada cod_entreeixos com cod_entre_eixos)

Cod_entreeixos (numeração automática)
entre_eixo (campo de texto)

Caixa de combinação:

cbEntreEixos (nome da caixa de combinação)
Cod_entre_eixos (campo formato número da tabela principal para onde vai o código da tb_Entre_Eixos)

FrmPopEntre_eixos (Nome do formulário pop-up com a tbl_Entre_Eixos em um subsformulário).

Não sei onde errei.
Obrigado!

Juliano estou no trabalho.... veja a escrita em azul e confira....

If Confirmar(strMessage) Then
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from tblEstadoCivil")
rst.AddNew
rst!nome controle da combo = NewData
rst.Update
Response = acDataErrAdded
Else
nome campo na tabela.Undo
Response = acDataErrContinue
Exit Sub
End If
Me.nome campo na tabela.Value = NewData
rst.Close
Set rst = Nothing
Set dbs = Nothing

Boa tarde. Tenho um formulário de cadastro com um subformulário.
Esse subformulário possui outro subformulário com uma caixa de combinação.
O relacionamento entre as tabelas está correto (ou pelo menos acho que está).

Quando lanço um novo item na caixa de combinação que está no último subformulário,
o item não entra na lista enquanto o cadastro está aberto.

No formulário onde a combo está:


Me.Repaint
Me.SuaCombo.Requery



Essa caixa de combinação, o usuário clica duas vezes para abrir um pop com a tabela referente para adicionar o novo item.
Ao fecha-lo o item insiste em não aparecer na lista.


No formulário que cadastra os itens da combo.


>> No evento ao fechar do form:
Forms!SeuFormulário Onde a combo está.Repaint
Forms!SeuFormulário Onde a combo está!SuaCombo.Requery



Acho que isso resolve o seu problema das atualizações da combo...

Obrigado mas continua dando o erro de Método ou membro de dados não encontrado.

Me.nome campo na tabela.Value = NewData
rst.Close
Set rst = Nothing
Set dbs = Nothing[i]

O campo é da tabela de Descrição. Essa tabela só tem o código (cod_desc) automático e o campo "descricao" que é texto.

Quando você diz: "No formulário onde a combo está:" se refere a propriedade geral do subformulário? É que nesse subformulário existem mais de uma caixa de combinação e no código só existe uma.
Mesmo assim obrigado Jungli, vou testar e mando um retorno.

sim mestre norbs, o acDataErrAdded atualiza a lista da combo.

o procedimento que passei não requer adição direta via VBA já que ele tem um form popup para cadastro dos itens da combo,

O form cadastra o item e ao fechar ele atualiza a acombo em questão,

exemplo...
Forms!SeuFormPrincipal!SeuSubForm!ComboEmQuestão.Requery

exemplo 2...
Dá-se dois cliques na combo abre o form de cadastro...
faz-se o cadastro do item fecha o form de cadastro...

No evento ao receber o foco da combo em questão coloca-se:

me.NomeDaComboEmQuestão.Requery

Só não funciona se estiver tabalhando com recordsets desconectado,
como estamos usando subformulários diretos acho que não é o caso.

Meu amigo Juliano, deixa eu ver se consigo ajudar denovo,pq eu tinha esse probelma, criei um formulario de cadastro e abaixo um sub-formulário com a lista dos clientes, mas quando eu salvava o ultimo cliente não aparecia na lista, não sei se é isso que quer, resolvi o problema assim:
1 - Crie o botão salvar ou use o que vc já tem
2 - Clica em prodades depois em evento e escolha "Ao Liberar o mouse" a opção construtor de marcos.
3 - escolha a opção "Atualiza registro"
4 - Salve, feche, salve o formulário e teste


Comigo funcionou bem, espero que dê certo pra vc.

Obrigado Ale, eu fico agradecido pela sua ajuda e do pessoal mas ainda não resolvi esse abacaxi.
As vezes penso na possibilidade de ter muitas "pedras" no longo caminho entre a tabela e a caixa de combinação. Por isso a atualização demora um século.
O fato de "clicar duas vezes" no campo para abrir um form pop-up que na verdade já possui um subformulário com a tabela (a mesma usada na caixa de combinação), já mostra que o caminho para atualizar é longo. Ajunta isso com a rede que tem aqui na empresa, pronto, o sistema vira uma lesma.
Sua sugestão é interessante. Tenho mais experiência com macros.

Fiz o seu exemplo. Realmente salvou o registro mas apenas no formulário pop-up. A caixa de combinação no sub-subformulário não atualizou. Quando insere um botão Atualizar no próprio subformulário onde está a caixa, ele atualiza na hora. O que eu gostaria era de poupar o usuário de ficar atualizando a tela. O caminho é longo...rsrsr
Obrigadão

Juliano boa tarde.....
Sobre do que estamos tratando estou disponibilizando em exemplo.
Entro ca combo estado civil e digite algo que não há na lista e veja o resultado.
Estou online....

http://speedy.sh/SKwrb/Juliano.rar

Oi Caf, eu abri o seu cadastro de clientes. Muito legal. Parabéns. Fiz o teste que você disse e é isso mesmo que procuro. Vou enviar mais a noite uma apresentação do powerpoint via 4shared para analisar meu cadastro mostrando o enorme caminho da tabela principal até a caixa de combinação...rsrsr
Obrigado!

Juliano o forum fica contente que sua duvida foi esclarecida. Então feche o tópico antes de enviar a apresentação....aliás esta apresentação mostra alguma dificuldade ou dúvida que não conseguiu resolver???? se for abra outro tópico que iremos imediatamente lhe ajudar....abração amigo, ate ++++

Colegas, neste código que passei ao colega Juliano teve o dedo do mestre JPaulo, então créditos para ele também

Ok, Caf. Obrigado.
To fechando o topico.
Abrs

Caro Juliano! pelo que vi já resolveu o problema

mas a respeito do código que enviei a meu ver deveria ser assim


Private Sub cbEntreEixos_DblClick(Cancel As Integer)
On Error GoTo Err_cbEntreEixos_DblClick
Dim lngProductID As Long

If IsNull(Me![cbEntreEixos]) Then
Me![cbEntreEixos].Text = ""
Else
lngProductID = Me![cbEntreEixos]
Me![cbEntreEixos] = Null
End If

DoCmd.OpenForm "FrmPopEntre_eixos", , , , , acDialog, "GotoNew"
Me!Conta.Requery
If lngProductID <> 0 Then Me![cbEntreEixos] = lngProductID

Exit_cbEntreEixos_DblClick:
Exit Sub

Err_cbEntreEixos_DblClick:
MsgBox Err.Description
Resume Exit_cbEntreEixos_DblClick

End Sub

mas gostei do modelo de cafpr
é bem + rápido

Abraço a todos

Obrigado! Vou anotar a dica.

Olá, Caf, testei seu código e deu certo. Muito prático e rápido mas deparei com um problemão pois todas as consultas que são bases de formulários e relatórios deram erro porque mudei o formato para texto (era número), o que ocasionou os erros e perdeu-se o relacionamento correto. Lembrei que não se relaciona campo auto-numeração com texto.
Em outra caixa de combinação, a de clientes, que não é nada diferente das outras, deu o seguinte erro: "método ou membro de dados não encontrado". Não entendi, pois é identica as outras que deram certo.

If Confirmar(strMessage) Then
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from Tbl_Clientes")
rst.AddNew
rst!cliente = NewData
rst.Update
Response = acDataErrAdded
Else
cod_cliente.Undo
Response = acDataErrContinue
Exit Sub
End If
Me.Cod_Cliente.Value = NewData
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Sub

Como posso relacionar um campo auto-numeração com campo texto sem perder o relacionamento anterior e sem ter que alterar cada uma das consultas que são centenas?

Poste só uma consulta que esta dando erro que gera relatorio (com a tabela junto) farei o relacionamento e assim fica mais fácil de você entender....

Obrigado Caf. Não dá pra enviar agora porque aqui é tudo travado mas vou preparar e mando a noite pelo 4shared, ok?
Abrs!

Estou passando o tópico a Resolvido. Se necessário, reabra por gentileza.
Caso já tenha resolvido, favor dar um retorno.
Grato:

A moderação.

Olá Caf, agarrei um pouco para enviar o arquivo. Segue uma versão compacta do sistema para vc analisar.


http://www.4shared.com/zip/9QurFEfw/Sistema_MIK_forum.html?

Obrigado!

Boa noite Juliano, tudo tranquilo....Então, estive ausente (viagem ao p) mais retornei......
No formulario Cadastro o codigo esta dando erro porque o nome da combo esta diferente no codigo, corrigi e esta funcionando. As outras combobox farei vereficação nos codigos e hoje mesmo posto sua cópia com as alterações....
Teste somente a combo para cliente e retorne....
http://speedy.sh/3Q8TQ/Sistema-MIK-005-forum.rar

Boa noite Juliano...
Fiz as alterações nos nomes e códigos das combobox. Teste e retorne. Sobre as consultas dê mais detalhes...

http://speedy.sh/9hNNh/Sistema-MIK-005-forum.rar

Olá, obrigado pelo retorno. Fiz os testes aqui e é isso mesmo que procuro. Só uma pergunta:
Esse código vai funcionar mesmo a combo sendo do penúltimo subformulário? A lista "Descrição da Solicitação" é complexa e com risco de redundância pois o usuário digita quase um texto.
Esse código que me enviou pode inserir um texto de até 255 caracteres?
Obrigado!

Bom dia Juliano.....Fiz o teste na combo cabines e funcionou....Mas não esqueça de aumentar o numero no "tamanho do campo" na respectiva tabela....

Ok, vou aumentar o tamanho do campo.
Outra pergunta:
Quando o usuário digitar um nome ou texto que já existe na tabela ele receberá a mensagem que já consta na lista? Não pode ter duplicação.

Não. auto completa ao digitar.....

Ok. Vou tentar por aqui e mando um retorno.
Obrigado!

Bom dia! Fiz um teste aqui e tive um problema. O campo é preenchido sem problema mas a atualização da tabela principal dá erro. O código tenta enviar para ela o texto e não o ID do registro. Os campos de caixa de combinação na tabela são formatados como número. Isso causou falha nas consultas porque o relacionamento "um-pra-muitos" não funcionou com o formato texto.
Segue o código que utilizei:

Private Sub cbClientes_NotInList(NewData As String, Response As Integer)
On Error GoTo TrataErro
Dim strMessage As String
Dim dbs As Database
Dim rst As DAO.Recordset
strMessage = "Deseja adicionar '" & NewData & "' a lista de clientes? Confira se não existe semelhante na lista. Para editar ou ver a lista clique duas vezes no campo."

If Confirmar(strMessage) Then
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from Tbl_Clientes")
rst.AddNew
rst!cliente = NewData
rst.Update
Response = acDataErrAdded
Else
cod_Clientes.Undo
Response = acDataErrContinue
Exit Sub
End If
Me.Cod_Cliente.Value = NewData
rst.Close
TrataErro:
If Err.Number = 2113 Then
Set rst = Nothing
Set dbs = Nothing
End If
End Sub

Colega a origem do frmCadastro é da tabela Tbl_PVECVE-MIK. O que pretende deve rever os campos e relacionamentos e ligar o form de uma consulta para futuras pesquisas e relatorios. Se vereficar nas tbls lá estão os "acréscimos", agora da forma como fez na Tbl_PVECVE-MIK não aparece mesmo.

Ok, vou fazer uma revisão.
Obrigado!

Teve êxito aqui Julianovv?

Oi Leandro, como disse na postagem anterior esse projeto foi adiado mas espero que a empresa retorne em breve com ele.
Reabrirei o tópico assim que puder.
Obrigado por tudo.

Então fica como Resolvido.