Message 1 of 3
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have written some code to look at different cases (still in progress), so it is meant to flag certain issues with dimensions that are outside of certain ranges. That said, when I comment out the code as seen below, and only run the four or five lines, it seems to work fine, but when I introduce the Select Case Process, it doesn't throw an error, it just seems to no run, or run, but not do anything. I know enough about VB and iLogic to be dangerous, as you can see here.
Dim WidWarn As String Dim WidCalc As Double 'Select Case "ProuductShape" ' Case "Disc" WidCalc = PouchWid - MinPouchWid If WidCalc > (SealWid / 2) Then MessageBox.Show("Pouch Width Too Small", "Width Warning") Else MessageBox.Show("Pouch Width Acceptable", "Width Warning") End If 'Case "Cylinder" ' WidCalc = PouchWid - CylMinPouchWid ' ' If WidCalc > SealWid / 2 Then ' MessageBox.Show("Pouch Width Too Small", "Width Warning") ' Else ' MessageBox.Show("Pouch Width Acceptable", "Width Warning") 'End If 'Case "Plate" ' MessageBox.Show("Pouch not Designed", "Width Warning") 'Case "Half Sphere" ' If HalfShellTop > 20 deg Then ' MessageBox.Show("Pouch Length is likely too Short", "Pouch Shape Warning") ' End If ' If HalfShellSide > 20 deg Then ' MessageBox.Show("Pouch Width is likely too Narrow", "Pouch Shape Warning") ' End If 'End Select
Solved! Go to Solution.