Populate text box with option value

[cbellew]

Hi guys,

I have a problem with an option group and a two corresponding text boxes. When the user chooses an option value i want the text boxes to populate with text dependent on the choice made.

I have written an AfterUpdate procedure on the frame to try and assign the text to the value of the text box, but for some reason it does nothing...

Here is the code:

Private Sub Frame0_AfterUpdate()
If Frame0.Value = 1 Then
Typeofsharpinjury.Value = "Intact skin visibly contaminated with blood or any body substance"
Risklevel.Value = "Non-parenteral exposure"
ElseIf Frame0.Value = 2 Then
Typeofsharpinjury.Value = "Intradermal (superficial) injury with a needle considered NOT to be contaminated with blood or body substance"
Risklevel.Value = "Doubtful exposure (Low-risk)"
ElseIf Frame0.Value = 3 Then
Typeofsharpinjury.Value = "Superficial wound not associated with visible bleeding, caused by an instrument cosidered NOT to be contaminated with blood or a body substance"
Risklevel.Value = "Doubtful exposure (Low-risk)"
ElseIf Frame0.Value = 4 Then
Typeofsharpinjury.Value = "Prior wound or skin lesion contaminated with a body substance other than blood e.g. urine"
Risklevel.Value = "Doubtful exposure (Low risk)"
ElseIf Frame0.Value = 5 Then
Typeofsharpinjury.Value = "Mucous membrane or conjunctival contact with a body fluid other than blood"
Risklevel.Value = "Doubtful exposure (Low-risk)"
ElseIf Frame0.Value = 6 Then
Typeofsharpinjury.Value = "Intradermal (superficial) injury with a needle contaminated with blood or body subtance"
Risklevel.Value = "Possible exposure (Medium-risk)"
ElseIf Frame0.Value = 7 Then
Typeofsharpinjury.Value = "A wound NOT associated with visible bleeding, produced by an instrument contaminated with blood or body substance"
Risklevel.Value = "Possible exposure (Medium-risk)"
ElseIf Frame0.Value = 8 Then
Typeofsharpinjury.Value = "Prior wound or skin lesion contaminated with blood or body substance"
Risklevel.Value = "Possible exposure (Medium-risk)"
ElseIf Frame0.Value = 9 Then
Typeofsharpinjury.Value = "Mucous membrane or conjunctival contact with blood or body substance"
Risklevel.Value = "Possible exposure (Medium-risk)"
ElseIf Frame0.Value = 10 Then
Typeofsharpinjury.Value = "Skin penetrating injury with a needle contaminated with blood or body substance"
Risklevel.Value = "Definite exposure (High-risk)"
ElseIf Frame0.Value = 11 Then
Typeofsharpinjury.Value = "Injection of blood/body substance <1ml"
Risklevel.Value = "Definite exposure (High-risk)"
ElseIf Frame0.Value = 12 Then
Typeofsharpinjury.Value = "Laceration or similar wound which caused bleeding, and is produced by an instrument that is visibly contaminated with blood or body substance"
Risklevel.Value = "Definite exposure (High-risk)"
ElseIf Frame0.Value = 13 Then
Typeofsharpinjury.Value = "In laboratory settings, any direct inoculation with HIV tissue or material likely to contain HIV, HBV or HCV not included above."
Risklevel.Value = "Definite exposure (High-risk)"
ElseIf Frame0.Value = 14 Then
Typeofsharpinjury.Value = "Transfusion of blood"
Risklevel.Value = "Massive exposure (High-risk)"
ElseIf Frame0.Value = 15 Then
Typeofsharpinjury.Value = "Injection of large amount of blood/body substance >1ml"
Risklevel.Value = "Massive exposure (High-risk)"
ElseIf Frame0.Value = 16 Then
Typeofsharpinjury.Value = "Parenteral exposure to laboratory specimens containing high titre of virus"
Risklevel.Value = "Massive exposure (High-risk)"
End If
End Sub

Thanks in advance guys.

Chris

[MMcCarthy]

Try this ...

Private Sub Frame0_AfterUpdate()
 
   SELECT CASE Frame0
 
   Case 1
      Me.Typeofsharpinjury.Value = "Intact skin visibly contaminated with blood or any body substance"
      Me.Risklevel.Value = "Non-parenteral exposure"
   Case 2
      Me.Typeofsharpinjury.Value = "Intradermal (superficial) injury with a needle considered NOT to be contaminated with blood or body substance"
      Me.Risklevel.Value = "Doubtful exposure (Low-risk)"
   Case 3
      Me.Typeofsharpinjury.Value = "Superficial wound not associated with visible bleeding, caused by an instrument cosidered NOT to be contaminated with blood or a body substance"
      Me.Risklevel.Value = "Doubtful exposure (Low-risk)"
   Case 4
      Me.Typeofsharpinjury.Value = "Prior wound or skin lesion contaminated with a body substance other than blood e.g. urine"
      Me.Risklevel.Value = "Doubtful exposure (Low risk)"
   Case  5
      Me.Typeofsharpinjury.Value = "Mucous membrane or conjunctival contact with a body fluid other than blood"
      Me.Risklevel.Value = "Doubtful exposure (Low-risk)"
   Case  6
      Me.Typeofsharpinjury.Value = "Intradermal (superficial) injury with a needle contaminated with blood or body subtance"
      Me.Risklevel.Value = "Possible exposure (Medium-risk)"
   Case  = 7
      Me.Typeofsharpinjury.Value = "A wound NOT associated with visible bleeding, produced by an instrument contaminated with blood or body substance"
      Me.Risklevel.Value = "Possible exposure (Medium-risk)"
   Case  = 8
      Me.Typeofsharpinjury.Value = "Prior wound or skin lesion contaminated with blood or body substance"
      Me.Risklevel.Value = "Possible exposure (Medium-risk)"
   Case  = 9
      Me.Typeofsharpinjury.Value = "Mucous membrane or conjunctival contact with blood or body substance"
      Me.Risklevel.Value = "Possible exposure (Medium-risk)"
   Case  = 10
      Me.Typeofsharpinjury.Value = "Skin penetrating injury with a needle contaminated with blood or body substance"
      Me.Risklevel.Value = "Definite exposure (High-risk)"
   Case  = 11
      Me.Typeofsharpinjury.Value = "Injection of blood/body substance <1ml"
      Me.Risklevel.Value = "Definite exposure (High-risk)"
   Case  = 12
      Me.Typeofsharpinjury.Value = "Laceration or similar wound which caused bleeding, and is produced by an instrument that is visibly contaminated with blood or body substance"
      Me.Risklevel.Value = "Definite exposure (High-risk)"
   Case  = 13
      Me.Typeofsharpinjury.Value = "In laboratory settings, any direct inoculation with HIV tissue or material likely to contain HIV, HBV or HCV not included above."
      Me.Risklevel.Value = "Definite exposure (High-risk)"
   Case  = 14
      Me.Typeofsharpinjury.Value = "Transfusion of blood"
      Me.Risklevel.Value = "Massive exposure (High-risk)"
   Case  = 15
      Me.Typeofsharpinjury.Value = "Injection of large amount of blood/body substance >1ml"
      Me.Risklevel.Value = "Massive exposure (High-risk)"
   Case  = 16
      Me.Typeofsharpinjury.Value = "Parenteral exposure to laboratory specimens containing high titre of virus"
      Me.Risklevel.Value = "Massive exposure (High-risk)"
   END SELECT
 
End Sub
 

Also double check the names of the textboxes. You can do this in properties under the other tab. Make sure that the textbox names are what you think they are.

Mary