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]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 : 28
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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 : 28
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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 16 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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
    avatar
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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 : 28
    Registrado : 29/03/2011

    Ficou muito bom

    Mensagem  athenas1200 em Qui 21 Jan 2016, 11:23

    Parabéns.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4283
    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: Sex 18 Ago 2017, 17:17