combo box problem

[ngeng4]

i have a combo box and also a text box. the text box will only be appear in a form when the combo box been filled up by certain data. ive used this code. but it didnt work. both whether it is completed or not completed, the text box will appear. how can i solve this problem?

Private Sub proj_status_AfterUpdate()



If Me.proj_status = "completed" Then
Me.proj_year.Visible = True
MsgBox "Please enter a completed year"
Me.proj_year.SetFocus
Else
Me.proj_year.Visible = True

End If

End Sub

[khalid]

i have a combo box and also a text box. the text box will only be appear in a form when the combo box been filled up by certain data. ive used this code. but it didnt work. both whether it is completed or not completed, the text box will appear. how can i solve this problem?

Private Sub proj_status_AfterUpdate()

If Me.proj_status = "completed" Then
Me.proj_year.Visible = True
MsgBox "Please enter a completed year"
Me.proj_year.SetFocus
Else
Me.proj_year.Visible = True

End If

End Sub

check your code:
in both condition it is true, so the me.project_year is visible in both case.

change this:
Else
Me.proj_year.Visible = True
to
Me.proj_year.Visible = false

Khalid

[ngeng4]

if it is false then, it will appear for both condition

[ManC]

have you changed the Visible property of textbox to 'No' on form_Load??..That might be one reason...

[ngeng4]

yes..ive change the property

[ManC]

but your code works perfectly fine for me!strange!

[ngeng4]

yeah..i know. it works fine with my another db.. but for this db, it doesnt work..

[ManC]

actually khalid is right...Change Me.proj_year.Visible = false in Else part.Try it...Logically that is what you want. If the combo box text is not "completed", the text box should not be displayed.

[ngeng4]

yerp. ive changed that property. but also didnt work

[maximus]

My advice is to keep the proj_year visible because you are using the same form to display all records. so making it invisible a user will not be able to see the completed year when you load the form to view all records.I have added some codes to the onOpen Event of your form, Next, Previous and New Buttons. Check out and tell me if your problem is solved. I don't know how much you have changed the Database but I assume you have not changed much.

[ngeng4]

the user request for it. they want that thing to be display only if the project completed. then if i xplain more about the thing like u said then they will just say i want that way[only display when the status is completed]

[maximus]

You are right the users the ultimate boss... made some more modifications now in the Open Project Update Button, OnOpen Event, Next,Previous, New button. Hope this solves your problem. Check it out.

[maximus]

is it working

[khalid]

change your code as below:

Private Sub proj_status_AfterUpdate()

If Me.proj_status = "completed" Then
Me.proj_year.Visible = True
MsgBox "Please enter a completed year"
Me.proj_year.SetFocus
Else
Me.proj_year.Visible = False

End If

End Sub

[maximus]

did the modifications work is your problem solved.