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]Erro em código

    Compartilhe

    Papelman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 29/09/2013

    Erro em código

    Mensagem  Papelman em Qui 17 Out 2013, 21:52

    Olá a todos,

    tenho um banco em access só que na parte da vendas não estou conseguindo fazer com que o código do parcelamento faça o preenchimento dos campos da tabela parcelamento e a divisão dos mesmo, gostaria que fosse dado uma ajuda.

    Desde já agradeço pela atenção.

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por Papelman em Sex 18 Out 2013, 14:09, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9734
    Registrado : 04/11/2009

    Re: [Resolvido]Erro em código

    Mensagem  JPaulo em Qui 17 Out 2013, 21:59

    Ola,

    Entre este exemplo existem muitos outros aqui, é só adaptar,

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Papelman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 29/09/2013

    Re: [Resolvido]Erro em código

    Mensagem  Papelman em Sex 18 Out 2013, 15:41

    Bom dia,

    coloquei o arquivo para que você possa mim dar uma ajuda, já peguei o código que mim passou e estou tentando ajustar na minha tabela.
    Se possivel da uma olhada no BD e ver o que pode está errado.

    Grato.

    Papelman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 29/09/2013

    Re: [Resolvido]Erro em código

    Mensagem  Papelman em Seg 21 Out 2013, 20:02

    Consegui alterar mais quando vai executar da erro na parte em destaque o que posso fazer para corrigir isso.
    Da o seguinte erro:

    Erro de tempo de execução 3061:
    Parâmetros insuficientes. Eram esperados 1.

    Código:

    Dim rs As DAO.Recordset, I As Byte
    Dim rs1 As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where CodParc = " & Me.Código & "")
    Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where CodParc = " & Me.Código & " and quitada = -1")
    If Not rs1.EOF Then
    MsgBox "Este Serviço ja foi parcelada e contém pagamento efetuados. " & Chr(10) & "" _
    & "Não será possivel refazer parcelamento !!!", vbCritical
    Set rs1 = Nothing
    Exit Function
    End If


    If Not rs.EOF Then
    If MsgBox("Já existe um parcelamento para este Serviço !!! " & Chr(10) & "" _
    & "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tbl_parcelas where NumParc = " & Me.Código & ""
    DoCmd.SetWarnings True

    Else
    Exit Function
    End If

    End If

    If Not Resto <= 0 Then
    For I = 1 To Me.q_parc
    With rs
    .AddNew
    !NumParc = Me.Código
    !Num_parc = I & "/" & Me.q_parc
    !Data_venc = DateAdd("m", I - 1, (Me.Data))
    !Val_parc = Me.V_parc

    .Update
    End With
    Next
    Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tbl_parcelas where NumParc = " & Me.Código & ""
    DoCmd.SetWarnings True
    End If
    rs.Close
    Set rs = Nothing
    'MsgBox "Valores inseridos com sucesso!!!"
    Me.Frm_Parcela.Requery
    Me.Frm_Parcela.SetFocus

    End Function

    Desde já agradeço pela atenção.

    Papelman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 29/09/2013

    Re: [Resolvido]Erro em código

    Mensagem  Papelman em Sex 25 Out 2013, 15:43

    Bom dia,

    consegui fazer as devidas alterações no código e agora está funcionando perfeitamente, obrigado JPaulo pela ajuda.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9734
    Registrado : 04/11/2009

    Re: [Resolvido]Erro em código

    Mensagem  JPaulo em Sex 25 Out 2013, 15:53

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 16 Dez 2017, 20:48