Solved

Access 2010: Requiring an entry in a field IF a certain selection is made from another cbobox.

Posted on 2011-09-03
9
488 Views
Last Modified: 2012-05-12
In my db I have a combo box with several choices.  If user selects "Current HS" , then I want to REQUIRE the field [HSGradYr] to be entered.  

I have the following before update code that PARTIALLY works - but stops.

Private Sub StatusReason_BeforeUpdate(Cancel As Integer)
If Me.StatusReason = "Current HS" Then
  If Len(Me.HSGradYr & vbNullString) = 0 Then
    MsgBox "If you use this reason, you must enter a HS Grad Yr"
    Cancel = True
    Me.HSGradYr.SetFocus
  End If
End If
End Sub

When I make that selection in StatusReason, two things happen.  First I get the proper message box I asked for and then this:

"Run-time error '2108'
You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method."

Clearly I've left something out of my code -

HELP?!?!?!?!  

thanks everyone!
0
Comment
Question by:mbmartin0409
[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
  • 5
  • 4
9 Comments
 
LVL 75
ID: 36478680
You cannot set Focus to a control within the Before Update of a control


Private Sub StatusReason_BeforeUpdate(Cancel As Integer)
If Me.StatusReason = "Current HS" Then
  If Len(Me.HSGradYr & vbNullString) = 0 Then
    MsgBox "If you use this reason, you must enter a HS Grad Yr"
    Cancel = True
      ' Me.HSGradYr.SetFocus  ' Comment this out
  End If
End If
End Sub

mx
0
 

Author Comment

by:mbmartin0409
ID: 36478760
Thanks for that ---
but then --- how DO i get the user's focus on the field that needs to be completed?

0
 
LVL 75
ID: 36478765
Well ... you can move this code to the Form Before Update event instead, because there you *can* set Focus to another control.  That's just how it works ...

mx
0
NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

 
LVL 75

Accepted Solution

by:
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 500 total points
ID: 36478767

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.StatusReason = "Current HS" Then
  If Len(Me.HSGradYr & vbNullString) = 0 Then
    MsgBox "If you use this reason, you must enter a HS Grad Yr"
    Cancel = True
      Me.HSGradYr.SetFocus  ' This should work now .
  End If
End If
End Sub
0
 

Author Comment

by:mbmartin0409
ID: 36478775
also -  Since I have commented that line out,  The run-time error is gone, of course - BUT when I click "ok" on the message box to go enter the required year in the field the same requirement message keeps popping up.  as soon as I leave the field with the beforeupdate code the message pops

any ideas?
0
 

Author Comment

by:mbmartin0409
ID: 36478788
Excellent - It seems to work fine putting this code in the form before update event.  I'll keep trying to screw it up but it seems to be just perfect!
0
 
LVL 75
ID: 36478800
You should find that the Form BU is the best place for  validation over all.  Other than maybe for example someone is entering a Date in a text box, and you want to be sure it's a valid date ... or whatever.

mx
0
 

Author Comment

by:mbmartin0409
ID: 36478852
thanks for the help and enjoy the points! :-)
0
 
LVL 75
ID: 36478891
You are welcome ... and thanks, you put me on the board for this Month, lol.
0

Featured Post

Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

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…
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question