[Resolvido]Limitar lançamentos

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

Olá Dani,

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

Boa tarde

Vou postar

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

Bom dia

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

Danielle

Em qual botao vou colocar este codigo??

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.

Good Guy

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

Dani

Good

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

Dani

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 !!!

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

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.

Good

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

Dani

Olá Dani,

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

Good

Renomeie mas continua dando a mensagem.Não sei o que esta saindo de errado.

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

Good

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

Dani

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

Olá Dani,

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

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

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.

http://microsoft-access.softonic.com.br/

Good

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

obrigada por enquanto

Dani

Olá Dani,

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

Sucesso !!!

Resolvido

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.


https://www.facebook.com/EduardoMachado

Visite meu site:

www.goodguyaccessvba.com.br

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

Olá Dani,

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

Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)