Access för newbies

Hej!

Sitter med en Accessdatabas för första gången. Är inne i VBA och knådar lite kod. Vill nu att detta VB script som jag håller på med skall hämta data från databasen

Jag hittar ingenstans hur man gör!

Här är min lilla kod so far:

Private Sub LoggaIn_Knapp_Click()
    Dim rs As Recordset
    Dim db As Database
    
    Set db = CurrentDb()
    *** Set rs = db.OpenRecordset("SELECT fornamn FROM personal WHERE personal_id=1")
    
    MsgBox (Me!anvandare)
    MsgBox ("Om allt går vägen så tänds flikarna upp")
    
    ' Borde göra en loop av ngt slag som tänder upp flikarna.
    ' Ta reda på hur man räknar antalet flikar!
    
    Forms("index").Controls("tabs").Pages("tab_forsaljning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_personal").Visible = True
    Forms("index").Controls("tabs").Pages("tab_internbeställning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_varuattribut").Visible = True
    Forms("index").Controls("tabs").Pages("tab_leverantör").Visible = True
End Sub

Får felmeddelandet inkompabila typer eller något liknande på raden som är markerad ***

Tacksam för _snabba_ svar!

det löste sig, dimmade mina variabler i början så här:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qd As DAO.QueryDef

Istället för att använda dig av DAO föreslår jag att du kör med ADODB...

Private Sub LoggaIn_Knapp_Click()
    Dim rs As New ADODB.Recordset
    Dim cnn As New ADODB.Connection

    Set cnn = CurrentProject.Connection
    Set rs = cnn.Execute("SELECT fornamn FROM personal WHERE personal_id=1")
    
    MsgBox (Me!anvandare)
    MsgBox ("Om allt går vägen så tänds flikarna upp")
    
    ' Borde göra en loop av ngt slag som tänder upp flikarna.
    ' Ta reda på hur man räknar antalet flikar!
    
    Forms("index").Controls("tabs").Pages("tab_forsaljning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_personal").Visible = True
    Forms("index").Controls("tabs").Pages("tab_internbeställning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_varuattribut").Visible = True
    Forms("index").Controls("tabs").Pages("tab_leverantör").Visible = True

   Set cnn = Nothing
   Set rs = Nothing
End Sub

Okej, det kan nog funka det också! Varför bör jag köra med ADODB istället för DAO? Nyfiken...

Nyare, bättre snabbare ;)

låter som något jag skulle behöva ;) Tack!