How to modify the if statement in VB 6.

[bluethunder]

Hi, im newbie here.

I want to know how i gonna solve my problem in my system. My system is Profession Assessment System which will gonna solve the inputted answer of the examinee that will lead to the type of intelligence, explaination, capabilities and profession that he/she possesses.

These are the coding of my program;

Label12.Caption = Adodc1.Recordse t.Fields("lin_v er")
Label13.Caption = Adodc1.Recordse t.Fields("log_m ath")
Label14.Caption = Adodc1.Recordse t.Fields("spa_v is")
Label15.Caption = Adodc1.Recordse t.Fields("bod_k in")
Label16.Caption = Adodc1.Recordse t.Fields("music ")
Label17.Caption = Adodc1.Recordse t.Fields("inter ")
Label18.Caption = Adodc1.Recordse t.Fields("intra ")


'verbally/linguistic intelligence
If Val(Label12.Cap tion) > Val(Label13.Cap tion) Or Val(Label12.Cap tion) > Val(Label14.Cap tion) Or _
Val(Label12.Cap tion) > Val(Label15.Cap tion) Or Val(Label12.Cap tion) > Val(Label16.Cap tion) Or _
Val(Label12.Cap tion) > Val(Label17.Cap tion) Or Val(Label12.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label12.Cap tion)
Label4.Caption = "Verbal/Linguistic Intelligence(Wo rd Smart)"
Label6.Caption = "Verval/Linguistic Intelligence relates to word and language, " & "" & _
"" & "we use this intelligence in listening, speaking, reading & writing. " & "" & _
"" & "(a)Thinks in words " & "" & _
"" & "(b)Highly developed auditory skills " & "" & _
"" & "(c)Play with sounds in laguage " & "" & _
"" & "(d)Great story tellers, tall tales, & jokes " & "" & _
"" & "(e)Love seeing,saying & hearing words " & "" & _
"" & "(f)Head are frequently stuck in a book " & "" & _
"" & "(g)Likes to write"
Label8.Caption = "Understand ing order & meaning of words, " & "" & _
"" & "Convincing someone of a course of action, " & "" & _
"" & "Explaining,tea ching, & learning, " & "" & _
"" & "Memory and recall, " & "" & _
"" & "Meta-linguistic analysis. "
Label10.Caption = "You can be a Teacher, Journalist, Writer, Lawyer, " & "" & _
"" & "and Translator"
'logical/mathematical intelligence
If Val(Label13.Cap tion) > Val(Label12.Cap tion) Or Val(Label13.Cap tion) > Val(Label14.Cap tion) Or _
Val(Label13.Cap tion) > Val(Label15.Cap tion) Or Val(Label13.Cap tion) > Val(Label16.Cap tion) Or _
Val(Label13.Cap tion) > Val(Label17.Cap tion) Or Val(Label13.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label13.Cap tion)
Label4.Caption = "Logical/Mathematical Intelligence(Nu mber Smart)"
Label6.Caption = "Logical/Mathematical Intelligence deals w/ inductive reasoning, " & "" & _
"" & "numbers and relationships. It INVOLVES ABILITY TO RECOGNIZE PATTERNS,to work w/ " & "" & _
"" & "geometric shapes and to make connection between pieces of information. " & "" & _
"" & "(a)Thinks conceptually. " & "" & _
"" & "(b)Skilled in reasoning, logic, and problem solving " & "" & _
"" & "(c)Explore s patterns, categories and relatioships " & "" & _
"" & "(d)Manipul ates the environment to experiment in a controlled way " & "" & _
"" & "(e)Control s and wonders about the natural events"
Label8.Caption = "Abstract pattern recognition, " & "" & _
"" & "Inductive reasoning, " & "" & _
"" & "Deductive reasoning, " & "" & _
"" & "Discerning relationships and connections, " & "" & _
"" & "Performing complex calculation, " & "" & _
"" & "Scientific reasoning. "
Label10.Caption = "You can be a Scientist. Engineer, Computer Programmer, " & "" & _
"" & "and Accountant."
'spatial/visual intelligence
If Val(Label14.Cap tion) > Val(Label12.Cap tion) Or Val(Label14.Cap tion) > Val(Label13.Cap tion) Or _
Val(Label14.Cap tion) > Val(Label15.Cap tion) Or Val(Label14.Cap tion) > Val(Label16.Cap tion) Or _
Val(Label14.Cap tion) > Val(Label17.Cap tion) Or Val(Label14.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label14.Cap tion)
Label4.Caption = "Spatial/Visual Intelligence(Pi cture Smart)"
Label6.Caption = "Spatial/Visual Intelligence includes being able to visualize an object " & "" & _
"" & "and to create images. It deals w/ visual arts, navigation, architecture and certain games " & "" & _
"" & "such as chess. " & "" & _
"" & "(a)Thinks in images and pictures " & "" & _
"" & "(b)Clear visual images and representations " & "" & _
"" & "(c)Knows the location of everything " & "" & _
"" & "(d)Fascina tion w/ machines and contraptions" & "" & _
Label8.Caption = "Active imagination, " & _
"" & "Forming mental images, " & "" & _
"" & "Finding your way in space, " & "" & _
"" & "Image manipulations, " & "" & _
"" & "Graphic representation, " & "" & _
"" & "Recognizin g relationships of objects in space, " & "" & _
"" & "Accurate perception from different angles. "
Label10.Caption = "You can be a Inventor, Architect, Engineer and Mechanic"
'bodily/kinesthetic intelligence
If Val(Label15.Cap tion) > Val(Label12.Cap tion) Or Val(Label15.Cap tion) > Val(Label13.Cap tion) Or _
Val(Label15.Cap tion) > Val(Label14.Cap tion) Or Val(Label15.Cap tion) > Val(Label16.Cap tion) Or _
Val(Label15.Cap tion) > Val(Label17.Cap tion) Or Val(Label15.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label15.Cap tion)
Label4.Caption = "Bodily/Kinesthetic Intelligence(Bo dy Smart)"
Label6.Caption = "Bodily/Kinesthetic Intelligence is related to physical of the body " & "" & _
"" & "and how it functions. It includes the ability to use the body to express emotions, " & "" & _
"" & "to play a game, and to interpret and to invoke effective body language. " & "" & _
"" & "(a)Process es knowledge through bodily sensation " & "" & _
"" & "(b)Excelle nt fine-motor coordination " & "" & _
"" & "(c)Gut feelings about things " & "" & _
"" & "(d)Great in mimicking your best or worst qualities and mannerisms " & "" & _
"" & "(e)Needs to move around, often labeled hyperactive"
Label8.Caption = "Controls of Voluntary Movements, " & "" & _
"" & "Control of Programmed Movements, " & "" & _
"" & "Expanding awareness through the body connection, " & "" & _
"" & "Mimetic Abilities, " & "" & _
"" & "Improved body functioning. "
Label10.Caption = "You can be a Athlete, Dancer, Actor, Mime and Clown"
'musical/rhythmic intelligence
If Val(Label16.Cap tion) > Val(Label12.Cap tion) Or Val(Label16.Cap tion) > Val(Label13.Cap tion) Or _
Val(Label16.Cap tion) > Val(Label14.Cap tion) Or Val(Label16.Cap tion) > Val(Label15.Cap tion) Or _
Val(Label16.Cap tion) > Val(Label17.Cap tion) Or Val(Label16.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label16.Cap tion)
Label4.Caption = "Music/Rhythmic Intelligence(Mu sic Smart)"
Label6.Caption = "Music/Rhythmic Intelligence includes the ability to recognize tonal patterns, " & "" & _
"" & "rhythms and beat. It includes sensitivity to environmental sounds, the human voice and " & "" & _
"" & "musical instrument. " & "" & _
"" & "(a)Thinks in sounds, rhythms and patterns " & "" & _
"" & "(b)Sings, hums, whistles to themselves " & "" & _
"" & "(c)Immedia tely responds to music " & "" & _
"" & "(d)Perform s and appreciate music and leads in songs " & "" & _
"" & "(e)Sensiti ve to environmental sounds: crickets, bell, ambient music " & "" & _
"" & "(f)Strong opinions of other's music"
Label8.Caption = "Appreciati on for the Structure of Music, " & "" & _
"" & "Schemes of Fames in the mind for hearing, " & "" & _
"" & "Sensitivit y of sounds, " & "" & _
"" & "Recognitio n, Creation, and REproduction of Melody/Rhythm, " & "" & _
"" & "Sensing characteristic qualities of a tonic. "
Label10.Caption = "You can be a Choir, Orchestra, Band, Disc Jockey and Theatre"
'interpersonal intelligence
If Val(Label17.Cap tion) > Val(Label12.Cap tion) Or Val(Label17.Cap tion) > Val(Label13.Cap tion) Or _
Val(Label17.Cap tion) > Val(Label14.Cap tion) Or Val(Label17.Cap tion) > Val(Label15.Cap tion) Or _
Val(Label17.Cap tion) > Val(Label16.Cap tion) Or Val(Label17.Cap tion) > Val(Label18.Cap tion) Then
Label1.Caption = Val(Label17.Cap tion)
Label4.Caption = "Interperso nal Intelligence(Pe ople Smart)"
Label6.Caption = "Interperso nal Intelligence is used in person to person relationship. It includes " & "" & _
"" & "the ability to communicate with others and to have empathy for their feelings and beliefs. " & "" & _
"" & "(a)Thinks and processes by relating, cooperating, and communicating with others. " & "" & _
"" & "(b)Leaders among peers " & "" & _
"" & "(c)Uncanny ability to sense feelings and intentions of others " & "" & _
"" & "(d)Underst ands people, mediates conflict " & "" & _
"" & "(e)Organiz er, Communicator at times manipulative " & "" & _
"" & "(f)Street smart, has many friends"
Label8.Caption = "Effective verbal/non-verbal communication, " & "" & _
"" & "Noticing and making distinctions among other individuals, " & "" & _
"" & "Sensitivit y to other's moods, temperaments, motivation and feelings, " & "" & _
"" & "Working cooperative in a group, " & "" & _
"" & "Ability to discern other's underlying intentions and behavior, " & "" & _
"" & "Passing Over into the perspective of another, " & "" & _
"" & "Creating and maintaining synergy. "
Label10.Caption = "You can be a Counselor, Business people, Politician, Community Organizer"
'intrapersonal intelligence
If Val(Label18.Cap tion) > Val(Label12.Cap tion) Or Val(Label18.Cap tion) > Val(Label13.Cap tion) Or _
Val(Label18.Cap tion) > Val(Label14.Cap tion) Or Val(Label18.Cap tion) > Val(Label15.Cap tion) Or _
Val(Label18.Cap tion) > Val(Label16.Cap tion) Or Val(Label18.Cap tion) > Val(Label17.Cap tion) Then
Label1.Caption = Val(Label18.Cap tion)
Label4.Caption = "Intraperso nal Intelligence(Se lf Smart)"
Label6.Caption = "Intraperso anl Intelligence is based on knowledge of the self. It includes " & "" & _
"" & "metacognit ion (thinking about thinking), emotional responses, self reflection, and an " & "" & _
"" & "awareness of metaphysical concepts " & "" & _
"" & "(a)Skilled inner focusing " & "" & _
"" & "(b)Display s a strong personality " & "" & _
"" & "(c)Deep awareness of inner feelings, dreams, and ideas " & "" & _
"" & "(d)Reflect ive and analytical " & "" & _
"" & "(e)Tends to shy away from team activities " & "" & _
"" & "(f)Recogni zes self strengths and weaknesses " & "" & _
"" & "(g)Require s private space and time"
Label8.Caption = "Concentrat ion of the mind, " & "" & _
"" & "Mindfulnes s, " & "" & _
"" & "Metacognit ion, " & "" & _
"" & "Awareness and expression of different feelings, " & "" & _
"" & "Higher order of thinking, " & "" & _
"" & "Transparen t sense of self reasoning. "
Label10.Caption = "You can be a Philosopher, and Councilor"
End If
End If
End If
End If
End If
End If
End If

[debasisdas]

Please post your question in the Vb Forum.

Also use proper code tags for all your code.

[Ganon11]

I've moved this thread to the VB forum.

MODERATOR NOTE: I tried adding [CODE] tags to the OP's post, but it seems to make the text disappear.

[Ali Rizwan]

Hi
Tell what the actual problem is?

[Robbie]

MODERATOR NOTE: I tried adding [CODE] tags to the OP's post, but it seems to make the text disappear.

That is definitely a bug of this forum. It happens when there is too much code, past a certain length (I don't know the exact length).
It's annoying, it's happened to me before when I tried to post a massive segment of code.