Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.
Validating controls
Validating controls
I have a control on the [parent form purchases] which sums the total value of goods received note from the tables (txtgrnValue). This control is used to net off with the purchases subform (txtgrandtotal), for simplicit purpose see below:
Txtgrnvalue – txtgrandtotal = 0 (txtbalance)
If the net of the above two controls is zero (txtbalance), then it is safe for the users to proceed to the next sub form which deals with double entries.
Now assuming the net of the two is not zero (txtbalance), I want to stop the users from proceeding to next sub form until the above control is balanced off to zero.
How do I do it????
Which event to use???????
Regards
Chris
I have a control on the [parent form purchases] which sums the total value of goods received note from the tables (txtgrnValue). This control is used to net off with the purchases subform (txtgrandtotal), for simplicit purpose see below:
Txtgrnvalue – txtgrandtotal = 0 (txtbalance)
If the net of the above two controls is zero (txtbalance), then it is safe for the users to proceed to the next sub form which deals with double entries.
Now assuming the net of the two is not zero (txtbalance), I want to stop the users from proceeding to next sub form until the above control is balanced off to zero.
How do I do it????
Which event to use???????
Regards
Chris
Asked:
-
4
3
2- +1
1 Solution
LVL 56
in the AfterUpdate event of txtbalance, try to check if its value is greater than zero, if yes, disable your "Next" button or so, else enable that option.
Kindly demonstrate your answer properly, are saying it is supposed to
Under form after update like below:
If (Me.txtbalance) <> 0 Then
Beep
MsgBox " Please check the txtbalance control is out of balance"
Cancel = True
Exit Sub
End If
End Sub
I have tried it , it is not working!!!!!!!!
Regards
Chris
Under form after update like below:
If (Me.txtbalance) <> 0 Then
Beep
MsgBox " Please check the txtbalance control is out of balance"
Cancel = True
Exit Sub
End If
End Sub
I have tried it , it is not working!!!!!!!!
Regards
Chris
Under form after updatei was mentioned in the AfterUpdate event of txtbalance not form's AfterUpdate event.
can you try that?
A constant message keeps on popping up
What I want is a situation like after updating the sub form and immediately when attempting to leave the sub form to the next sub form then that message should pop up if the txtbalance control is not zero. Is there a way to do it in ms access!
Regards
Chris
What I want is a situation like after updating the sub form and immediately when attempting to leave the sub form to the next sub form then that message should pop up if the txtbalance control is not zero. Is there a way to do it in ms access!
Regards
Chris
You can do like this:
Option Compare Database
Option Explicit
' Form module declarations.
Private LastMark As String
Private LastValue As Currency
Private Sub Form_AfterUpdate()
' Store the last updated value.
LastValue = Nz(Me!Txtgrnvalue.Value, 0)
End Sub
Private Sub Form_Current()
If LastValue <> 0 And LastMark <> "" Then
' The last sum was not zero, and we do have a valid bookmark.
' Move to the last record.
Me.Bookmark = LastMark
' Pop a message to the user.
MsgBox "Please adjust to zero."
Me!Txtgrnvalue.SetFocus
Else
' Store the current value to allow us to check if it was not zero.
LastValue = Nz(Me!Txtgrnvalue.Value, 0)
' Store the current bookmark to allow us to get back to this.
LastMark = Me.Bookmark
End If
End Sub
The other thing I do with subforms with this type of functionality is use the subform controls Exit event, which has a Cancel argument.
You would open your main form in design view, click on the subform control and view the properties of the control. Select the Exit property and then do something like:
You would open your main form in design view, click on the subform control and view the properties of the control. Select the Exit property and then do something like:
Private Sub subForm1_Exit (Cancel as integer)
Cancel = me.subform1.form.textbox <> 0
if Cancel then
msgbox "balance the values before proceeding"
me.subform1.form.textbox.setfocus
end if
End Sub
Thank you so much this is actually the best answer , but how I reopen this query to apportion the points to you as well???????????
Once again
Thank you so much
Chris
Once again
Thank you so much
Chris
but how I reopen this query to apportion the points to you as well???????????you can try click the "Report Question" option.
How do I report content to site advisers and moderators?
http://support.experts-exchange.com/customer/portal/articles/2876519-how-do-i-report-content-to-site-advisers-and-moderators-
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now