Open/Close Recordset

Denne kode slår op i et recordset og laver et array..:

Dim db As Database, rs As Recordset, strSQL As String
Dim Allow_List() As String, Counter As Long

Set db = CurrentDb
strSQL = "SELECT * FROM qbe_access_rights WHERE medarb='" & Bruger7() & "';"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

ReDim Allow_List(rs.RecordCount)
           
If rs.RecordCount = 0 Then 'Ingen poster!
    Exit Sub
End If

ReDim Allow_List(0)
rs.MoveFirst
If rs.Fields("AllowMarketing") = True Then
    ReDim Preserve Allow_List(UBound(Allow_List) + 1)
    Allow_List(UBound(Allow_List)) = "Marketing"
End If

If rs.Fields("AllowSalg") = True Then
    ReDim Preserve Allow_List(UBound(Allow_List) + 1)
    Allow_List(1) = "Salg"
End If

Set db = Nothing

Ups - mangler lige:

rs.Close
Set rs = Nothing

Hvor lægger du koden, i toppen af formen?

Det kommer jo an på hvordan det skal bruges - så det er lidt svært at svare på. Ovenstående bliver kaldt ved hver gang nogle parametre ændres.

Ok. Jeg prøver mig frem.

Det går galt med: Dim db as Database

Hvilken verion bruger du? Og hvad skal den kunne?

verion=version af Access

Access 2000. (indeholder ikke det class module)

Du kan tilføje DAO 3.6 til referencer - så vil det virke..

Ja, så virker det!

Point og tak for hjælp

Det var så lidt ;O))

Mads!

Du skal lige trykke på svar og skrive f.eks ok,
ellers kan jeg ikke tildele dig point

OK....

Du kom mig i forkøbet :o))