goof up in a yes/no update field code

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm trying to make a form with several yes/no update fields and have it
display new fields when one of them are marked yes. However, when I try to
run the code, it tells me that the module is not found. I just developed the
form and put in the code on the after update event on the properties sheet
for the various controls and put the same code in the form's current
property. Is there a step I'm missing? The code is as follows:

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible
[IET_STATUS].Visible
[RSP_SITE].Visible
[REMARKS].Visible
[SHIP_DATE].Visible
[Label29].Visible
[Label30].Visible
[Label31].Visible
[Label32].Visible
[Label33].Visible
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
[RSP_SITE].Visible = False
[REMARKS].Visible = False
[SHIP_DATE].Visible = False
[Label29].Visible = False
[Label30].Visible = False
[Label31].Visible = False
[Label32].Visible = False
[Label33].Visible = False
End If

End Sub

Give me an idea of what I'm doing wrong, if you can. any help would be
appreciated. I'm sorry, I'm just beginning with VB Code.
 
I think you need to set the visible property to true, just like you set it
false in the else...

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible = True
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
 
In addition to the other responses you have received, you can simplify your
code a bit and only reference each control once. Makes maintenance easier.:

Dim bolVisible as Boolean

If [RSP] = True Then
bolVisible = True
Else
bolVisible = False
End If

[TRAINING].Visible = bolVisible
[IET_STATUS].Visible = bolVisible
etc...
 
If Me.RSP = "True"

CW

Marshall Barton said:
Corey said:
I'm trying to make a form with several yes/no update fields and have it
display new fields when one of them are marked yes. However, when I try to
run the code, it tells me that the module is not found. I just developed the
form and put in the code on the after update event on the properties sheet
for the various controls and put the same code in the form's current
property. Is there a step I'm missing? The code is as follows:

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible
[IET_STATUS].Visible
[RSP_SITE].Visible
[REMARKS].Visible
[SHIP_DATE].Visible
[Label29].Visible
[Label30].Visible
[Label31].Visible
[Label32].Visible
[Label33].Visible
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
[RSP_SITE].Visible = False
[REMARKS].Visible = False
[SHIP_DATE].Visible = False
[Label29].Visible = False
[Label30].Visible = False
[Label31].Visible = False
[Label32].Visible = False
[Label33].Visible = False
End If

End Sub

Give me an idea of what I'm doing wrong, if you can. any help would be
appreciated. I'm sorry, I'm just beginning with VB Code.
Click to expand...


I don't know if it's just the words you are using or
something else, but you can not put code in an event
property.

Event properties can have one of three possible values:
[Event Procedure]
macroname
functionname()
Normally, you would use [Event Procedure] in an event
property. Then you would click on the builder button on the
right side of the property's entry. This will open the VBA
window and place the cursor in the event's procedure between
the Sub and End Sub lines.
Click to expand...
 
Corey said:
I'm trying to make a form with several yes/no update fields and have it
display new fields when one of them are marked yes. However, when I try to
run the code, it tells me that the module is not found. I just developed the
form and put in the code on the after update event on the properties sheet
for the various controls and put the same code in the form's current
property. Is there a step I'm missing? The code is as follows:

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible
[IET_STATUS].Visible
[RSP_SITE].Visible
[REMARKS].Visible
[SHIP_DATE].Visible
[Label29].Visible
[Label30].Visible
[Label31].Visible
[Label32].Visible
[Label33].Visible
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
[RSP_SITE].Visible = False
[REMARKS].Visible = False
[SHIP_DATE].Visible = False
[Label29].Visible = False
[Label30].Visible = False
[Label31].Visible = False
[Label32].Visible = False
[Label33].Visible = False
End If

End Sub

Give me an idea of what I'm doing wrong, if you can. any help would be
appreciated. I'm sorry, I'm just beginning with VB Code.
Click to expand...


I don't know if it's just the words you are using or
something else, but you can not put code in an event
property.

Event properties can have one of three possible values:
[Event Procedure]
macroname
functionname()
Normally, you would use [Event Procedure] in an event
property. Then you would click on the builder button on the
right side of the property's entry. This will open the VBA
window and place the cursor in the event's procedure between
the Sub and End Sub lines.
 
Arggg. I'd have taken it back but I couldn't. Sometimes, in the midst of a
submission stuff just happens....

CW

Marshall Barton said:
???


Cheese_whiz said:
If Me.RSP = "True"

CW

Marshall Barton said:
Corey Hite wrote:

I'm trying to make a form with several yes/no update fields and have it
display new fields when one of them are marked yes. However, when I try to
run the code, it tells me that the module is not found. I just developed the
form and put in the code on the after update event on the properties sheet
for the various controls and put the same code in the form's current
property. Is there a step I'm missing? The code is as follows:

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible
[IET_STATUS].Visible
[RSP_SITE].Visible
[REMARKS].Visible
[SHIP_DATE].Visible
[Label29].Visible
[Label30].Visible
[Label31].Visible
[Label32].Visible
[Label33].Visible
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
[RSP_SITE].Visible = False
[REMARKS].Visible = False
[SHIP_DATE].Visible = False
[Label29].Visible = False
[Label30].Visible = False
[Label31].Visible = False
[Label32].Visible = False
[Label33].Visible = False
End If

End Sub

Give me an idea of what I'm doing wrong, if you can. any help would be
appreciated. I'm sorry, I'm just beginning with VB Code.


I don't know if it's just the words you are using or
something else, but you can not put code in an event
property.

Event properties can have one of three possible values:
[Event Procedure]
macroname
functionname()
Normally, you would use [Event Procedure] in an event
property. Then you would click on the builder button on the
right side of the property's entry. This will open the VBA
window and place the cursor in the event's procedure between
the Sub and End Sub lines.
Click to expand...
Click to expand...
Click to expand...
 
???


Cheese_whiz said:
If Me.RSP = "True"

CW

Marshall Barton said:
Corey said:
I'm trying to make a form with several yes/no update fields and have it
display new fields when one of them are marked yes. However, when I try to
run the code, it tells me that the module is not found. I just developed the
form and put in the code on the after update event on the properties sheet
for the various controls and put the same code in the form's current
property. Is there a step I'm missing? The code is as follows:

Private Sub RSP_AfterUpdate()
If [RSP] = True Then
[TRAINING].Visible
[IET_STATUS].Visible
[RSP_SITE].Visible
[REMARKS].Visible
[SHIP_DATE].Visible
[Label29].Visible
[Label30].Visible
[Label31].Visible
[Label32].Visible
[Label33].Visible
Else
[TRAINING].Visible = False
[IET_STATUS].Visible = False
[RSP_SITE].Visible = False
[REMARKS].Visible = False
[SHIP_DATE].Visible = False
[Label29].Visible = False
[Label30].Visible = False
[Label31].Visible = False
[Label32].Visible = False
[Label33].Visible = False
End If

End Sub

Give me an idea of what I'm doing wrong, if you can. any help would be
appreciated. I'm sorry, I'm just beginning with VB Code.
Click to expand...


I don't know if it's just the words you are using or
something else, but you can not put code in an event
property.

Event properties can have one of three possible values:
[Event Procedure]
macroname
functionname()
Normally, you would use [Event Procedure] in an event
property. Then you would click on the builder button on the
right side of the property's entry. This will open the VBA
window and place the cursor in the event's procedure between
the Sub and End Sub lines.
Click to expand...
Click to expand...
 
Cheese_whiz said:
Arggg. I'd have taken it back but I couldn't. Sometimes, in the midst of a
submission stuff just happens....

CW
Click to expand...


Been there, done that ... many times;-)
 
Back
Top