[Resolvido] Conversão de data em lixtbox

Pessoal tenho uma listbox com campo data e quero inserir os valores dele em uma tabela porem esta dando erro de conversão, mais as duas tabelas são idênticas mesmo assim da erro. como faço para converter antes da inserção.

função onde está dando erro.

tb("Datanecessidade").Value = Me!Lista.Column(13, Obj)

no aguardo pessoal.

Olá;

Não se esqueça que as colunas começam pela zero (0).
Se a data estiver mesmo na coluna 13 da lista, será;

Código:

tb("Datanecessidade").Value = Format(Me!Lista.Column(13), "mm-dd-yyyy")

Com a licença do Jpaulo ai vai uma sugestão:

@Jpaulo, creio que o "obj" em que ele se refere deve ser a linha da coluna, portanto deve estar no código, talvez essa instrução deve ser executada a partir de um Loop.

@Carvalho, como está referenciando a tabela?
Tente assim também:

Código:


CurrentDb.Execute "INSERT INTO SuaTabela (Datanecessidade) VALUES ('" & Format(Me.Lista.Column(13, obj),"dd/mm/yyyy") & "')"

Bom dia Jpaulo / caiosouza

obrigado pelas dicas, mais ainda não funcionou, segue o código que estou usando para melhor entendimento.


as duas linhas que estão me dando esse erro.

Tipo de dados = Data/Hora
Formato = dd/mm/yyyy
Mascara de Entrada = 00/00/0000


tb("Datanecessidade").Value = Me!Lista.Column(13, Obj)
tb("DataPag").Value = Me!Lista.Column(14, Obj)

Código:

Private Function FncInserirItens()
Dim db As Database
Dim Obj As Variant
Set db = CurrentDb()
Dim tb As Recordset
'Dim tb2 As Recordset

'abri o bd para inserir que vaiinserir as informações
Set tb = CurrentDb.OpenRecordset("TbCorrigirEntradaPinturaC014")

For Each Obj In Me!Lista.ItemsSelected
With tb
.AddNew


On Error Resume Next
'tb("id").Value = Forms!frmCorrigirEntradaPinturaC014!Id
tb("Idsistema").Value = Me!Lista.Column(0, Obj)
tb("BD").Value = Me!Lista.Column(1, Obj)
tb("Casco").Value = Me!Lista.Column(2, Obj)
tb("GigaBloco").Value = Me!Lista.Column(3, Obj)
tb("Taag").Value = Me!Lista.Column(4, Obj)
tb("Fase").Value = Me!Lista.Column(5, Obj)
tb("Bloco").Value = Me!Lista.Column(6, Obj)
tb("PalletMontagem").Value = Me!Lista.Column(7, Obj)
tb("Qtd").Value = Me!Lista.Column(8, Obj)
tb("PesoLíquido").Value = Val(Me!Lista.Column(9, Obj))
tb("Escopo").Value = Me!Lista.Column(10, Obj)
tb("DescPeça").Value = Me!Lista.Column(11, Obj)
tb("PCP").Value = Me!Lista.Column(12, Obj)
tb("Datanecessidade").Value = Me!Lista.Column(13, Obj)
tb("DataPag").Value = Me!Lista.Column(14, Obj)
tb("ResponsavelRecebimento").Value = Me!Lista.Column(15, Obj)
tb("ResponsavelPag").Value = Me!Lista.Column(16, Obj)
tb("QtdPaga").Value = Val(Me!Lista.Column(17, Obj))
tb("Obs").Value = Me!Lista.Column(18, Obj)
tb("Pasta").Value = Me!Lista.Column(19, Obj)
.Update
End With
Next Obj

tb.Close
Set tb = Nothing
db.Close
Set db = Nothing

End Function

Bom dia!

Mude de Data/hora para Data Abreviada!


Teste assim:

Código:


Private Function FncInserirItens()
Dim db As Database
Dim Obj As Long
Set db = CurrentDb()
Dim tb As Recordset
'Dim tb2 As Recordset

'abri o bd para inserir que vaiinserir as informações
Set tb = CurrentDb.OpenRecordset("TbCorrigirEntradaPinturaC014")

    For Obj = 0 To Me.Lista.ListCount - 1
        MsgBox "Data necessidade: " & Me.Lista.Column(13, Obj)
        MsgBox "Data pag: " & Me.Lista.Column(13, Obj)
            tb.AddNew
            'On Error Resume Next
            'tb("id").Value = Forms!frmCorrigirEntradaPinturaC014!Id
            tb("Idsistema").Value = Me!Lista.Column(0, Obj)
            tb("BD").Value = Me!Lista.Column(1, Obj)
            tb("Casco").Value = Me!Lista.Column(2, Obj)
            tb("GigaBloco").Value = Me!Lista.Column(3, Obj)
            tb("Taag").Value = Me!Lista.Column(4, Obj)
            tb("Fase").Value = Me!Lista.Column(5, Obj)
            tb("Bloco").Value = Me!Lista.Column(6, Obj)
            tb("PalletMontagem").Value = Me!Lista.Column(7, Obj)
            tb("Qtd").Value = Me!Lista.Column(8, Obj)
            tb("PesoLíquido").Value = Val(Me!Lista.Column(9, Obj))
            tb("Escopo").Value = Me!Lista.Column(10, Obj)
            tb("DescPeça").Value = Me!Lista.Column(11, Obj)
            tb("PCP").Value = Me!Lista.Column(12, Obj)
            tb("Datanecessidade").Value = Format(Me.Lista.Column(13, Obj), "dd/mm/yyyy")
            tb("DataPag").Value = Format(Me!Lista.Column(14, Obj), "dd/mm/yyyy")
            tb("ResponsavelRecebimento").Value = Me!Lista.Column(15, Obj)
            tb("ResponsavelPag").Value = Me!Lista.Column(16, Obj)
            tb("QtdPaga").Value = Val(Me!Lista.Column(17, Obj))
            tb("Obs").Value = Me!Lista.Column(18, Obj)
            tb("Pasta").Value = Me!Lista.Column(19, Obj)
            tb.MoveNext
            tb.Update
    Next
tb.Close
Set tb = Nothing
db.Close
Set db = Nothing
End Function


Troquei a estrutura de repetição e adicionei Msgbox'es a cada Loop para ter certeza dos valores que esta pegando.

Show, pessoal deu certinho, muito obrigado.