[Resolvido]INSERT INTO e LISTBOX

Boa Tarde Pessoal.

Quero levar os dados de uma LISTBOX ("Lista18") para uma tabela ("Carteira De Preventiva")

Alguem ajuda a ver onde o código não está funcionando?



CurrentDb.Execute "INSERT INTO Carteira_De_Preventiva(Código Atividade, Parte a Verificar, Descrição Do Serviço, Periodicidade, Tempo Necessário)" _
& "Values(""" & Me.Lista18.Column(0) & """,""" & Me.Lista18.Column(1) & """,""" & Me.Lista18.Column(2) & """,""" & Me.Lista18.Column(3) & """,""" & Me.Lista18.Column(4) & """);"

CurrentDb.Close


Aguardo o retorno de Alguem.

Att;

Olá João,

Fiz esta rotina no "escuro"...não consegui testar pq peguei pela mensagem que vc mandou.

Copie e cole o código abaixo e chame esse procedimento através do botão Gravar do seu form.

Código:



Public Sub GravaDados()
On Error GoTo trata_erro
Dim DB              As DAO.Database
Dim x               As Integer
Dim sSQL            As String

    Set DB = CurrentDb

    If Me.Lista18.ListCount > 0 Then
        For x = 0 To Me.Lista18.ListCount - 1
            With Me.Lista18
                sSQL = "INSERT INTO Carteira_De_Preventiva"
                sSQL = sSQL & " ("
                sSQL = sSQL & "  [Código Atividade]"
                sSQL = sSQL & " ,[Parte a Verificar]"
                sSQL = sSQL & " ,[Descrição Do Serviço]"
                sSQL = sSQL & " ,[Periodicidade]"
                sSQL = sSQL & " ,[Tempo Necessário]"
                sSQL = sSQL & " )"
                sSQL = sSQL & " VALUES"
                sSQL = sSQL & " ("
                sSQL = sSQL & "  '" & .Column(0, x) & "'"
                sSQL = sSQL & " ,'" & .Column(1, x) & "'"
                sSQL = sSQL & " ,'" & .Column(2, x) & "'"
                sSQL = sSQL & " ,'" & .Column(3, x) & "'"
                sSQL = sSQL & " ,'" & .Column(4, x) & "'"
                sSQL = sSQL & " )"
                DB.Execute sSQL
        Next x
    End If
    
    Exit Sub

trata_erro:

    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub






Acredito que irá funcionar.

Qualquer problema poste aqui.

Boa sorte

Alexandre

Boa tarde Alexandre, obrigado por responder.

Deu o erro "Next sem For"

Ops...foi mal

Depois do "DB.Execute SsqL" coloque a seguinte instrução: End With

Boa sorte

João,

Quando for pegar valores de uma ListBox para gravar no banco de dados, vc precisa referenciar a Coluna e a Linha que vc quer buscar os dados.

Ex.:

  Me.SuaListBox.Column(Nro_Coluna,Nro_Linha)


Boa sorte

Alexandre, funcionou certinho.

Onde você aprendeu esse conhecimento no VBA?

Se Puder tenho mais uma duvida pra ser esclarecida.

Olá João,

Eu atuo no mercado de desenvolvimento de T.I a mais de 10 anos, e minha primeira ferramenta de programação foi o Access e, consequentemente, o VBA (Visual Basic For Application).

Exponha sua dúvida para que possamos ajudá-lo.


[]'s

Então, notou ali que uma das informações da lista é "Periodicidade".

Então por exemplo, um dos registro da lista tem periodicidade de 3 (ou seja 3 dias, nesse caso).
então eu quero que aquele registro se repita a cada 3 dias. Como eu pretendia fazer isso...

Dentro do formulario onde está a Lista18, tem várias caixas para o solicitante preencher e uma delas é txt_datainicio e txt_datafim.

Então o funcionario entra no access e define, Dia Inicio: 19/02/2019 e Data Fim 28/02/2019.

Nesse momento o registro que tem periodicidade de 3 em dias seria lançado na tabela Carteira De Preventiva 4 vezes.

Conseguiu entender?

João,

Este tópico já foi resolvido.

Por gentileza, me mande sua dúvida na mensagem privada.

Envie também uma cópia do seu banco de dados (somente partes envolvidas) para que eu possa analisá-lo.

Obrigado.