[AccessD] Code Issues Again

On selection turn the other box off, then it can't happen.
Unless you want a third box maybe?.

Joe Hecht wrote:

> 
> 
> 
> 
> 
>The Scenario:
> 
>The client wants yes and no check boxes on a report. 
> 
>On the form I have yes no check boxes on the form.
> 
>Selecting both yes and no on the same group is  a logic error.
> 
>The problems:
> 
>1.	The code only fires one time per form.
>2.	After it triggers and you click ok it goes to the next product. On
>clicking the ok button I need to stay on the same record.
>a.	Am I using the wrong event?
>b.	I tried using the me.currentrecord but could not find a way to write
>the code.
> 
>3.	I have two fields for each item. If  there is one yes/no field on
>the form is there code  to mark yes and no boxes on the report.
> 
>The code follows.
> 
>Thanks 
> 
>Joe
> 
> 
>I
> 
> 
> 
> 
> 
> 
> 
> 
>Private Sub Form_BeforeUpdate(pintCancel As Integer)
>    
>    Dim lngRetval As Long
>    
>    If txtProdMatCert = True And txtProdMatCertn = True Then
>        
>        
>        lngRetval = MsgBox( _
>            "You have selected both YES and No for Material
>Certificationthis item." & vbCrLf & "Please select Yes or No.", _
>            vbOKOnly + vbCritical + vbDefaultButton1, _
>            "Coflicting Yes No Message")
>        
>        Select Case lngRetval
>            Case vbOK
>        End Select
>        
>    End If
>    
>            If ProdSpecialCertification = True And ProdSpecialCertification
>= True Then
>                  lngRetval = MsgBox( _
>                  "You have selected both YES and No for Special Process
>Certification." & vbCrLf & "Please select Yes or No.", _
>                  vbOKOnly + vbCritical + vbDefaultButton1, _
>                 "Coflicting Yes No Message")
>        
>                     Select Case lngRetval
>                     Case vbOK
>                     End Select
>            End If
>            
>    
>    'TVCodeTools ErrorHandlerStart
>PROC_EXIT:
>    Exit Sub
>    
>PROC_ERR:
>    MsgBox Err.Description
>    Resume PROC_EXIT
>    'TVCodeTools ErrorHandlerEnd
>    
>End Sub
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada