colocar ultimo valor combobox(subformulario) em lista(formulario)

quem puder me dar uma ajudinha na resolução deste tópico

vou colocar meu projeto gostaria saber colocar na lista55, último valor da combobox do meu sub-formulario se é que é possivel

Obrigado desde já

Eu não entendi. Poderia explicar novamente? Você quer pegar a última linha de uma combo e adicionar em uma listbox?

Boas criquio

Sim é isso mesmo.
tenho um sub-form multiplos itens (estado operacional)
e conforme ia mudando o estado por ex. de operacional para inoperacional ( tipo histórico de operacionalidade )

esse mesmo estado me aparecesse em uma listbox no form

espero ter-me explicado bem

obrigado

Para isso a listbox precisa estar com o RowSource definido como lista de valores. Isso pode ser feito no evento "Ao carregar" do formulário aonde ela está:

Me.NomeDaListbox.RowSourceType = "Value List"

E no evento que melhor atender da combo:

Forms!NomeDoFormulário!NomeDaListbox.AddItem Me.NomeDaCombo.Column(0)

Mude o (0) para o número correto da coluna, caso seja outro.

Obrigado criquio

já está funcionando, mas acumula na listbox pretendia que fosse atualizando e não acumulando

Me.NomeDaListbox.RowSourceType = "Value List", este value list onde devo ir buscar os valores.

desculpem estas perguntas básicas mas estou iniciando, mesmo pesquisando alguns exemplos não consigo enquadrar

Obrigado pela paciencia

A função da listbox é exibir uma lista de valores. Se a intensão é exibir apenas uma linha, seria mais prático utilizar um rótulo e no lugar do NomeDaListbox.AddItem colocar NomeDoRótulo.Caption. Mas se quiser ficar mesmo com a listbox pode limpar ela antes de inserir o novo dado com um NomeDaListbox.RowSource = ""

criquio

sim com rotulo é melhor, mas alterei o codigo
e dá....

run time error'438'
object doesn´t support this property or method

tenho de alterar aguma propriedade do rotulo?

mais uma vez obrigado

Veja se você colocou um rótulo mesmo ou se foi uma caixa de texto. O Caption é só para rótulos. Caixas de texto é sem o .Caption.

coloquei Rótulo61 no form principal


Private Sub IdEstadoOp_AfterUpdate()
Forms!camaraConsulta!Rótulo61.Caption Me.IdEstadoOp.Column(1)
Me.hora.SetFocus
End Sub

esta cbo está inserida dentro de um sub-form, não sei se por isso tem problema

já começo a ser melga

Tente assim:

Forms!camaraConsulta!Rótulo61.Caption = Me.IdEstadoOp.Column(1)

criquio bom, já está funcionando bem

mas quando mudo de registo do form principal que é nºcamara não atualiza o dado que está na cbo do sub-form respeitante a esse registo
espero me ter feito perceber...

fecho este tópico e abro outro com esta questão?

obrigado pelo seu tempo

boa noite

Criquio caso você veja este tópico e me ajudou muito ontem, pode me dar uma solução para o meu tópico de ontem.....

caso exista solução

obrigado desde já pelo seu tempo.

obrigado

Você vinculou o campo ao respectivo campo da tabela?

desculpe criquio

não percebi sua questão?

o meu rótulo onde quero que apareça o dado da combo do sub-form não está vinculado a nada apenas tem aquele código que me ajudou a construir

mas o rotulo nao atualiza cada vez que mudo o registo no form principal
o registo no form principal - nºcamara
o cbo no sub-form - estado operacional

pretendia k ao mudar a cbo no sub-form me atualizasse o rotulo e isso já funciona
mas depois quando mudo registo nº camara no form principal não muda

Tente utilizar o evento "No atual" do subformulário.

Bom dia criquio

já atualiza mas vai-me buscar o primeiro campo registo do sub-form (que é um form multiplos items)

Tem forma de colocar no codigo a função ultimo?

já agora existe aqui no forum alguma coisa postada que explique de forma simples todas as funcões vba como por exemplo dlast, dlockup, etc?

Obrigado

desculpem ser chato

mas existe forma de em um formulario multi-itens aparecer apenas o ultimo valor digitado?

já pesquisei mas não encontro nada semelhante

Obrigado desde ja

Tente colocando no evento "No atual", antes do evento que já tem lá:

DoCmd.GoToRecord, , acLast

boa noite

criquio, não funciona

está assim

Private Sub Form_Current()
DoCmd.GoToRecord , , acLast
Forms!camaraConsulta!Rótulo57.Caption = Me.IdEstadoOp.Column(1)
End Sub

de facto no sub-form o selecionador de registo coloca-se no ultimo registo, mas o valor captado pelo rotulo continua a ser o valor do primeiro registo

Obrigado

boa noite

criquio, não funciona

está assim

Private Sub Form_Current()
DoCmd.GoToRecord , , acLast
Forms!camaraConsulta!Rótulo57.Caption = Me.IdEstadoOp.Column(1)
End Sub

de facto no sub-form o selecionador de registo coloca-se no ultimo registo, mas o valor captado pelo rotulo continua a ser o valor do primeiro registo

a minha intenção com isto é fazer tipo um historico de operaconalidade da camara, quando passasse de operacional para inoperacional, fazê-lo no sub-form

existe forma de conseguir fazer isto?
Obrigado