How can I check if my highlighted field is selected !

[johnnyc]

Hello,

I am new to VB&Access and inherited a project. I have a form with multiple buttons and if one is clicked then a few fields under the buttons are highlighted. Different fields are selected/highlighted depending on what button I click. I have managed to write VB code to throw up and error if a field is null, but that doesn't help me much because on a different button click that field might not need to be filled in.

I am wondering how I can do a check if the field is highlighted, if so then that AND my If NotNull code will be sufficient.

Currently this is the only code I have:

Private Sub Command147_GotFocus()

If IsNull(WorkRequested) = True Then
MsgBox "Required field: The Work Requested field must be filled in."
End If

End Sub

Thank you for any help!

** Edit **
[IMGNOTHUMB]http://bytes.com/attachments/attachment/5525d1318882813/capture.jpg[/IMGNOTHUMB]

[NeoPa]

If you post the code used to highlight some of the controls (not fields BTW) then we can help you detect the changes that have been applied more easily.

[johnnyc]

Hello Neo,

I'm not sure where in this code it is:

Option Compare Database

Private Sub ApprovedSM_AfterUpdate()
On Error GoTo Err_ApprovedSM_AfterUpdate

    If Me.ApprovedSM = -1 Then
        ApprovedDate = Now()
        Status = 2
        SubStatus = 8
    End If
    DoCmd.Requery "approveddate"
    DoCmd.Requery "Status"
    DoCmd.Requery "substatus"
    
Exit_ApprovedSM_AfterUpdate:
    Exit Sub

Err_ApprovedSM_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ApprovedSM_AfterUpdate
    
End Sub

Private Sub Calltaker_Change()
On Error GoTo Err_Calltaker_Change

    EstimateNo = [Contact ID] & [Job ID]
Exit_Calltaker_Change:
    Exit Sub

Err_Calltaker_Change:
    MsgBox Err.Description
    Resume Exit_Calltaker_Change
    
End Sub

Private Sub cboNewJob_Click()
On Error GoTo Err_cboNewJob_Click

    DoCmd.GoToRecord , , acNewRec

Exit_cboNewJob_Click:
    Exit Sub

Err_cboNewJob_Click:
    MsgBox Err.Description
    Resume Exit_cboNewJob_Click
    
End Sub
Private Sub CBoStatus_AfterUpdate()
On Error GoTo Err_CBoStatus_AfterUpdate

    If [CboStatus] = "Won Estimate" Then
        [JobStatus] = 22
    End If

Exit_CBoStatus_AfterUpdate:
    Exit Sub

Err_CBoStatus_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_CBoStatus_AfterUpdate
    
End Sub
Private Sub CboZip_AfterUpdate()
On Error GoTo Err_CboZip_AfterUpdate

    DoCmd.Save

Exit_CboZip_AfterUpdate:
    Exit Sub

Err_CboZip_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_CboZip_AfterUpdate
    
End Sub
Private Sub Combocity_AfterUpdate()
On Error GoTo Err_Combocity_AfterUpdate

    DoCmd.Save

Exit_Combocity_AfterUpdate:
    Exit Sub

Err_Combocity_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Combocity_AfterUpdate
    
End Sub
Private Sub Contact_Email_Address_DblClick(Cancel As Integer)
On Error GoTo Err_Contact_Email_Address_DblClick

   Call SendEmail(Me.[Contact Email Address])
   
Exit_Contact_Email_Address_DblClick:
    Exit Sub

Err_Contact_Email_Address_DblClick:
    MsgBox Err.Description
    Resume Exit_Contact_Email_Address_DblClick
    
End Sub

Private Sub Check186_AfterUpdate()
On Error GoTo Err_Check186_AfterUpdate

    If Me.ContractDeliverd = -1 Then
        Me.DliveredDate = Now()
    End If

Exit_Check186_AfterUpdate:
    Exit Sub

Err_Check186_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check186_AfterUpdate
    
End Sub

Private Sub Check198_AfterUpdate()
On Error GoTo Err_Check198_AfterUpdate

    If [Check198] = -1 Then
        Me.assignedtoRep = Now()
        Me.[SubStatus] = 4
    End If
    DoCmd.Requery "SubStatus"
    DoCmd.Requery "assignedtorep"
    
Exit_Check198_AfterUpdate:
    Exit Sub

Err_Check198_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check198_AfterUpdate
    
End Sub

Private Sub Check202_AfterUpdate()
On Error GoTo Err_Check202_AfterUpdate

    If Check202 = -1 Then
        Me.Status = 3
    End If
    DoCmd.Requery "status"
    
Exit_Check202_AfterUpdate:
    Exit Sub

Err_Check202_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check202_AfterUpdate
    
End Sub

Private Sub Check205_AfterUpdate()
On Error GoTo Err_Check205_AfterUpdate

    If [Check205] = -1 Then
        Me.Text207 = Now()
    End If
    DoCmd.Requery "Text207"
Exit_Check205_AfterUpdate:
    Exit Sub

Err_Check205_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check205_AfterUpdate
        

End Sub

Private Sub Check208_AfterUpdate()
On Error GoTo Err_Check208_AfterUpdate

    If [followup2] = -1 Then
        Me.Followup2date = Now()
    End If
    
Exit_Check208_AfterUpdate:
    Exit Sub

Err_Check208_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check208_AfterUpdate
        
End Sub

Private Sub Check213_AfterUpdate()
On Error GoTo Err_Check213_AfterUpdate

    If Check213 = -1 Then
        Me.followup3date = Now()
    End If
    
Exit_Check213_AfterUpdate:
    Exit Sub

Err_Check213_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Check213_AfterUpdate
        
End Sub

Private Sub cmdRename_Click()
On Error GoTo Err_cmdRename_Click

    Dim Msg, Style, Title, Response, MyString
Msg = "Caution This will copy the contact info to the Estimate Page, This can not be reversed."    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "Are You Sure You Want To Continue!"    ' Define title.
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    Me.JobAddress = Forms!Contacts!Address
    Me.City = Forms!Contacts!ContactCity
    Me.State = Forms!Contacts!StateOrProvince
    Me.Zip = Forms!Contacts!PostalCode
    Me.[Job Name] = Forms!Contacts!CompanyName
    Me.ContactPhone = Forms!Contacts!WorkPhone
    Me.ContactFax = Forms!Contacts!FaxNumber
    Me.ContactMobile = Forms!Contacts!MobilePhone
    Me.Region = Forms!Contacts!Region    ' Perform some action.
Else    ' User chose No.
    DoCmd.CancelEvent ' Perform some action.
End If

Exit_cmdRename_Click:
    Exit Sub

Err_cmdRename_Click:
    MsgBox Err.Description
    Resume Exit_cmdRename_Click
        

End Sub

Private Sub Command180_Click()
    AllowEdits = True
End Sub

Private Sub Command181_Click()
    AllowEdits = False
End Sub

Private Sub ContactEmailAddress_DblClick(Cancel As Integer)
On Error GoTo Err_Contact_Email_Address_DblClick

   Call SendEmail(Me.[Contact Email Address])

Exit_Contact_Email_Address_DblClick:
    Exit Sub

Err_Contact_Email_Address_DblClick:
    MsgBox Err.Description
    Resume Exit_Contact_Email_Address_DblClick
    
End Sub

Private Sub ContractDeliverd_AfterUpdate()
On Error GoTo Err_ContractDeliverd_AfterUpdate

    If ContractDeliverd = -1 Then
        Me.DeliveredDate = Now()
        Me.SubStatus = 7
    End If
    DoCmd.Requery "DeliveredDate"
    DoCmd.Requery "substatus"
    
Exit_ContractDeliverd_AfterUpdate:
    Exit Sub

Err_ContractDeliverd_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ContractDeliverd_AfterUpdate
        
End Sub

Private Sub followup2_AfterUpdate()
On Error GoTo Err_followup2_AfterUpdate


    If followup2 = -1 Then
        Me.Followup2date = Now()
    End If
    DoCmd.Requery "Followup2date"
    
Exit_followup2_AfterUpdate:
    Exit Sub

Err_followup2_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_followup2_AfterUpdate
        
End Sub

Private Sub Followup3_AfterUpdate()
On Error GoTo Err_followup3_AfterUpdate
    If Followup3 = -1 Then
       Me.followup3date = Now()
    End If
    DoCmd.Requery "Followup3Date"
    
Exit_followup3_AfterUpdate:
    Exit Sub

Err_followup3_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_followup3_AfterUpdate
    
End Sub

Private Sub Form_Load()
On Error GoTo Err_Form_Load

    Me.CallTaker.SetFocus
    If (Forms!LoginFrm!Adminbx = -1 Or Forms!LoginFrm!salesManager = -1 Or Forms!LoginFrm![Call Taker] = -1) Then
        Me.EstimateNo.Locked = False
        Me.EstimateDate.Locked = False
        Me.CallTaker.Locked = False
        Me.JobName.Locked = False
        Me.JobAddress.Locked = False
        Me.City.Locked = False
        Me.State.Locked = False
        Me.Zip.Locked = False
        Me.ContactName.Locked = False
        Me.ContactPhone.Locked = False
        Me.ContactFax.Locked = False
        Me.ContactMobile.Locked = False
        Me.ContactPager.Locked = False
        Me.ContactEmailAddress.Locked = False
        Me.ExpectedServiceDate.Locked = False
        Me.ExpectedServiceTime.Locked = False
        Me.CboRegion.Locked = False
        Me.SalesCampaign.Locked = False
        Me.Calltype.Locked = False
        Me.Status.Locked = False
        Me.SubStatus.Locked = False
        Me.SalesCampaign.Locked = False
        Me.followup3date.Locked = False
        Me.Followup2date.Locked = False
        Me.Text207.Locked = False
        Me.DeliveredDate.Locked = False
        Me.ApprovedDate.Locked = False
        Me.assignedtoRep.Locked = False
        Me.Check198.Locked = False
        Me.ApprovedSM.Locked = False
        
    Else
        Me.EstimateNo.Locked = True
        Me.EstimateDate.Locked = True
        Me.CallTaker.Locked = True
        Me.JobName.Locked = True
        Me.JobAddress.Locked = True
        Me.City.Locked = True
        Me.State.Locked = True
        Me.Zip.Locked = True
        Me.ContactName.Locked = True
        Me.ContactPhone.Locked = True
        Me.ContactFax.Locked = True
        Me.ContactMobile.Locked = True
        Me.ContactPager.Locked = True
        Me.ContactEmailAddress.Locked = True
        Me.ExpectedServiceDate.Locked = True
        Me.ExpectedServiceTime.Locked = True
        Me.CboRegion.Locked = True
        Me.SalesCampaign.Locked = True
        Me.Calltype.Locked = True
        Me.Status.Locked = True
        Me.SubStatus.Locked = True
        Me.SalesCampaign.Locked = True
        Me.followup3date.Locked = True
        Me.Followup2date.Locked = True
        Me.Text207.Locked = True
        Me.DeliveredDate.Locked = True
        Me.ApprovedDate.Locked = True
        Me.assignedtoRep.Locked = True
        Me.Check198.Locked = True
        Me.ApprovedSM.Locked = True
        
    End If
Exit_Form_Load:
    Exit Sub

Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load
    
 End Sub
Private Sub Job_Name_AfterUpdate()
On Error GoTo Err_Job_Name_AfterUpdate

    EstimateNo = [Contact ID] & [Job ID]
  
Exit_Job_Name_AfterUpdate:
    Exit Sub

Err_Job_Name_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Job_Name_AfterUpdate
    
End Sub
Private Sub JobID_AfterUpdate()
On Error GoTo Err_JobID_AfterUpdate

    JobTable!JobID = Forms!Contacts!subQuestionFrm!JobID
  
Exit_JobID_AfterUpdate:
    Exit Sub

Err_JobID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_JobID_AfterUpdate
            
End Sub
Private Sub Command117_Click()
On Error GoTo Err_Command117_Click

    Dim stDocName As String

    stDocName = "estimatewkshtrpt"
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
    
Exit_Command117_Click:
    Exit Sub

Err_Command117_Click:
    MsgBox Err.Description
    Resume Exit_Command117_Click
    
End Sub
Private Sub Command121_Click()
On Error GoTo Err_Command121_Click


    DoCmd.GoToRecord , , acFirst

Exit_Command121_Click:
    Exit Sub

Err_Command121_Click:
    MsgBox Err.Description
    Resume Exit_Command121_Click
    
End Sub
Private Sub Command122_Click()
On Error GoTo Err_Command122_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Command122_Click:
    Exit Sub

Err_Command122_Click:
    MsgBox Err.Description
    Resume Exit_Command122_Click
    
End Sub
Private Sub Command123_Click()
On Error GoTo Err_Command123_Click


    DoCmd.GoToRecord , , acLast

Exit_Command123_Click:
    Exit Sub

Err_Command123_Click:
    MsgBox Err.Description
    Resume Exit_Command123_Click
    
End Sub
Private Sub Command124_Click()
On Error GoTo Err_Command124_Click


    DoCmd.GoToRecord , , acNext

Exit_Command124_Click:
    Exit Sub

Err_Command124_Click:
    MsgBox Err.Description
    Resume Exit_Command124_Click
    
End Sub
Private Sub Command141_Click()
On Error GoTo Err_Command141_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "EstimateReportfrm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command141_Click:
    Exit Sub

Err_Command141_Click:
    MsgBox Err.Description
    Resume Exit_Command141_Click
    
End Sub
Private Sub Command142_Click()
On Error GoTo Err_Command142_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "SubJobsIDFrm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command142_Click:
    Exit Sub

Err_Command142_Click:
    MsgBox Err.Description
    Resume Exit_Command142_Click
    
End Sub
Private Sub Command143_Click()
On Error GoTo Err_Command143_Click

    DoCmd.PrintOut

Exit_Command143_Click:
    Exit Sub

Err_Command143_Click:
    MsgBox Err.Description
    Resume Exit_Command143_Click
    
End Sub
Private Sub Command146_Click()
On Error GoTo Err_Command146_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "ProposalFrm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command146_Click:
    Exit Sub

Err_Command146_Click:
    MsgBox Err.Description
    Resume Exit_Command146_Click
    
End Sub
Private Sub Command147_Click()
On Error GoTo Err_Command147_Click

   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command147_Click:
    Exit Sub

Err_Command147_Click:
    MsgBox Err.Description
    Resume Exit_Command147_Click
    
End Sub
Private Sub Command159_Click()
On Error GoTo Err_Command159_Click

    DoCmd.PrintOut

Exit_Command159_Click:
    Exit Sub

Err_Command159_Click:
    MsgBox Err.Description
    Resume Exit_Command159_Click
    
End Sub
Private Sub Command165_Click()
On Error GoTo Err_Command165_Click

    Dim stDocName As String

    stDocName = "EstRpt"
    DoCmd.OpenReport stDocName, acNormal

Exit_Command165_Click:
    Exit Sub

Err_Command165_Click:
    MsgBox Err.Description
    Resume Exit_Command165_Click
    
End Sub

Private Sub Label140_DblClick(Cancel As Integer)
    DoCmd.OpenForm "JobCostManvilleMod"
End Sub

Private Sub Status_AfterUpdate()
On Error GoTo Err_Status_AfterUpdate

    If Status = "2" Then
        Forms!Contacts!SubJobsForm!JobStatus = 22
    End If
    If Status = "2" Then
      Forms!Contacts!SubJobsForm!JobDate = Now()
    End If

Exit_Status_AfterUpdate:
    Exit Sub

Err_Status_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Status_AfterUpdate
    
End Sub

Private Sub Status_Change()
On Error GoTo Err_Status_Change

    If Forms!Contacts!SubJobsForm!Status = "Lost Estimate" Then
        Forms!Contacts!cboCustpros = 188
    End If
    
Exit_Status_Change:
    Exit Sub

Err_Status_Change:
    MsgBox Err.Description
    Resume Exit_Status_Change
    
End Sub

Private Sub Toggle23_GotFocus()

End Sub

Private Sub WorkRequested_Click()

End Sub

[NeoPa]

Nor can I (and that's something to be concerned about). To confirm you actually have the correct module posted can you post the name of the Command Button control which was clicked to highlight those controls that are yellow in the picture, as well as at least one of the names of the controls (probably TextBoxes) that have been so highlighted.

[johnnyc]

Neo,

I don't know much about Access so please bear with me. When I click on the textbox "Type of work Being Requested" under the Properties, then data, it tells me the Control Source is Type of Work Being Requested. Where would/and how would I edit that or find that is it in a module?

Also all the button on the form are labeled Toggle 23 through Toggle30.

[NeoPa]

Never a problem with inexperience, as long as it's explained clearly as you have there Johnny.

Let me see if I can lay out some easy-to-follow instructions for you to provide me with the information that'll help :

1. Open database and the form.
2. Reproduce the picture included in your OP (Opening Post).
3. Make a mental note of the button you clicked to to produce that situation. We'll refer to that for now as [ButtonX].
4. Make a mental note of the first control on the form which is highlighted in yellow (The one with the label reading 'Type of Work Being Requested:'). We'll refer to that for now as [TextBoxY].
5. Switch the form into Design Mode (From the View Menu select Design View).
6. Ensure the Properties pane is visible (Alt-Enter).
7. Click on [ButtonX] to select it and make a note of the value in the property called Name.
8. Click on [TextBoxY] to select it and make a note of the value in the property called Name.
9. Include in your next post the names of the controls [ButtonX] and [TextBoxY].

[johnnyc]

Neo,

You have great patience.. Thank you.

ButtonX is called "Toggle28".
TextBoxY is called "Word Requested"

** Snip **

[NeoPa]

I can confirm that the code posted doesn't contain anything related to this function in that case. That indicates the strong probability that macros have been used instead of code ;-( Not good news at all!

If you go to the previous instructions and get to where you selected [Toggle28] then looked at the properties, I want you to scroll down the properties until you see the one called On Click. Normally, for code, this would say [Event Procedure]. Can you let me know what it says here for [Toggle28].

Next go to the Macros part of the database and tell me all that you see there in the macro of that name. You may need to be very thorough here, as I never work with macros (Very few professional developers ever touch them - and we always wash our hands thoroughly afterwards). Hopefully there will be some information there I can interpret to indicate how to do some code to handle your problem.

PS. I'll just remove the side-notes about toolbars. They're not part of the topic and they're no longer required even to assist you, so I'll snip them.

[johnnyc]

Neo,

There are no event procedures for any of the events on any buttons unfortunately.

Not sure if this is right - if not please let me know where else it is located:

There is a folder called "Modules" that I see from VBA. Under it there are nine macros files:

basaddalltolist
basAutomateOutl ook
basCommonFile
basCRLF
basNotinList
basUtilites
modGlobals
modRibbonCallba cks
Relinker

[NeoPa]

That's a misunderstandin g Johnny (so not right - no).

Please reread the previous post. [Event Procedure] is what you'd expect to see normally. I wouldn't expect to see that in your database as I believe macros have nbeen used instead.

When you have the name of the macro to hand, open the folder called "Macros" (rather than "Modules") and you should find the macro there.

[johnnyc]

Neo,

You are most likely right in regards to the macros, there is no On Click property for Toggle28, no other events either for Toggle 28.

I found the Macros builds but did not see anything in them in regards to the Toggle or any other reference to the fields. I might have to just skip this problem one as it looks like it will need an expert hand to edit this particular issue.

Thank you for your time! Should I delete the post ?

[NeoPa]

JohnnyC:
Thank you for your time! Should I delete the post?

No. If we can't manage to resolve the issue then we leave the thread in place. Someone else may be able to benefit where you weren't able to.

Very confusing though, Johnny. There is an On Click event property when I create a Toggle control on my test form :-S Are you sure you have either the All or the Event tab showing? Did you scroll down the list if it's the All tab showing. It may not have anything in it, but it must exist at least.

If it's empty then I know there must be an Option Group control that it's within. In that case I need to see what's in the After Update event property of that control.

[johnnyc]

Neo,

I know, when I run a test from scratch and build a new button I get the same thing it should have an Onlick. None of the buttons do, which is strange to me. I scrolled down on the "all" tab as well as the "Event" tab. All my other buttons on the application do have an on-click only these in this sub form do not.

No events in "After Update" either. There are two after update events but they belong to the main form not the subform that is displayed at the top, I can paste those if you think it might help.

[NeoPa]

No, but if you can take a small screenshot of the properties page when that control (earlier referred to as [CommandX]) is selected I'd be interested in seeing exactly what it is you're describing.

[johnnyc]

I can only see inserting an image link not an attachment on this reply box. Is there a way to place an attachment here? I have only seen that when I started my post.