Jag skriver på ett ändringsformulär och där hämtas uppgifterna från en db enl loopen nedan. Sen är det tänkt att sätta bockar i alla checkboxar där namnet förekommer, men det går inte som jag har skrivit iaf.
Gissar att den del av koden som visas upp här är tillräcklig för att greppa problemet.
kategorier = ""
Do Until rs2.EOF
kategorier = kategorier + rs2("kat")&","
rs2.MoveNext
Loop
If Instr(kategorier,"Alt terapier") = 1 Then val1 = "checked" Else val1 = "" End If
If Instr(kategorier,"Astrologi") = 1 Then val2 = "checked" Else val2 = "" End If
If Instr(kategorier,"Buddhism") = 1 Then val3 = "checked" Else val3 = "" End If
If Instr(kategorier,"Djur") = 1 Then val4 = "checked" Else val4 = "" End If
Tacksam för förslag.
[r]Kanske ska skriva att mitt eget alternativ endast skriver ut första valet. [/r]
kategorier = ""
Do Until rs2.EOF
kategorier = kategorier + rs2("kat")&","
rs2.MoveNext
Loop
If Instr(kategorier,"Alt terapier") > 0 Then val1 = "checked" Else val1 = "" End If
If Instr(kategorier,"Astrologi") > 0 Then val2 = "checked" Else val2 = "" End If
If Instr(kategorier,"Buddhism") > 0 Then val3 = "checked" Else val3 = "" End If
If Instr(kategorier,"Djur") > 0 Then val4 = "checked" Else val4 = "" End If
Din kod testar om texten finns först i kategorier.
------------------ essentitia preter non sans multiplicandum
