UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome Guest ( Log In | Register )

> If statement for dependency between two option groups    
 
   
knagen
post Aug 22 2006, 03:50 AM
Post #1

UtterAccess Addict
Posts: 176
From: USA
Hi UA

I have a problem making the code for an "If" statement and was hoping that you could help me.

I have a table with the following relevant fields:

tblPunchList
PunchListID pk autonumber
dtCloseContractor date/time
dtCloseClient date/time
StatusContractor yes/no
StatusClient yes/no

On my main form I have two separate option groups; "fogStatusContractor" and "fogStatusClient" referring to the above fields. Both option groups are either "Open" or "Closed" (Closed=Yes, Open=no). I like to prevent users from Closing the "fogStatusClient" option group before the "fogStatusContractor" is "closed", i.e. if "fogStatusContractor" is Open (StatusContractor field in table equal "No"), then "fogStatusClient" must be "Open" (StatusClient field in table equal "No").

I write the date into my table, when items are closed.

CODE
Private Sub fogStatusClient_AfterUpdate()
    Me.txtdtPLCloseClient = Date
End Sub

Private Sub fogStatusClient_BeforeUpdate(Cancel As Integer)
    If (Me.StatusContractor = False) Then
            'MsgBox "Settting Date for Contractor Closed: " & Now()
            Me.StatusClient = False
            MsgBox "You can not close the item before the item has been closed by the Contractor"
    Else
            MsgBox "Settting Date for Client Close: " & Date
            Me.txtdtPLCloseClient = Date
            Me.cbofkCloseClientID = lngMyEmpID
            Me.StatusClient = True
    End If
End Sub


Ultimately, I do not want to have the message boxes to appear, but these are just used for information during development. Currently, the above code does not prevent a change in "StatusClient" even though "If" statement is not valid. Can some one help?

Lastly, what is a good syntax for an option group control? I have currently used fog for Frame Option Group.
Go to the top of the page
 
+

Posts in this topic
- knagen   If statement for dependency between two option groups   Aug 22 2006, 03:50 AM
- - HiTechCoach   Re: If statement for dependency between two option groups   Aug 22 2006, 07:36 PM
- - knagen   Re: If statement for dependency between two option groups   Aug 22 2006, 09:02 PM
- - knagen   Re: If statement for dependency between two option groups   Sep 22 2006, 03:17 AM

« Next Oldest · Access Forms · Next Newest »
 

Thank you for your support! Reply to this topicStart new topic

Jump To Forum:
 

Display Mode: Switch to: Standard · Switch to: Linear+ · Outline

Track this topic · Email this topic · Print this topic · Subscribe to this forum

RSS Go to Top  ·  Lo-Fi Version Time is now: 19th May 2013 - 12:06 AM