Hej

Hur skall man göra för att detta skall fungera försöker att med ett klick i comboboxen
välja avdelning med en select sats som nedan med får detta inte att fungera.

Private Sub Combo2_Click()

Select Case Combo2.INDEX

Case 1
Text2.Text = (GetSetting(App.Title, "ExtraDb", "Conn1"))

Case 2
Text2.Text = (GetSetting(App.Title, "ExtraDb", "Conn2"))

Case 3
Text2.Text = (GetSetting(App.Title, "ExtraDb", "Conn3"))

Case 4
Text2.Text = (GetSetting(App.Title, "ExtraDb", "Conn4"))

Case 5
Text2.Text = (GetSetting(App.Title, "ExtraDb", "Conn5"))

End Select
Exit Sub
err:
MsgBox err.Number & ": " & err.Description & ": " & err.Source

Exit Sub
End Sub

Någon med ide om hur man skall få till så att man klickar i comboboxen typ rad 1 "Avd1" så ska det läsas in från registret och lägga strängen i text2.

Mvh Tobbe

löst
Jag ändrade till Combo2.ListIndex så funkar det

Du kan ju göra din lösning dynamiskt och skipa selectcasen:
<code>
Private Sub Combo2_Click()

If Combo2.ListIndex = -1 Then
Text2.Text = ""
Else
Text2.Text = GetSetting(App.Title, "ExtraDb", "Conn" & Combo2.ListIndex +1)
End If

Exit Sub

err:
MsgBox err.Number & ": " & err.Description & ": " & err.Source
Exit Sub
End Sub
</code>

Blir ju oxå mindre kod. ;o)

Hej

Andreas verkar som den inte läse in sista listindexet i comboboxen
t,ex läser bara 0 till 7 men inte 8 om man har 8 Avdelningar laddade i comboboxen.

/Tobbe

KAn det vara så att du stavat fel på nyckel i registret för 8'an?
Hur många poster har du Comboboxen? Hur ser din kod ut?

När Du gör en sökning i en list- eller combokontroll går indexet från 0 till listcount -1
Tex:
For i=0 to cboList.ListCount-1
...
...
...
Next i

Hoppas att detta är svar på Din fråga.
/Adrian

Hej Andreas

Måste säga att det funkar perfekt med din kod, han bara inte att skiva det.

Det var fel i min kod med (Getsettning).

Tack ännu än gång
/Tobbe