[AccessD] Code Issues Again

Joe Hecht jmhla at earthlink.net
Tue Feb 22 20:40:30 CST 2005


 
 
 
 
 
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



More information about the AccessD mailing list