troubleshooting Question

How use code just one time

Avatar of SteveL13
SteveL13Flag for United States of America asked on
Microsoft Access
20 Comments1 Solution118 ViewsLast Modified:
I have the following code in several onclick events on a form.  But it seems redundant to keep repeating the code for each onclick event.  How can I use this code just one time and call it from each onclick event?

    If Nz(Me.txtPreferredName, "") = "" Then
        MsgBox "Enter selection in 1stField!!!"
        Me.txt1stField.SetFocus
        Exit Sub
    Else
        If Nz(Me.cboCampus, "") = "" Then
            MsgBox "Enter selection in 2ndField!!!"
            Me.cbo2ndField.SetFocus
            Exit Sub
        Else
            If Nz(Me.txtLastName, "") = "" Then
                MsgBox "Enter selection in 3rdField!!!"
                Me.txt3rdField.SetFocus
                Exit Sub
            Else
                If Nz(Me.txtFirstName, "") = "" Then
                    MsgBox "Enter selection in 4thField!!!"
                    Me.txt4thField.SetFocus
                    Exit Sub
                Else
                    If Nz(Me.cboClass, "") = "" Then
                        MsgBox "Enter selection in 5thField!!!"
                        Me.cbo5thField.SetFocus
                        Exit Sub
                    Else
                        If Nz(Me.txtPhone1, "") = "" Then
                            MsgBox "Enter selection in 6thField!!!"
                            Me.txt6thField.SetFocus
                            Exit Sub
                        Else
                            If Nz(Me.cboCycle, "") = "" Then
                                MsgBox "Enter selection in 7thField!!!"
                                Me.cbo7thField.SetFocus
                                Exit Sub
                            Else
                                If Nz(Me.txtEmailAddress1, "") = "" Then
                                    MsgBox "Enter selection in 8thField!!!"
                                    Me.txt8thField.SetFocus
                                    Exit Sub
                                Else
                                    If Nz(Me.txtTraining_Start_Date, "") = "" Then
                                        MsgBox "Enter selection in 9thField!!!"
                                        Me.txt9thField.SetFocus
                                        Exit Sub
                                    Else
                                        If Nz(Me.txtTraining_End_Date, "") = "" Then
                                            MsgBox "Enter selection in 10thField!!!"
                                            Me.txt10thField.SetFocus
                                            Exit Sub
                                        Else
                                            If Nz(Me.txtMember_End_Date_Term_Of_Service, "") = "" Then
                                                MsgBox "Enter selection in 11thField!!!"
                                                Me.txt11thField.SetFocus
                                                Exit Sub
                                            Else
                                                If Nz(Me.cboNCCC_status, "") = "" Then
                                                    MsgBox "Enter selection in 12thField!!!"
                                                    Me.cbo12thField.SetFocus
                                                    Exit Sub
                                                Else
                                                    If Nz(Me.cboProgram, "") = "" Then
                                                        MsgBox "Enter selection in 13thField!!!"
                                                        Me.cbo13thField.SetFocus
                                                        Exit Sub
                                                    Else
                                                        If Nz(Me.cboGroup, "") = "" Then
                                                            MsgBox "Enter selection in 14thField!!!"
                                                            Me.cbo14thField.SetFocus
                                                            Exit Sub
                                                        Else
                                                            If Nz(Me.txtNSA_ID, "") = "" Then
                                                                MsgBox "Enter selection in 15Field!!!"
                                                                Me.txt15Field.SetFocus
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
ASKER CERTIFIED SOLUTION
John Tsioumpris
IT Supervisor
Join our community to see this answer!
Unlock 1 Answer and 20 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 20 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros