- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I am trying to create a Case with four (4) options. Each option creates a different Description in iProperties. What am I doing wrong? This format is identical to what is shown all over the place online but nothing happens. I wanted to avoid having If/Then repeating but it feels like that can't be avoided even with Case. Please help out.
Select Length
Case "1" 'A-small_C-small
If (Me.Parameter(Me, "DIA1") < .250) & (Me.Parameter(Me, "DIA2") < .250) Then
iProperties.Value("Project", "Description") = "STUD, SHOULDERED, MALE, #" & ThreadTextA & " X " & ThreadLenA & """ L TO #" & ThreadTextC & " X " & ThreadLenC & """ L"
End If
Case "2" 'A-small_C-big
If (Me.Parameter(Me, "DIA1") < .250) & (Me.Parameter(Me, "DIA2") >= .250) Then
iProperties.Value("Project", "Description") = "STUD, SHOULDERED, MALE, #" & ThreadTextA & " X " & ThreadLenA & """ L TO " & ThreadTextC & " X " & ThreadLenC & """ L"
End If
Case "3" 'A-big_C-small"
If (Me.Parameter(Me, "DIA1") >= .250) & (Me.Parameter(Me, "DIA2") < .250) Then
iProperties.Value("Project", "Description") = "STUD, SHOULDERED, MALE, " & ThreadTextA & " X " & ThreadLenA & """ L TO #" & ThreadTextC & " X " & ThreadLenC & """ L"
End If
Case "4" 'A-big_C-big
If (Me.Parameter(Me, "DIA1") >= .250) & (Me.Parameter(Me, "DIA2") >= .250) Then
iProperties.Value("Project", "Description") = "STUD, SHOULDERED, MALE, " & ThreadTextA & " X " & ThreadLenA & """ L TO " & ThreadTextC & " X " & ThreadLenC & """ L"
End If
End Select
Select Case True
Case Length = 1
MessageBox.Show("1: Small,Small")
Case Length = 2
MessageBox.Show("2: Small,Big")
Case Length = 3
MessageBox.Show("3: Big,Small")
Case Length = 4
MessageBox.Show("4: Big,Big")
End Select
Please be kind, rewind your exploding. Do not explode hatching, dimensions or text. Think of your fellow drafters! 
https://www.youracclaim.com/badges/9aa4a1d5-0d02-4888-be6f-ed8f0653d8ad/public_url
https://www.youracclaim.com/badges/9aa4a1d5-0d02-4888-be6f-ed8f0653d8ad/public_url
Solved! Go to Solution.
