MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Inserir um campo novo no código e está dando erro.

    Compartilhe

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  athenas1200 em Qua 20 Jan 2016, 13:18

    Option Compare Database
    Nesta parte do código que está dando erro:
    Inserir o campo CPValor1
    Alguém saber onde está errado.



    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& "#, """ & Cpvalor1 & """);"







    Private Sub btnGerar_Click()
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim Parc As String
    StrValorParc = Me.txtValor_Total
    For I = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
    StrParc = I & "/" & Me.txtParc
    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& "#, """ & Cpvalor1 & """);"
    Next I
    Me.lstParcelas.Requery
    End Sub

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qua 20 Jan 2016, 15:54

    Olá, tente assim:

    Código:
    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& ", """ & Cpvalor1 & "");"
    Abraço

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    O erro que esta aparecento

    Mensagem  athenas1200 em Qua 20 Jan 2016, 16:20

    O erro:
    [Você precisa estar registrado e conectado para ver esta imagem.]
    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& ", """ & Cpvalor1 & "");"
    Arquivo:
    [Você precisa estar registrado e conectado para ver este link.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qua 20 Jan 2016, 16:35

    Olá, estou no telemóvel não posso ver zip, verifique as aaspas dos campos que são valor.
    Abraço


    Última edição por ahteixeira em Qua 20 Jan 2016, 17:36, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qua 20 Jan 2016, 16:59

    Olá, veja assim:
    Código:
    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, " & StrValorParc & ", " & Me.Cpvalor1 & ");"
    Abraço
    Anexos
    GeraParcelas_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 11 vez(es)


    Última edição por ahteixeira em Qui 21 Jan 2016, 09:39, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qua 20 Jan 2016, 17:35

    Olá, vejo que faltou o anexo do meu teste.
    No form no campo do valor mês coloque na origem do campo:

    =[CampoComValorTotal]/[CampoNrPrestacoes]

    E teste com a instrução sql da mensagem anterior.

    Abraço

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  Lupércio em Qui 21 Jan 2016, 06:37

    Tente assim:

    CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
    & " Values(""" & Me.txtDescricao.Value & """, """ & Format(StrDateAdd, "mm/dd/yyyy") & """, """ & StrValorParc & """, """ & Cpvalor1 & """)"


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qui 21 Jan 2016, 09:40

    Olá a todos,
    Veja meu teste no anexo da mensagem nº 5.
    Lupércio, obrigado pela ajuda, vamos aguardar retorno do colega.
    Abraço

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Ficou muito bom

    Mensagem  athenas1200 em Qui 21 Jan 2016, 11:23

    Parabéns.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Inserir um campo novo no código e está dando erro.

    Mensagem  ahteixeira em Qui 21 Jan 2016, 11:30

    Olá, o código do Lupércio também está bem.
    Estude o projecto e compare as alterações, aparentemente o problema era devido ao seu último campo no form.
    Obrigado pelo retorno e bons estudos.
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 06:06