To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.
Course Of The Month
5 days, 14 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Make a Subform Field Required
Posted on 2012-12-30
I Have a form that is in a tab format.
One of the tab pages is a subform. On save I have some fields that are required before it will save. I need it to also make fields required on the subform but the code is not working.
Any experts know what im doing wrong? here is the code:
(frmInductionChecks) is the name of the subform.
(frmMain)is the name of the main form.
(Date of Induction) is the name of the control.
If IsNull(Me!frmInductionChec
MsgBox "You must provide a value for Perform Date of Induction."
Me.Me!frmInductionChecks.F
Cancel = True
Exit Sub
End If
If IsNull(Me.Text562) Then
MsgBox "You must provide a value for Perform Fire Turret Runout Reading."
Me.Text562.SetFocus
Cancel = True
Exit Sub
End If
One of the tab pages is a subform. On save I have some fields that are required before it will save. I need it to also make fields required on the subform but the code is not working.
Any experts know what im doing wrong? here is the code:
(frmInductionChecks) is the name of the subform.
(frmMain)is the name of the main form.
(Date of Induction) is the name of the control.
If IsNull(Me!frmInductionChec
MsgBox "You must provide a value for Perform Date of Induction."
Me.Me!frmInductionChecks.F
Cancel = True
Exit Sub
End If
If IsNull(Me.Text562) Then
MsgBox "You must provide a value for Perform Fire Turret Runout Reading."
Me.Text562.SetFocus
Cancel = True
Exit Sub
End If
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
4
-
3
3
10 Comments
Active today
Where is your code located?
Put it in the BeforeUpdate event of the main form if it is not there already. Also your subform reference is not quite correct. Try this:
Put it in the BeforeUpdate event of the main form if it is not there already. Also your subform reference is not quite correct. Try this:
If "" & Me.frmInductionChecks.Form.[Date of Induction] = "" Then
MsgBox "You must provide a value for Perform Date of Induction."
Me.frmInductionChecks.Form.[Date of Induction].SetFocus
Cancel = True
Exit Sub
End If
If "" & Me.Text562 = "" Then
MsgBox "You must provide a value for Perform Fire Turret Runout Reading."
Me.Text562.SetFocus
Cancel = True
Exit Sub
End If
My code is on save record that is where all the append quieries are .
It will not append unless all these field are filled up.
if I put it on before update it will allow the user to contintinue. and still save the record.
when i put it on save button it wont save until the fields are field out.
thank you for the help and your time I will try this.
The message pops up I hit okay but it will not let you fill in the blank I have it on before update like u said
It will not append unless all these field are filled up.
if I put it on before update it will allow the user to contintinue. and still save the record.
when i put it on save button it wont save until the fields are field out.
thank you for the help and your time I will try this.
The message pops up I hit okay but it will not let you fill in the blank I have it on before update like u said
That is okay it is working fine , but how could i do it so i dont have to write every control down in a subform?
Dim ctl As Control
For Each ctl In Me.Controls
If IsNull(ctl) Then
MsgBox ctl.Name & " Is Empty, Please enter a Value.", vbCritical
'Controls(ctl.Name).SetFoc
Exit Sub
End If
' Next ctl
Dim ctl As Control
For Each ctl In Me.Controls
If IsNull(ctl) Then
MsgBox ctl.Name & " Is Empty, Please enter a Value.", vbCritical
'Controls(ctl.Name).SetFoc
Exit Sub
End If
' Next ctl
Active 1 day ago
1. recommend you adopt the syntax that mbizup used to test whether the control is empty. Your syntax will only identify those that are null, not those that are an empty string "". By concatenating an empty string to the controls value, and testing to see if the result is still an empty string, you will identify both NULLs and empty strings.
2. And if you have some fields in the subform that are not required, then one technique is to add something to the Tag property of the controls that are (I set Tag to "Req"), then modify the loop to include a check for the Tag property
3. Lastly, I have not checked all versions of Access, but some will not allow you to directly set the focus to a control on a subform without first setting the focus to that form, so I added a line for that as well
2. And if you have some fields in the subform that are not required, then one technique is to add something to the Tag property of the controls that are (I set Tag to "Req"), then modify the loop to include a check for the Tag property
3. Lastly, I have not checked all versions of Access, but some will not allow you to directly set the focus to a control on a subform without first setting the focus to that form, so I added a line for that as well
Dim ctl As Control
For Each ctl In Me.subformControlName.Controls
If ("" & ctl.Value = "") AND (ctrl.Tag = "Req") Then
MsgBox ctl.Name & " Is Empty, Please enter a Value.", vbCritical
me.subformcontrolName.form.setfocus
me.subformcontrolname.form.controls(ctrl.Name).SetFocus
Exit Sub
End If
Next ctl
I tried what you said fyed but when i push save it doesnt work . I get no error message
Dim ctl As Control
For Each ctl In Me.subformControlName.Cont
If ("" & ctl.Value = "") AND (ctrl.Tag = "Req") Then
MsgBox ctl.Name & " Is Empty, Please enter a Value.", vbCritical
me.subformcontrolName.form
me.subformcontrolname.form
Exit Sub
End If
Next ctl
This code works:
If "" & Me.frmInductionChecks.Form
MsgBox "You must provide a value for Perform Date of Induction."
Me.frmInductionChecks.Form
Cancel = True
Exit Sub
End If
I would rathe r use the first one so that I dont have to write each field. Here is my database I had to delete alot of it
sendinhelprestriction.zip
Dim ctl As Control
For Each ctl In Me.subformControlName.Cont
If ("" & ctl.Value = "") AND (ctrl.Tag = "Req") Then
MsgBox ctl.Name & " Is Empty, Please enter a Value.", vbCritical
me.subformcontrolName.form
me.subformcontrolname.form
Exit Sub
End If
Next ctl
This code works:
If "" & Me.frmInductionChecks.Form
MsgBox "You must provide a value for Perform Date of Induction."
Me.frmInductionChecks.Form
Cancel = True
Exit Sub
End If
I would rathe r use the first one so that I dont have to write each field. Here is my database I had to delete alot of it
sendinhelprestriction.zip
Active 1 day ago
try changing:
For Each ctl In Me.subformControlName.Cont
to
For Each ctl In Me.subformControlName.Form
Have you put a breakpoint in the code and stepped through it? That is almost always the first step in debugging why something is not doing what you expect it to do.
For Each ctl In Me.subformControlName.Cont
to
For Each ctl In Me.subformControlName.Form
Have you put a breakpoint in the code and stepped through it? That is almost always the first step in debugging why something is not doing what you expect it to do.
No i didnt put a code to stepped through dont know how.
I have been assigned to do access and I have only taken one class and that wasnt in depth. I will try this thank you.
I have been assigned to do access and I have only taken one class and that wasnt in depth. I will try this thank you.
Active 1 day ago
gigi,
To create a breakpoint in your code, you open a code module and then left-click in the bar that runs from top to bottom, just to the left of the code window. When you do this, you will see a red/brown dot appear in that bar (see attached).
Then, when you run your application, when the code reaches the line that is highlighted by the dot, it will pause and display the code window. You can then mouse over the code and see the values of the controls and variables in your code. You use the F8 button to "step-through" your code, one line at a time. You can use the F5 button to resume your code execution when you are done stepping through the code.
To create a breakpoint in your code, you open a code module and then left-click in the bar that runs from top to bottom, just to the left of the code window. When you do this, you will see a red/brown dot appear in that bar (see attached).
Then, when you run your application, when the code reaches the line that is highlighted by the dot, it will pause and display the code window. You can then mouse over the code and see the values of the controls and variables in your code. You use the F8 button to "step-through" your code, one line at a time. You can use the F5 button to resume your code execution when you are done stepping through the code.
Featured Post
Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database. This article shows how to recreate this functionality in Windows 7 through 10.
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s
ManageEngine
webinar, where attendees received a comprehensive look at the ma…
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Suggested Courses
Course of the Month5 days, 14 hours left to enroll
Earn Certification
MCSA Configuring Windows 7 Exam 70-680
$49.00$44.10
707 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.