Search results

Yes You are Right i got error line of DSum() but i check my spelling its fine. still i got error.

Dear All, i am Getting Error while to apply the VBA. here is my VBA Code: Option Compare Database Private Sub Form_AfterUpdate() Call Form_Current End Sub ' make this Public so we can call in subform Public Sub Form_Current() Me.TotalInv = Nz(DSum("[InvAmount]", "[PR 33101]", "[PR...

Thanks Uncle Gizmo, i will check your blog.

Dear Sir Arnel, Today i Present My Access Database to my company. But i got a problem for the budget and expenses of year 2019 and 2020. Sir how can i add budget plan and expenses to my existing database for 2019 and 2020 or next coming years? Thanks & God bless you & your family. Best regards,

Thanks a Lot Sir Arnel. Yes! it finally works. Once again, maraming- maraming salamat po sa tulong nyo sa akin. GOD BLESS YOU. Best regards,

Dear Sir Arnel, Sorry, but there is still a problem.. Can you please separate the table 44101 with the table 33102 because the formula on both table are merge. I think you add the 33102 subform to Budget 44101. Thanks.

Good day Sir Arnel. Thank you so much for helping me.. I really appreciate your assistance. Sir Arnel, the file you sent me, there is a problem in 44101 form and subform because the calculations is not working. Can you check & fix it please. I am currently working this project for Petromin...

Thanks a lot Sir Arnel, you help me a lot. thank you so much. the file you send me its help me a lot.but sir still i cant apply it in my file. Sir Arnel i am sending you my file can you add those code in my file and send me back. Thank you for helping me sir arnel. God Bless you and your...

Hello Every one. Is Anybody is there is help me? My Data in Form Feilds: Total Budget Amount [80000] Used Budget Amount [60000] Remaining Amount [20000] SubForm Fields: Date:12-07-2018 Description: electricity bill Expenses Amount:21000 Now if you look i have Remaining Amount only 20000...

My Data in Form Feilds: Total Budget Amount [80000] Used Budget Amount [60000] Remaining Amount [20000] SubForm Fields: Date:12-07-2018 Description: electricity bill Expenses Amount:21000 Now if you look i have Remaining Amount only 20000 and today is my expenses amount 21000 more then...

My Data in Form Feilds: Total Budget Amount [80000] Used Budget Amount [60000] Remaining Amount [20000] SubForm Fields: Date:12-07-2018 Description: electricity bill Expenses Amount:21000 Now if you look i have Remaining Amount only 20000 and today is my expenses amount 21000 more then...

Sir Arnel, I am Still got the Error. Private Sub TotalActualAmount_BeforeUpdate(Cancel As Integer) If Cancel=(nz(Me.[ActualAmount], 0)+DSum("[ActualAmount]", "[Expenses 33102 Subform]")) > Me.Parent!AnnualBudget.Value Cancel = True Then MsgBox "It's greater" End If End Sub Can I send You...

Private Sub TotalActualAmount_BeforeUpdate(Cancel As Integer) If Cancel=(nz(Me.[ActualAmount], 0)+DSum("[ActualAmount]", "[Expenses 33102 Subform]")) > Me.Parent!AnnualBudget.Value If Cancel = True Then MsgBox "It's greater!" End If End Sub I am Receiving Error Message(Compile Error: Expected...

Dear arnelgp, Thanks A lot. But I try the Way you Type but i am getting Error. and One thing more in this form i have subform also. Here its is: Form Fields: 1: Annual Budget Amount 80000 2:Total Used:60000 3:Remining Budget:20000 SubForm Fields: 1 : Date 2 : Description 3 : Expenses...

I Try But Its not Working. I try the following: 1. Private Sub TotalActualAmount_BeforeUpdate(Cancel As Integer) If Me.TotalActualAmount.Value > Me.AnnualBudget.Value Then MsgBox "It's greater!" End If End Sub 2. Say your Total used amiunt textbox is named txtTotalUsed: Private Sub...

I Create a Budget Plan For a Year. I have 3 field in my Form. 1: Annual Budget Amount : 80000 2: Total use Amount: 60000 3: Remining Budget Balance: 20000 Now what I want, if I enter the amount more the annual budget plan its should give me a popup message. Thanks.

This is Mark Form Jeddah.