[Resolvido]Erro ao salvar dados de combobox em outra tabela

Amigos estou usando o código abaixo para salvar as informações de um form em outra tabela, todos os dados estão salvando, mas fica aparecendo uma mensagem "O comando ou a ação 'Salvar registro' não está disponível agora"

Alguém pode me ajudar a descobrir o erro.

Private Sub Salvar_Click()
On Error GoTo Err_Salvar_Click
   

  Dim consulta As Recordset
  Set BancoDeDados = CurrentDb
  Set formconsulta = BancoDeDados.OpenRecordset("TAB_REALInspCompEletronicos")
  With formconsulta
  .AddNew
  !ID_InspFuncional = Me.ID_InspFuncional
  !Item_Avaliado = Me.T_1
  !Não_Conforme = Me.S1
  .Update
  .AddNew
  !ID_InspFuncional = Me.ID_InspFuncional
   !Item_Avaliado = Me.T_2
  !Não_Conforme = Me.S2
  .Update
  End With
           
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   
   MsgBox "Dados gravados com sucesso!!!", vbInformation, ""
   
   DoCmd.Close

Exit_Salvar_Click:
   Exit Sub

Err_Salvar_Click:
   MsgBox Err.Description
   Resume Exit_Salvar_Click
   
End Sub

Se está salvando o comando abaixo não está sendo necessário, desabilite-o

   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Oi Mestre Piloto,
Parou de dar a mensagem, mas o problema é que o Item_Avaliado não está salvando, os outros dois estão gravando.
Será que tem haver com a combo box? O Item_Avaliado é uma informação de uma combobox...

Abç

Qual o  nome da caixa de combinação?
é esta: Me.T_1?


Cumprimentos.

Sim, exatamente.
O texto aparece na combo, mas ele não salva na outra tabela. As outras duas informações salvam sem problemas, este é o único que não está salvando.

Uma caixa de combinação guarda os valores em colunas...Deves especificar em qual coluna está a informação que deseja.

!Item_Avaliado = Me.T_1.Column(x)

onde x é o número da coluna da combo, lembrando que a primeira coluna é a de número 0


Cumprimentos.

Oi piloto, fui testar sua dica, na realidade a minha caixa é uma caixa listagem. Apliquei a sua solução coluna(0), pois só tenho 1 coluna e não funcionou.
A cx listagem só tem 1 registro, pois criei 1 caixa para cada item q preciso checar, uma vez q, para cada equipamento eu checo itens diferentes.

Tente no lugar do .Column.... Colocar
.Value


Cumprimentos.

mestre Piloto,
Não funcionou com o Value...
Estou postando o banco... coloquei para abrir direto um formulário e nele tem uma cx de texto em vermelho... é só seguir.
Um deles está na versão 2007, que é a que utilizo e o outro na versão 2003, mas ele tirou algumas funcionalidades, uma delas foram justamente as minhas cxs de seleção dos formulários de inspeção. Que é justamente onde estou tendo problema....rs

a versão 2003

Porque não faz assim:

Crie uma caixa texto e deixe em oculto
No evento após atualizar da caixa de listagem ou ao clicar...
Me.SuaCaixaTexto = Me.SuaListBox.Value

E na istrução aplica a caixa texto.


Cumprimentos.

Poste um print do seu formulário e mostre qual caixa de listagem é esta.

Cumprimentos.

Mas se eu colocar uma caixa de texto estática posso ter problema, uma vez que ddependendo do equipamento o item que deve ser verificado muda. Vc chegou a fazer o teste no banco q postei ? Viu q ele não carrega?

Não carrega o que?

De detalhes.. nome do formulário.. nome dessa caixa de listagem para que eu possa ver isso..

Cumprimentos.

Olha só... o bd em formato 2007 que me enviou não abre... Dá formato não reconhecido.
O em formato 2003... Está com erro.. e não veio com nenhum procedimento nos eventos..

Voce falou primeiramente que era uma combo... depois falou que era uma caixa de listagem (ListBox)


Sendo uma ou outra.. voce deve selecionar um item para depois executar o procedimento correto?  Se for assim a solução com a caixa texto serve..
A não ser que não seja uma caixa de listagem... Creio que você está confundindo algo ai... pois as soluções que postei servem para caixa de listagem e caixa de combinação...Eu acho que não está especificando corretamente este objeto... Creio que não é uma caixa de listagem ou combo...

Não seria um campo de seleção múltipla?



Cumprimentos.

Oi Piloto, tenho no formulário caixa de seleção, que é onde marco se o item está conforme ou não. Este exporta numa boa. Tenho ao lado dele uma caixa de listagem, que tem como origem uma consulta que faz aparecer o item especifico a ser inspecionado. Não preciso selecionar nada o texto ja aparece ao carregar.
Vc pode me passar o seu email pvt, aqui no trabalho o fórum é bloqueado e estou digitando no cel. A noite posto no fórum para deixar o problema disponível para outros

Este é o problema então .. porque não está clicando na lista.

Fale o nome do formulário.. o nome da lista
Me envie o BD sem erro.

Harysohn@hotmail.com


Cumprimentos.

Está em formato 2010... Tem que converte-lo em 2007.


Cumprimentos.

Oi, enviei no seu email pvt uma versão com o 2003

Este arquivo... há algo errado com ele... Ao abrir... em apenas poucos segundos dá erro no access...
Verifique seu projeto original... Há algo errado nele... Se possível crie um banco novo e importe os objetos do bd antigo.

Infelizmente neste não dá pra que eu veja nada.


Cumprimentos.

Criei um botão salvar, e coloquei para selecionar (item.data) antes de salvar...

Resolveu então?


Cumprimentos.

Sim

O Fórum agradece o Retorno.