Jeg vil fylde en ListBox med nogle data der bliver trukket ud af et Field i
en database.
Hvis jeg benytter denne kode fungerer det fint:
<snip>
Function Fyld_Liste(Listen As ListBox, DatabaseNavn As String, RecordSettet
As String)
Listen.Clear
Set mDB = OpenDatabase(App.Path + "\" & DatabaseNavn & ".mdb")
With mDB
Set mRS = .OpenRecordset(RecordSettet)
With mRS
If .RecordCount <> 0 Then
.MoveFirst
Listen.AddItem !Navn '<-- DET ER HER PROBLEMET KOMMER SERNERE
For dby = 1 To .RecordCount - 1
.MoveNext
If .EOF Then Exit For
Listen.AddItem !Navn '<-- DET ER HER PROBLEMET KOMMER
SERNERE
</snip>
Det er bare ikke så praktisk, da meningen med modulet er at en begynder ikke
skal ændre i modulets kode.
Så jeg prøvede at gøre funktionen komplet med denne kode:
<snip>
Function Fyld_Liste(Listen As ListBox, DatabaseNavn As String, FeltNavn As
Field, RecordSettet As String)
Listen.Clear
Set mDB = OpenDatabase(App.Path + "\" & DatabaseNavn & ".mdb")
With mDB
Set mRS = .OpenRecordset(RecordSettet)
With mRS
If .RecordCount <> 0 Then
.MoveFirst
Listen.AddItem !FeltNavn '<-- HER ER PROBLEMET
For dby = 1 To .RecordCount - 1
.MoveNext
If .EOF Then Exit For
Listen.AddItem !FeltNavn '<-- HER ER PROBLEMET
<snip>
Dette er VB dog meget ked af at skulle bruge.
Jeg har også ændret "FeltNavn As Field" til "FeltNavn As String" med så
bliver listen bare fyldt med forkerte data. :-/
Nogle der har et godt forslag til hvordan jeg kan få ovenstående funktion
til at fungere??
--
Mvh.... Tim Sørensen
http://dondata.adsl.dk/