Input Form that changes depending on whats selected

[MunroeM]

Hello,

Im quite new to access so i have a question about building a input form.

here is a little info about my data base first. I have test equipment that has calibration dates and we send the items off to be certified when the dates expire. The test equipment is tracked by a unique serial number.

When the test equipment returns from being certified it comes back serviceable or un-serviceable. On my form for returning test equipment I want the Serial number to be entered. then two radio buttons under that will be serviceable or un-serviceable. Now depending on what one they click, i want certain text boxes to appear. Serviceable should have "New Expiration Date" and "Entered By" fields show up as these are the mandatory fields that need to be filled out for a serviceable item. Un-serviceable should have "Entered By" and "Fault" as these are the mandatory field required for Un-serviceable items.

*EDIT* If i get the above to work my "New Expiration Date" and "Entered By" Fields are set as manditory fields. If they check un-serviceable will the "New Expiration Date" still be manditory in the background?

Any help would be great.

If anymore info is required please ask and ill do my best to try and provide more

Thanks

Munroe

[ranman256]

youd need a bit of code to unhide these fields.
all these boxes will exist but visible=false
then depending on what the user clicks, unhide them:

sub chkServiceable_afterupdate

txtEnteredBy = Environ("Username")     'auto enter regardless

if chkServiceable.value then
   txtNewDate.visible = true
   txtFault.visible = false
else
   txtNewDate.visible = false
   txtFault.visible = true
end if
end sub

[CJ_London]

you need a bit of vba code behind the afterupdate event of your radio button group. each radio button defaults to a number (which you can change when creating the control) which for the sake of argument will say are 1 and 2

you can do this in a number of ways

1. heavy on the code

if radiobuttongroup=1 then
    ctrl1.visible=true
    ctrl2.visible=false
else
    ctrl1.visible=false
    ctrl2.visible=true
end if

2. light on the code

    ctrl1.visible=radiobuttongroup=1
    ctrl2.visible=radiobuttongroup<>1

3. the above two methods mean changes to the code if you add another control, this next method requires no changes to the code, just populate the tag property of each control you want to set the visibility - 1 for radio option 1, 2 for radio option 2, leave blank for all other controls

dim ctrl as control
for each ctrl in me.controls
   ctrl.visible=ctrl.tag=radiobuttongroup or ctrl.tag=""
next ctrl

[MunroeM]

If i get the above to work my "New Expiration Date" and "Entered By" Fields are set as manditory fields. If they check un-serviceable will the "New Expiration Date" still be manditory in the background?

[CJ_London]

yes - you will need to remove this condition form the table and implement with code in your form i.e.

in the before update of the form some code like

if radiobutton=1 and isnull([New Expiration Date]) then
    msgbox "You need to complete New Expiration Date"
    cancel =true
end if

[MunroeM]

I have this code added now.

Private Sub SaveExit_Click()
     Me.SentToCal = "No"
     If ServUS = 0 And IsNull([NewDate]) Then
        MsgBox "Please Enter A Valid Expiration Date."
        Cancel = True
    End If
    If ServUS = -1 And IsNull([UpdateBy]) Then
        MsgBox "Please Enter Your Name."
        Cancel = True
    End If
    DoCmd.Close
End Sub

I went with toggle buttons instead of radio buttons. I will get the message box to pop up with the correct warning but when i click ok it closes my form.

*SOLVED*How can i get it to not exit the form if there is an error ? *SOLVED*

I added "exit sub" in my If statements

yes - you will need to remove this condition form the table and implement with code in your form i.e.

in the before update of the form some code like

if radiobutton=1 and isnull([New Expiration Date]) then
    msgbox "You need to complete New Expiration Date"
    cancel =true
end if

[CJ_London]

modify your code to

Private Sub SaveExit_Click()
     Me.SentToCal = "No"
     If ServUS = 0 And IsNull([NewDate]) Then
        MsgBox "Please Enter A Valid Expiration Date."
        Cancel = True
    ElseIf ServUS = -1 And IsNull([UpdateBy]) Then
        MsgBox "Please Enter Your Name."
        Cancel = True
    else
        DoCmd.Close
    End If
    
End Sub