if combo value changed make checkbox true

[sspreyer]

hi all

I have combo box call "supervisor" and check box call "supervisorchange"
basically want to make supervisor change to true if combo box is change which I have made code you can see below it work's

 Private Sub Supervisor_Change()
If Me.Supervisor = "" Then
Me.SupervisorChange = False
 
Else
Me.SupervisorChange = True
End If
End Sub

right now my problem, prob easy fix for you access experts

If the supervisor combo box is empty and user inputs a supervisor I would like the supervisor change check box not to change to true

only if the user changes it after the first input I would like the supervisor change check box to become true

hope you all understand

thanks in advance

shane

 

[gemma-the-husky]

put this in the beforeupdate event of the supervisor combo box

 supervisorchange =  nz(supervisor.oldvalue,"")<>"" and nz(supervisor,"")<>nz(supervisor.oldvalue,"")

if supervisor is numeric, change the defaults to 0, rather than ""

 

[sspreyer]

thanks Dave

Work a treat Legend!!

cheers

shane