ForumsHQ

Public Sub form_load()

If Label2.DataField = "0" Then

Label3.Caption = "no"

Else: Label3.Caption = "yes"

End If



If Label5.DataField = "0" Then

Label6.Caption = "1 Handed-Blunt"

End If

If Label5.DataField = "1" Then

Label6.Caption = "2 Handed-Blunt"

End If

If Label5.DataField = "2" Then

Label6.Caption = "1 Handed-Sharp"

End If

If Label5.DataField = "3" Then

Label6.Caption = "2 Handed-Sharp"

End If



End Sub



did i do something wrong here? i have my database linked, datafields are linked correctly. (i.e. when i select a certain field it is listed) but when i run the app., it doesnt show anything in the label*.caption on any of them. is my syntax wrong? i am a n00b so youll hafta excuse me if im retarded.



a little more info...

i have a simple form using an SSTab (3 tabs only) the first tab i have linked to the same database, different field, and it works right. the 2nd tab i have this part that i am trying to show different attributes from a the database.

this is an NMR exported database, and this particular field, the values are 0,1,2, and 3. i just want it to look at the datafield and based on the value given, display the correct output.



any help would be appreciated.

what is label2, label3, label5, and label6? on appearance i would have thought you would say "if label2.datafield = "0" then label2.caption = "no" (not like you have it where you are checking on lebel2 and then setting the caption on label3).



i'll need to know them to continue. but to just make this code look how it should:



(same code, just formated and made most efficient)



Private Sub Form_Load()



If Label2.DataField = "0" Then

Label3.Caption = "no"

Else

Label3.Caption = "yes"

End If



Select Case Label5.DataField

Case "0": Label6.Caption = "1 Handed-Blunt"

Case "1": Label6.Caption = "2 Handed-Blunt"

Case "2": Label6.Caption = "1 Handed-Sharp"

Case "3": Label6.Caption = "2 Handed-Sharp"

Case Else: Label6.Caption = Label5.DataField & " (unknown)"

End Select



End Sub