---
title: "Access för newbies"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/71513-access-för-newbies"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "nkrantz"
published: "2003-03-18T20:17:34.000Z"
updated: "2003-03-19T11:20:59.000Z"
replies: 5
views: 228
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/databaser-sql/71513-access-för-newbies"
---

# Access för newbies

## #1 — nkrantz, 2003-03-18T20:17Z

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!

Permalänk: https://www.webforum.nu/p/71513

## #2 — nkrantz, 2003-03-18T20:30Z

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

Permalänk: https://www.webforum.nu/p/983396

## #3 — Engine^, 2003-03-19T11:00Z

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
```

Permalänk: https://www.webforum.nu/p/983690

## #4 — nkrantz, 2003-03-19T11:06Z

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

Permalänk: https://www.webforum.nu/p/983692

## #5 — Engine^, 2003-03-19T11:07Z

Nyare, bättre snabbare ;)

Permalänk: https://www.webforum.nu/p/983694

## #6 — nkrantz, 2003-03-19T11:20Z

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

Permalänk: https://www.webforum.nu/p/983698

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/71513-access-för-newbies