Solved

After validation, make checkbox field true

Posted on 2008-10-17
3
197 Views
Last Modified: 2013-11-28
This validation code works fine, but I forgot to ask (this comes from a previous question):

I want to validate three textboxes, one combo box and 6 checkbox fields. This code does this fine, but now I need to mark another checkbox field IF all required fields are filled or marked AND AFTER that validation.

I've tried adding this line

Me.CheckBoxField = -1

between the For Next statements and between the IF statements, but when it goes thru the validation, it marks the field, EVEN if the fields are not filled or marked.
Private Sub abtnCommand1_Click()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    If ctl.Tag = "Req" Then
        If ctl.ControlType = acCheckBox Then
            If IsNull(ctl.Value) Or ctl.Value = 0 Then
                MsgBox "Required fields missing. Fill or check missing fields", vbCritical, "Missing fields"
                ctl.SetFocus
                Exit For
            End If
        Else
            If IsNull(ctl) Then
                MsgBox "Required fields missing. Fill or check missing fields", vbCritical, "Missing fields"
                ctl.BackColor = vbYellow
                Exit For
            End If
        End If
    End If
    
Next
 
Exit Sub
 
End Sub

Open in new window

0
Comment
Question by:richieac77
[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
3 Comments
 
LVL 16

Accepted Solution

by:
Chuck Wood earned 65 total points
ID: 22741505
Try this;
Private Sub abtnCommand1_Click()
    Dim ctl As Control, blnGood As Boolean
    blnGood = True
    For Each ctl In Me.Controls
        If ctl.Tag = "Req" Then
            If ctl.ControlType = acCheckBox Then
                If IsNull(ctl.Value) Or ctl.Value = 0 Then
                    MsgBox "Required fields missing. " & _
                       "Fill or check missing fields", vbCritical, "Missing fields"
                    ctl.SetFocus
                    blnGood = False
                    Exit For
                End If
            Else
                If IsNull(ctl) Then
                    MsgBox "Required fields missing. " & _
                        "Fill or check missing fields", vbCritical, "Missing fields"
                    ctl.BackColor = vbYellow
                    blnGood = False
                    Exit For
                End If
            End If
        End If
    Next
    If blnGood Then
        Me.CheckBoxField = True
    Else
        Me.CheckBoxField = False
    End If
End Sub

Open in new window

0
 
LVL 120

Assisted Solution

by:Rey Obrero (Capricorn1)
Rey Obrero (Capricorn1) earned 60 total points
ID: 22741518

Private Sub abtnCommand1_Click()
dim blFilled as boolean 
Dim ctl As Control
blFilled=True 
For Each ctl In Me.Controls
    If ctl.Tag = "Req" Then
        If ctl.ControlType = acCheckBox Then
            If IsNull(ctl.Value) Or ctl.Value = 0 Then
                blFilled=false
                MsgBox "Required fields missing. Fill or check missing fields", vbCritical, "Missing fields"
                ctl.SetFocus
                Exit For
            End If
        Else
            If IsNull(ctl) Then
                blFilled=false
                MsgBox "Required fields missing. Fill or check missing fields", vbCritical, "Missing fields"
                ctl.BackColor = vbYellow
                Exit For
            End If
        End If
    End If
    
Next
 
Exit Sub
Me.CheckBoxField = blFilled
End Sub

Open in new window

0
 

Author Closing Comment

by:richieac77
ID: 31507161
Thanks for the prompt response!!!
0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

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

Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
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…

691 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