MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]INSERT INTO e LISTBOX

    avatar
    _Line33_
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/09/2018

    [Resolvido]INSERT INTO e LISTBOX Empty [Resolvido]INSERT INTO e LISTBOX

    Mensagem  _Line33_ em 19/2/2019, 17:13

    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;
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 855
    Registrado : 13/12/2016

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Alexandre Fim em 19/2/2019, 18:27

    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
    avatar
    _Line33_
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/09/2018

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  _Line33_ em 19/2/2019, 18:31

    Boa tarde Alexandre, obrigado por responder.

    Deu o erro "Next sem For"



    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 855
    Registrado : 13/12/2016

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Alexandre Fim em 19/2/2019, 18:35

    Ops...foi mal

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

    Boa sorte
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 855
    Registrado : 13/12/2016

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Alexandre Fim em 19/2/2019, 18:38

    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
    avatar
    _Line33_
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/09/2018

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  _Line33_ em 19/2/2019, 18:41

    Alexandre, funcionou certinho.

    Onde você aprendeu esse conhecimento no VBA?

    Se Puder tenho mais uma duvida pra ser esclarecida.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 855
    Registrado : 13/12/2016

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Alexandre Fim em 19/2/2019, 18:45

    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
    avatar
    _Line33_
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/09/2018

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  _Line33_ em 19/2/2019, 18:54

    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?


    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 855
    Registrado : 13/12/2016

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Alexandre Fim em 19/2/2019, 19:06

    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.


    Conteúdo patrocinado

    [Resolvido]INSERT INTO e LISTBOX Empty Re: [Resolvido]INSERT INTO e LISTBOX

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 01:06