Sum of records in a text box

U

umair434

Registered User.
Local time
Today, 11:16
Joined
Jul 8, 2011
Messages
186
Hi,

I have a text box which shows the sum of numbers for today - the text box is located in a form which is based on a query.

I want a pop up message to appear if the sum of records is zero (meaning no entries were added). My code works for a simple (empty) text box, but doesn't work if I use =SUM([Source]) as the control source of the text box:

Here is the code im using:

If IsNull(Me.Text2) Then
MsgBox ("No records have been added today!")
End If


Also, what's the difference between using Me.text2 and Me![Text2]

thanks guys!
 
I used

If Me.text2 = "" Then
MsgBox "No records have been added"
End If

but that displays the Msgbox everytime (no matter values are in the text box or not)

:S
 
Code: 
If Len(Me.text2 & vbNullString) = 0 Then
    Msgbox "No records have been added"
End If
 
Hi - that displays the msgbox even if the sum is not 0 :S
 
You are firing the code at the wrong time or you are referring to a different textbox. Let's have a look at your db.
 
I have uploaded a stripped version. Thank you for your time.

basically, I want an alert system which pops up when the user opens the application. It will tell them whether records have been added today or not - If added, what are the values - and the last time a report was actioned.

Any suggestions to approach this will be highly appreciated :)

thanks!
 

Attachments

Use a DSum() in the Load event of the form.
Code: 
If Nz(DSum("[COLOR=Red]FieldName[/COLOR]", "[COLOR=Red]TableName[/COLOR]", "[COLOR=Red]DateField[/COLOR]=Date()"), 0) = 0 Then
    Msgbox ...
End If
Amend the bits in red.
 
Private Sub Form_Load()

If Nz(DSum("Email SPP Actioned", "Copy of tblActivities", "dte=Date()"), 0) = 0 Then
MsgBox ("SPPs have NOT been Actioned today!")

End If
End Sub


this gives an error saying "missing bracket"
 
That was just code I wrote on here so it wasn't tested. The missing parens is here:

"dte=Date()"), 0)) = 0
 
It still gives an error :S

If Nz(DSum("Email SPP Actioned", "Copy of tblActivities", "dte=Date()"), 0)) = 0 Then
 
Actually, the first code is correct, so go back to that.

What is the exact error message.
 
Runtime Error '3075'

Syntax Error (Missing operator) in query expression 'Sum(Email SPP Actioned)'
 
If Nz(DSum("[Email SPP Actioned]", "Copy of tblActivities", "dte=Date()"), 0) = 0 Then
 
Phew! these small things sometimes. thank you for being so patient :)
 
You must log in or register to reply here.

Similar threads

J
Sum Query and text box
Replies
11
Views
1,079
arnelgp
arnelgp
T
Solved Sum the data in a textbox in continous form
Replies
13
Views
1,625
liam_thompson
L
A
Solved Problem with the format property of a combo box.
2
Replies
24
Views
1,034
AHeyne
A
E
Solved Select Last Record
Replies
10
Views
1,198
Emma35
E
G
Strange behaviour from a combo box on a form when trying to evaluate data in another column
Replies
6
Views
688
GPGeorge
GPGeorge

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom