MorphdatVB.Index = "speccode" MorphdatVB.Seek "=", speciescode If MorphdatVB.NoMatch Then 'do nothing Else If Not IsNull(MorphdatVB("dorsal spines min")) Or Not IsNull(MorphdatVB("dorsal spines max")) Then If concatinfo <> "" Then concatinfo = concatinfo & "; Dorsal spines: " Else concatinfo = "Dorsal spines: " End If If Not IsNull(MorphdatVB("dorsal spines min")) Then concatinfo = concatinfo & MorphdatVB("dorsal spines min") End If If Not IsNull(MorphdatVB("dorsal spines max")) Then If Right$(concatinfo, 1) = " " Then concatinfo = concatinfo & MorphdatVB("dorsal spines max") Else concatinfo = concatinfo & " - " & MorphdatVB("dorsal spines max") End If End If End If If Not IsNull(MorphdatVB("dorsal soft rays min")) Or Not IsNull(MorphdatVB("dorsal soft rays max")) Then If concatinfo <> "" Then concatinfo = concatinfo & "; Dorsal softrays: " Else concatinfo = "Dorsal softrays: " End If If Not IsNull(MorphdatVB("dorsal soft rays min")) Then concatinfo = concatinfo & MorphdatVB("dorsal soft rays min") End If If Not IsNull(MorphdatVB("dorsal soft rays max")) Then If Right$(concatinfo, 1) = " " Then concatinfo = concatinfo & MorphdatVB("dorsal soft rays max") Else concatinfo = concatinfo & " - " & MorphdatVB("dorsal soft rays max") End If End If End If If Not IsNull(MorphdatVB("anal fin spines min")) Or Not IsNull(MorphdatVB("anal fin spines max")) Then If concatinfo <> "" Then concatinfo = concatinfo & "; Anal spines: " Else concatinfo = "Anal spines: " End If If Not IsNull(MorphdatVB("anal fin spines min")) Then concatinfo = concatinfo & MorphdatVB("anal fin spines min") End If If Not IsNull(MorphdatVB("anal fin spines max")) Then If Right$(concatinfo, 1) = " " Then concatinfo = concatinfo & MorphdatVB("anal fin spines max") Else concatinfo = concatinfo & " - " & MorphdatVB("anal fin spines max") End If End If End If If Not IsNull(MorphdatVB("araymin")) Or Not IsNull(MorphdatVB("araymax")) Then If concatinfo <> "" Then concatinfo = concatinfo & "; Anal soft-rays: " Else concatinfo = "Anal soft-rays: " End If If Not IsNull(MorphdatVB("araymin")) Then concatinfo = concatinfo & MorphdatVB("araymin") End If If Not IsNull(MorphdatVB("araymax")) Then If Right$(concatinfo, 1) = " " Then concatinfo = concatinfo & MorphdatVB("araymax") Else concatinfo = concatinfo & " - " & MorphdatVB("araymax") End If End If End If If MorphdatVB("addchars") <> "" Then If concatinfo <> "" Then concatinfo = concatinfo & "; " & MorphdatVB("addchars") Else concatinfo = MorphdatVB("addchars") End If End If End If 'not needed by eli