[Resolvido]Controle Financeiro Pessoal e Empresarial

Boa Noite Turma

Eu estou com um projeto baseado em um programa (MasterCaixa), não sei se vocês conhece.

http://www.simpe.com.br/

Eu preciso de uma ajudinha para desenvolver.

Primeiro eu quero começar pelo movimento ( TabMov ) que significa o controle de receita e despesas.
Nessa tabela teremos o seguintes formulários:
*frmMReceitas - Lançamentos de múltiplas receitas ( parcelas )
*frmMDespesas - Lançamentos de múltiplas despesas (parcelas )
*frmReceita - Lançamento de receitas ( sem parcelas )
frmDespesas - Lançamento de despesas ( sem parcelas)

Alguém pode me ajudar a elaborar essa primeira parte do sistema?

Esse é o Banco de dados:

Como assim? Se você já têm as tabelas prontas, é só montar os forms.
Não entendi?

Bom dia Cláudio Machado.

A minha maior dificuldade é montar os formulários que contem os parcelamento que sejá igual ao sistema indicado acima.

Se alguém puder me ajudar nessses formulários ficarei muito grato.

Obrigado!

Bom dia.
Baixei o sistema, e realmente é um sistema muito bom.
Veja se isto te ajuda.

Boa tarde Cláudio Machado, obrigado pela sua atenção.

Você deu uma olhada como é feito o parcelamento do MasterCaixa? Se pudesse ser igual.

O meu objetivo é fazer igual ao do MasterCaixa.

Mas o exemplo que te enviei funciona quase igual, é só adaptar ao seu modelo.

Bom dia Cláudio Machado,muito obrigado pela sua ajuda.

Dê uma olhada no meu bd, o código que eu usei está com um erro.

Se você puder me ajudar.

Obrigado.

Bom dia, veja se da certo assim.

Bom dia JUNGLI, muito obrigado é isso mesmo.

Esta parte esta pronta.

Você deve ter percebido que nas tabelas do bd contém um campo "MovEmp", certo?

O que eu quero que ao fazer o login e qualquer dados que eu adicionar no banco de dados (através de formulários) esse campo seja preenchido pelo código do usuário logado.

Tem fazer isso no banco de dados?

crie uma variável publica

MovEmpTemp , por exemplo


e no seu formulário de login, no botão de confirmação

popule a variável com o código do usuário logado.


exemplo:

MovEmpTemp = me.campo do formulário.value



no formulário: formDespesas

Private Sub cmdConfirmar_Click()
'Variáveis
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
'Preenche variáveis
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
'Cria o recordset
Set rsParc = CurrentDb.OpenRecordset("TabMov", dbOpenDynaset)
'Popula o Recordset
With rsParc 'Selecona o recordset
For I = 1 To Me.txtParcela 'Loop de 1 até o total de parcelas
StrDateAdd = DateAdd("m", I, Format(Me.txtVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew 'Adiciona e popula o novo registro
.Fields("MovBan") = Me.cboConta.Value
.Fields("MovDoc") = Me.txtDocumento.Value
.Fields("MovDat") = Format(Me.txtData.Value, "mm/dd/yyyy")
.Fields("MovDes") = Me.cboReferencia.Value & "/" & I
.Fields("MovPes") = Me.cboFornecedor.Value
.Fields("MovVen") = StrDateAdd
.Fields("MovObs") = Me.txtObs.Value
.Fields("MovVal") = StrParc
.Fields ("MovEmp") = MovEmpTemp
.Update 'grava as informações na tabela
Next I 'próximo registro
End With 'Fim daseleção da tabela
'Fecha o recordset
Set rsParc = Nothing: Close
End Sub

Boa Tarde

Deu certo a parte Variável Global, mas percebi um erro ao gerar as parcelas: o campo numero de parcelas e campo descrição pessoa (MovQtd e MovDes), sendo quando é lançado na tabela os dados do MovQtd fica no campo MovDDes.

Bom dia

é só indicar os campos corretos, seguindo o exemplo abaixo.

.Fields("MovQtd")= Me.txtParcela.Value

Bom dia

No campo MovDes acontece o seguinte: esta aparecendo a descrição mais com / e um numero.

Ex: Pagamento de Energia elétrica/1
Pagamento de Energia elétrica/2
Então significa que a parcela foi divida em duas e no campo MovQtd 2.

O que eu quero dizer que no campo descrição só apareça a descrição sem a / e no campo MovQtd apareça 1/2.

Será tem como ser desse jeito?

Me desculpe por perturbar.

Alguém?

Boa tarde,

.Fields("MovDes") = Me.cboReferencia.Value
.Fields("MovQtd") = Me.txtParcela.Value & "/" & I

Boa Tarde, obrigado Jungli, era isso mesmo que eu queria.

Agora eu quero saber ser tem como executar a calculadora do Windows pela macro em vez do código vba?

Se tem, como faço?

PatSoft boa noite tenta dessa forma Call Shell("calc.exe", vbNormalFocus)

Boa Tarde,

Tem como Ao selecionar um registro da caixa de listagens Excluir o registro selecionado?

E aparecer a mensagem com o nome do cliente selecionado?

Veja esse exemplo de deletar dado de duas tabelas relacionando

Dim varItem As Variant
If IsNull(Me.ListaClientes) Then
MsgBox " Nenhum Cliente Selecionado Para Eliminar!", vbCritical, " Produto"
Exit Sub
End If
If (Not IsNull(DLookup("[codCliente]", " tblProduto", "[codCliente] =" & Me!ListaClientes & ""))) Then
MsgBox "O Cliente " & ListaClientes.Column(1) & Chr(10) + "Não pode ser Anulado, Pois Já Tem Registos.", vbQuestion, "Produto"
Exit Sub
End If

For Each varItem In ListaClientes.ItemsSelected
If MsgBox("Eliminar Ciente ? " & ListaClientes.Column(1), vbYesNo + vbQuestion, "Produto") = vbYes Then
CurrentDb.Execute "DELETE * FROM tblCliente WHERE codCliente =" & ListaClientes.ItemData(varItem) & ""
MsgBox "Cliente Anulado com Sucesso!", vbOKOnly + vbInformation, "Produto"
Else
Me.ListaClientes.Selected(varItem) = False
Exit Sub
End If

Next varItem
Me.ListaClientes.Requery
Me.Produto = ""
Me.Cliente = ""
Me.Forn = ""

Bom dia

Dê uma olhada no que acontece:





Porque esta mensagem aparece?

PatSoft boa noite dá para voce postar o BD em versão 2007 para nós analisamos o problema?

Aqui o Banco de dados:

PatSoft boa noite manda BD na versao 2007

Aqui:

PatSoft

Retire esta parte do botão excluir

If (Not IsNull(DLookup("[MovCod]", "TabMov", "[MovCod] =" & Me!Lista13 & ""))) Then
MsgBox "A Despesa " & Lista13.Column(1) & Chr(10) + "Não pode ser Anulado, Pois Já Tem Registos.", vbQuestion, Controle de Despesas"
Exit Sub
End If

PatSoft aqui tens o BD exemplo era só eliminar a condição não nula como se refere o Assis também resolvi a tua duvida de carregar a calculadora numa macro, veja que carrego a calculadora dentro do modulo ribbon depois tambem pode fazer isso com os formularios.

Boa Tarde Assis, obrigado pela ajuda.

Agora eu quero saber se tem como, quando eu selecionar um registro da caixa de listagem e clicar no botão ele abrir o formulário (com campos não acoplados)com os dados do registro selecionado.

PatSoft

Esta rotina aplicada num botão abre um formulario com criterio
Dim varItem As Variant
If IsNull(Me.Lista) Then
MsgBox " Nenhum Dado selecionado!", vbCritical, "Aviso"
Exit Sub
End If
For Each varItem In Lista.ItemsSelected
If MsgBox("Confirma ? " & vbCrLf & "Abertura " & Lista.Column(0), vbYesNo + vbQuestion, "Aviso") = vbYes Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NomeDoFormulárioAAbrir"
stLinkCriteria = "[Descricao]=" & "'" & Me![Lista] & "'"
DoCmd.openForm stDocName, , , stLinkCriteria
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If

Next varItem
Me.Lista.Requery

Bom dia Assis,

Peguei o código que me passou mas não deu certo o formulário abre mais sem os registros.

A adaptação do código:

Código:


Private Sub cmdRecibo_Click()
Dim varItem As Variant
If IsNull(Me.Lista13) Then
MsgBox " Nenhum Dado selecionado!", vbCritical, "Aviso"
Exit Sub
End If
For Each varItem In Lista13.ItemsSelected
If MsgBox("Confirma ? " & vbCrLf & "Abertura " & Lista13.Column(5), vbYesNo + vbQuestion, "Aviso") = vbYes Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "formRecibo"
stLinkCriteria = "[MovDes]=" & "'" & Me![Lista13] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Me.Lista13.Selected(varItem) = False
Exit Sub
End If

Next varItem
Me.Lista13.Requery
End Sub


PatSoft

Poste a sua BD já com o FormRecibo

Aqui o Banco de Dados:

Alguém?

PatSoft

Alguém chegou .....

Teste

Bom dia Assis, é isso mesmo.

Mas o campo referente a aparece em branco, era para aparece nele a descrição da despesas.

Desculpe-me pela pertubação.

Consegue resolver

Abre o FormRecibo em estrutura e seleciona o campo "txtReferente" dados "MovDes"

Certo, qualquer coisa eu retorno.

Boa Tarde,

Eu quero pergunta uma coisa não sei se é possível, mais vamos lá.

Tem registro da TabMov que estão vencidos e como vocês pode ver no meu formulário formMov tem a listbox como os dados da tabela.

Tem como quando estiver vencidos a cor do registro ficar em vermelho?

Alguém?

Alguém pode me ajudar?

Boa noite PatSoft é possivel sim fazer isso aconselho-te usar a listview veja esse exemplo do mestre PILOTO

http://maximoaccess.forumeiros.com/t9454-listview-activex-aplicada-em-formulario-de-aviso-de-registros-vencidos-por-data?highlight=ListView

Bom dia Avelino João.

Baixei o exemplo mais não consigo adaptar ao meu banco de dados. Será que tu pode me dá uma forcinha?

Banco de dados aqui:

Alguém?

Banco de dados:

Gerenciado Financeiro Pessoal & Empresarial.accdb (2.8 MB)
https://mega.co.nz/#!hNMiga5D!SL5VMU0AVaX1hnH6mb-pwQe4Ys81ahe_hqBcVJ22GCE

Boa Tarde Pessoal, alguém pode me ajudar?

PatSoft bom dia, ola tenho tindo pouco tempo para ti ajudar, voce já tentou fazer o que eu ti aconselhei em usar listview no teu formulario ao invés de fazer com caixa de listagem mostra como voce estas a fazer posta o BD tens que tentar dar um passo para podemos ti ajudar já que não tenho tempo para fazer do zero.

Banco de dados:
Download

Esperando por resposta ....

Se alguém puder me indicar um tutorial ou vídeo aula ficarei muito grato.

https://dl.dropboxusercontent.com/u/90217826/FiltroCores.rar

Sei que não é bem isso que quer mas veja se te ajuda,é feito em um formulario,filtar qualquer campo com outra cor.

Abçs.

Bom dia Kaynan, obrigado pela atenção.

Mais não é bem isso que eu quero.

Mais mesmo valew.