Hej!

Jag skulle vilja koppla min VB kod till min databas skriven i MS Access 2000. Hur går jag till väga?
Min kod fungerar i MS Visual Basic 6.0, men då jag ska föra över koden till MS Access 2000 får jag en massa error. Jag skriver in VB koden via Tools - macro - VB editor är detta fel/rätt?

Hur gör jag?

Tack på förhand!
Johanna Pihlström

Du gör rätt, nästan... Access använder inte VB utan VBA (Visual Basic for Applications), det innehåller några skillnader jämfört med VB. Du får alltså kolla upp hur man skriver de röda raderna, alternativt klistra in dom här så att någon kan visa.

/Johan

Här är min VB kod som jag vill ska fungera som VBA kod. Hur skriver jag om koden?

Koden:

Option Explicit
'subrutin för knapp vid val av grundprofil
Private Sub Grund_Click()
Call Uppdatera(1) 'Grund.dot
End Sub
'subrutin för knapp vid val av fördagenprofilen
Private Sub ForDagen_Click()
Call Uppdatera(2) 'ForDagen.dot
End Sub

'subrutin för uppdatering av profil
Private Sub Uppdatera(ByVal dotVal As Long)

'deklaration av Word
Dim wd As Word.Application

'deklaration av dokument i Word
Dim doc As Word.Document

'deklaration av fältet i Word där texten kommer synas
Dim ran As Range

'deklaration av bokmärke i Word där den specifika texten ska stå
Dim book As Bookmark

On Error Resume Next

Set wd = GetObject(, "Word.Application")

If wd Is Nothing Then
Set wd = CreateObject("Word.Application")

If wd Is Nothing Then
MsgBox ("MS Word is not installed")
End If
End If

On Error GoTo 0

Select Case dotVal

Case Is = 1
'vägen till katalogen där grundprofilen finns tillgänglig
Set doc = Documents.Add("\\Grund.dot")
'Här klistrar du in alla som skall vara med i denna profil


'namnet anropas och skrivs in
Set book = doc.Bookmarks.Item("namn")
Set ran = book.Range
ran.Text = namn.Text

Grund.Caption = namn.Text

'här är egentligen fler val, men har tagit bort dom just nu

Case Is = 2
'vägen till katalogen där grundprofilen finns tillgänglig
Set doc = Documents.Add("\\ForDagen.dot")
'Här klistrar du in alla som skall vara med i denna profil

'namnet anropas och skrivs in
Set book = doc.Bookmarks.Item("namn")
Set ran = book.Range
ran.Text = namn.Text

ForDagen.Caption = namn.Text

'här är egentligen fler val, men har tagit bort dom just nu

End Select

wd.Visible = True

doc.Saved = True
End Sub

'slut på kod

Tack på förhand!

Johanna Pihlström

PS: Tack för svar JohanD!

Jag ser inget som är fel vid första anblicken, vad blir det för fel?

/Johan

Hej,

Tack för svar!

Min VB kod går att kompilera samt köra i VB 6.0, men när jag sedan lägger in VB koden i MS Access 2000 fungerar den inte. Hur kommer det sig?
Hörde att MS Access 2000 inte accepterar VB kod utan VBA kod, men nu är den andra frågan - vad är skillnaden?

Jag kanske tänker fel helt och hållet, men det är som så att jag vill koppla så att jag får in min information från databasen skriven i MS Access 2000 till dokumentet skapat i MS Word via VB koden. Enbart VB kod och Word fungerar, men när jag ska 'koppla in' databasen fungerar inget.

Vad gör jag för fel?

Tack på förhand!
Johanna Pihlström

Tack för hjälpen!

Nu fungerar det att koppla VB koden mot databasen skriven i Access.

Jag har fått hjälp utav Niklas via mail. Den som har liknande problem som jag hade innan kan antingen skicka mail till Niklas eller mig.

//Pihlis

Referenser till "Microsoft Word" saknas. Lägg till referenser under Verktyg/referenser i access vb-editor.