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]Limitar lançamentos

    Compartilhe

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 10/7/2013, 14:43

    Bom dia

    Tenho um formulario Acerto com dois subformularios Serviço -Pagamento.No formulario Acerto aparece o lançamento de Serviço de tal cliente menos o pagamento por ele efetuado.O que eu preciso e que quando no formulario Acerto for igual a zero(total de serviço -total de pagamento) eu possa fazer novos lançamentos sem que esse ja pagos apareça.Sei que tem uma formula que a gente limita o lançamento acontece que esses lançamentos podem variar de 2 a 200.Entao acho que o certo seria quando todo serviço for pago e o calculo ficar igual zero eu possa fazer novos lançamentos sem que esses ja pago apareça.

    Alguem pode me ajudar
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 10/7/2013, 19:13

    Olá Dani,

    Posta, por favor, aí o seu código ou se preferir o bd para análise.

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 10/7/2013, 19:30

    Boa tarde

    Vou postar
    Anexos
    kzk9999.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (157 Kb) Baixado 13 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 10/7/2013, 21:53

    Olá Dani,

    Tente assim. Altere o botão Inserir de Macro Inserida para Procedimento

    Private Sub addcliente_Click()
    On Error Resume Next

    Dim strSQL As String
    Dim strSQL2 As String
    Dim strSQL3 As String

    strSQL = "SELECT * FROM tblServiço"
    strSQL2 = "SELECT * FROM tblDesconto"
    strSQL3 = "SELECT * FROM tblCliente"

    If Me!Texto13 = 0 Then
    With Me
    .subServiço.Form.RecordSource = ""
    .subDesconto.Form.RecordSource = ""
    .RecordSource = strSQL3
    End With
    DoCmd.RunCommand acCmdRecordsGoToNew

    Else
    With Me
    .subServiço.Form.RecordSource = strSQL
    .subDesconto.Form.RecordSource = strSQL2
    .RecordSource = strSQL3
    End With

    End Sub

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 12:19

    Bom dia

    Esta ação fara qual alteração no meu formulario??

    Danielle

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 13:05

    Em qual botao vou colocar este codigo??
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 11/7/2013, 13:35

    Bom dia Dani,

    Baseado em sua solicitação desenvolvi o código. Procure estudá-lo porque está, ao meu ver, de acordo como você descreveu o seu problema. Este código vai no botão Incluir Cadastro de seu formulário frDescontao. Mantive o mesmo nome sem tirar e nem por.

    Ajuda: Quando a diferença entre os campos Texto37 e Texto8 for igual a 0 os subformulários ficarão em branco, aguardando em um novo registro as novas inclusões. Faça alguns testes para ver se funciona a contento. Qualquer coisa é só falar.
    Anexos
    kzk9999-1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (160 Kb) Baixado 9 vez(es)

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 13:45

    Good Guy

    Assim que der um tempo vou fazer a alteração .Ate la obrigada pela paciencia rsr.

    Dani

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 14:58

    Good

    Este botão incluir cadastro é cadastro de cliente.O botão para adicionar outro acerto e de lapis.

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 11/7/2013, 15:07

    Olá Dani,

    Neste caso mantenha a macro inserida no botão Incluir Cadastro e substitua a macro inserida do botão lapis pelo procedimento do botão Incluir Cadastro.
    Acredito que você já tenha feito isso. É só pra lembrar !!!

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 16:09

    Good

    O botao INCLUIR CADASTRO vai cadastrar o cliente nome endereço RG etc(nesse caso e uma vez e fica la arquivado).O Botao lapis e para cadastrar o que o cliente teve de pagamento - retirada.Quando o valor de lançamento pagamento menos retirada for zero Significa que ele nao me deve mais nada.ok?!Porem este mesmo cliente mais pra frente pode fazer novas retiradas.So que se eu lança lo novamente(Botão lapis)ele da erro pq eu tenho sub formularios com registros de tudo q ele retirou e pagou.Entende??

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 11/7/2013, 16:43

    Teste o seu programa com as novas modificações. Clique no botão Incluir Cadastro e veja o que acontece de diferente. O botão lápis precisa ser testado para quando a diferença entre as caixas Texto37-Texto8 for igual a 0 na caixa Texto13 que receberá este valor.
    Anexos
    kzk9999.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 14 vez(es)

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 17:40

    Good

    Tentei abrir o zip q voce enviou mas ele diz que o formato de banco de dados tal tal nao e reconhecido

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 11/7/2013, 18:19

    Olá Dani,

    É porque foi criado no Access 2007. Renomeie a extensão para .mdb e tente abri-lo novamente.

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 18:30

    Good

    Renomeie mas continua dando a mensagem.Não sei o que esta saindo de errado.
    Anexos
    PrintScreen.doc
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 3 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 11/7/2013, 19:01

    Olá Dani,

    Vamos trabalhar no seu arquivo e fazer as modificações?

    Origem do controle

    No campo Texto37: =CLong([Formulários]![frDescontao]![subDesconto].[Formulário]![Texto12])

    No campo Texto8: =CLong([Formulários]![frDescontao]![subServiço].[Formulário]![Texto12])

    No campo Texto13:=CLong([Texto37]-[Texto8])



    CÓDIGO DO BOTÃO LAPIS:

    Private Sub add_Click()
    On Error Resume Next

    Dim strSQL As String
    Dim strSQL2 As String
    Dim strSQL3 As String

    strSQL = "SELECT * FROM tblServiço"
    strSQL2 = "SELECT * FROM tblDesconto"
    strSQL3 = "SELECT * FROM tblCliente"

    If Me!Texto13 = 0 Then
    With Me
    .subServiço.Form.RecordSource = ""
    .subDesconto.Form.RecordSource = ""
    .RecordSource = strSQL3
    End With
    DoCmd.RunCommand acCmdRecordsGoToNew

    Else
    With Me
    .subServiço.Form.RecordSource = strSQL
    .subDesconto.Form.RecordSource = strSQL2
    .RecordSource = strSQL3
    End With
    End If
    End Sub


    CÓDIGO DO BOTÃO "INCLUIR CADASTRO"

    Private Sub addcliente_Click()
    On Error Resume Next
    DoCmd.RunCommand acCmdRecordsGoToNew
    Me.NOME.SetFocus
    End Sub

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 19:14

    Good

    Obrigada vou ve se consigo fazer estas alterações hoje e testar te falo.
    Obrigada pela paciencia

    Dani

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 11/7/2013, 19:52

    Good

    Fiz como falou mas no campo texto13 aparece #NOME??

    E o botao lapis e o botao incluir cadastro voce clica e nao acontece nada.

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 12/7/2013, 01:32

    Olá Dani,

    Vincule o código ao evento dos botões pela modo Propriedade dos botões pelo modo Design do formulário.

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 12/7/2013, 13:09

    Bom dia Good

    Fiz pelo propriedade como voce disse mas aparece uma mensagem enorme dizendo que não localiza e coisa e tal.Voce pode fazer a alteração que disse ai no zip que te envie para ve se funciona??

    Obrigada

    Danielle
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 12/7/2013, 14:00

    Olá Dani,

    Vamos com calma. Os nomes de seus botões coincidem com o nome dos procedimentos?*

    Private Sub add_Click()   =   add      ' É o nome do seu botão lápis

    Private Sub addcliente_Click()   = addcliente             'É o nome do seu botão Incluir Cadastro


    Veja as ilustrações no arquivo abaixo:




    *Infelizmente não posso salvar o banco em uma versão anterior a do Access 2010 que é a versão que tenho em meu computador no serviço.

    Se for possível você baixar uma versão gratuita ou experimental do Access 2010 pela internet você poderá testar o banco que te enviei.

    [Você precisa estar registrado e conectado para ver este link.]
    Anexos
    Dani1.doc
    Você não tem permissão para fazer download dos arquivos anexados.
    (593 Kb) Baixado 15 vez(es)


    Última edição por good guy em 12/7/2013, 14:27, editado 1 vez(es)

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 12/7/2013, 14:24

    Good

    Desculpe nao quis parecer grosseira .Vou tentar abrir no acess 2010 .Dai te falo

    obrigada por enquanto

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 12/7/2013, 14:29

    Olá Dani,

    Quem sugeriu isso, minha amiga? Veja o link com as ilustrações que postei.

    Sucesso !!!

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 14/10/2015, 13:34

    Resolvido
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 14/10/2015, 14:58

    Valew, Dani. O fórum todo agradece. Só um detalhe que eu havia esquecido e é crucial, evite dar nome de variáveis com nomes de métodos e propriedades da biblioteca Access. A razão disso é que você poderá esbarrar em impedimentos ao compilar o código. Portanto, torna-se um fato proibitivo para todo bom programador. No mais, o fórum todo agradece. Dê uma passada no Facebook e dê uma curtida na minha página e também visite o meu site.


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

    Visite meu site:

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

    DANI YAMAMOTO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 78
    Registrado : 06/06/2013

    Re: [Resolvido]Limitar lançamentos

    Mensagem  DANI YAMAMOTO em 14/10/2015, 16:01

    Rsrs, anos depois eu vi que tinha esquecido de dar resolvido.Desculpe a demora, fiquei um bom tempo sem mexer no acess.Agora estou com um novo projeto e como postei algumas duvidas no forum, fui ver minhas mensagens rsrs

    Agradeço as dicas.

    Dani
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Limitar lançamentos

    Mensagem  good guy em 14/10/2015, 18:25

    Olá Dani,

    De Julho pra cá, 4/12 avos de um ano para ser mais exato, rsrs. Obrigado assim mesmo pelo retorno.

      Data/hora atual: 16/7/2018, 13:14