show text box if tick box is selected

[zac123]

hi all,

i'm ok with finding my way around access but when it come to writing the bits of code i have no idea...



i basically need a text box which is for date/time to disapear/appear when i tick or untick a little tick box.

can somone help with that please.

my tick box is called AlarmResponse and my text box is called CallReceived many thanks
zac

[ketbdnetbp]

You could put the following VBA code in the AfterUpdate event of the checkbox AND in the OnCurrent Event of the form...

If Me![Checkbox]= -1 then
Me![textboxName].Visible = True
else
Me![textboxName].Visible = False
end if

Hope this helps,

Jim

[orange]

There are samples and instructions on vba here
http://www.functionx.com/vbaccess2003/index.htm and
http://www.accessmvp.com/strive4peace/VBA/Index.htm

[zac123]

great thanks guys. getting closer...

does this look right?

Private Sub After_Update()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub


Private Sub Form_Current()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub

what seems to happen is the text field is permemantly hidden now.
zac

[ketbdnetbp]

Is this code...

Private Sub After_Update()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub

in the after update event of the control named "AlarmResponse"?

Jim

[zac123]

yes exactly correct

[zac123]

i just updated my code to read this but still no joy:

Private Sub AlarmResponse_AfterUpdate()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub



Private Sub Form_Current()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub

[ketbdnetbp]

Unless something changed in AC2007 from AC2003 that I am unaware of...

I thought this...

Private Sub After_Update()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub

should be...

Private Sub AlarmResponse_AfterUpdate()
If Me![AlarmResponse] = -1 Then
Me![CallReceived].Visible = True
Else
Me![CallReceived].Visible = False
End If
End Sub

If the code was in the afterUpdate event of the control. That's why I asked? Also, double check the name of the control.

Jim

[zac123]

oh dear this is proving to be very difficult. i tried all those things but still no good. its very strange. Does the defualt value of the tick box matter? currently set to 'No' i tried 0 and 1 to see if it makes any difference.....

[ketbdnetbp]

If possible, try deleting the default value of the checkBox altogether. Then, test.

[zac123]

nope, no difference.

this is a date/time field does that make any difference?

[ketbdnetbp]

I'm a little confused????

I thought we were talking about a checkbox?

What control is a Date/Time field?

If possible, can you post a copy of the db, less any sensitive data, after completing a compact/repair.

Thanks,

Jim

[zac123]

sorry, dont mean to confuse.

the text box that we're trying to hide is a date/time field. we're trying to hide it by using the tick box

i'll upload a copy of the db when i get home.

thnkas
zac

[zac123]

hang on a minute... i think i got it!

Option Compare Database
Option Explicit

Private Sub chk_AlarmResponse_AfterUpdate()
If Me![chk_AlarmResponse] = -1 Then
Me![txt_CallReceived].Visible = True
Me![lbl_CallReceived].Visible = True
Else
Me![txt_CallReceived].Visible = False
Me![lbl_CallReceived].Visible = False
End If
End Sub

Private Sub Form_Current()
If Me![chk_AlarmResponse] = -1 Then
Me![txt_CallReceived].Visible = True
Me![lbl_CallReceived].Visible = True
Else
Me![txt_CallReceived].Visible = False
Me![lbl_CallReceived].Visible = False
End If
End Sub

seems to be working spot on.

thanks very much

[ketbdnetbp]

Glad you got it working!!!

All the best,

Jim