Søg
Avatar billede domino1977 Nybegynder
05. juli 2002 - 11:49 Der er 26 kommentarer og
1 løsning

Udskriv Access Rapport Direkte fra VB 6.0

Hejsa... jeg snuppede den lille kode fra en der kunne udskrive en Access rapport fra VB 6.0...

Private Sub Command3_Click()
Dim ac As Access.Application
Set ac = New Access.Application
  ac.OpenCurrentDatabase "i:\bredan intranet\filer\Produkt Databse\Produkt Database til VB.MDB"
  ac.DoCmd.OpenReport "Wärtsilä Forespørgelse\", acViewNormal
  ac.CloseCurrentDatabase
End Sub

Men den melder fejl i den anden linie:

Dim ac As Access.Application

hvorfor.....

kan man ikke sætte det hele til en knap????

MvH
Kim
Avatar billede ladyhawke Novice
05. juli 2002 - 11:57 #1
Tror du ikke du skulle afsætte lidt points ? :o)
Avatar billede terry Ekspert
05. juli 2002 - 12:04 #2
he doesnt have any!
Avatar billede terry Ekspert
05. juli 2002 - 12:05 #3
if you take the points back from http://www.eksperten.dk/spm/232641 tehn you have 25 :o)
Avatar billede terry Ekspert
05. juli 2002 - 12:11 #4
You have to have a reference to Access!
Avatar billede domino1977 Nybegynder
05. juli 2002 - 12:38 #5
Ok...... jeg gir 15 point så.... sorry
Avatar billede terry Ekspert
05. juli 2002 - 12:43 #6
before you can automate Access you have to have a referecne to Access. This is done in the tools + references menu while in Code View!
Avatar billede terry Ekspert
05. juli 2002 - 12:43 #7
an ac.visible will help too or youw ont see it
Avatar billede terry Ekspert
05. juli 2002 - 12:47 #8
hey domino1977 is this fare? http://www.eksperten.dk/spm/226423
Avatar billede terry Ekspert
05. juli 2002 - 12:48 #9
fare = fair
Avatar billede domino1977 Nybegynder
05. juli 2002 - 12:50 #10
Ok terry.. If you help me with this one you will get all the points....ok???
Avatar billede domino1977 Nybegynder
05. juli 2002 - 12:55 #11
Terry... you know that i'm not that great to program codes and so on.... so could you please take it step by step??
Avatar billede terry Ekspert
05. juli 2002 - 13:01 #12
Dim acc As Object

    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase "i:\bredan intranet\filer\Produkt Databse\Produkt Database til VB.MDB"
 
    acc.Visible = False
    acc.DoCmd.OpenReport "Wärtsilä Forespørgelse\", , acViewNormal
    acc.Quit
Avatar billede terry Ekspert
05. juli 2002 - 13:03 #13
BUT You STILL MUST have a reference to Access! If Access IS NOT installed then you CAN NOT automate Access.

DO YOU UNDERSTAND THIS??????
Avatar billede domino1977 Nybegynder
05. juli 2002 - 13:18 #14
Thanks terry..... but when i pick the menu tools, when the menu is in code view, theres is no meny called references....

And that code you wrote... where shall I put that?? On the cmdbutton, or what???
Avatar billede terry Ekspert
05. juli 2002 - 13:22 #15
Sorry!
Project + references
Avatar billede terry Ekspert
05. juli 2002 - 13:23 #16
yes place the code in a button
Avatar billede domino1977 Nybegynder
05. juli 2002 - 13:33 #17
Okay.... it works......!!!!
Can you stop the printing, and just open the report, so you can choose the page you wanna print???

Or choose it in VB 6.0???
Avatar billede terry Ekspert
05. juli 2002 - 13:52 #18
acc.Visible = True
acc.DoCmd.OpenReport "Wärtsilä Forespørgelse\", acViewPreview

You will have to remove acc.quit or Access will close!
Avatar billede domino1977 Nybegynder
05. juli 2002 - 13:54 #19
Thanx......
Avatar billede domino1977 Nybegynder
05. juli 2002 - 13:57 #20
But.... the report still just print.....
AND access closes.....

Here is my code:

Private Sub Command3_Click()
Dim acc As Object

    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase "i:\bredan intranet\filer\Produkt Databse\Produkt Database til VB.MDB"
 
    acc.Visible = True
    acc.DoCmd.OpenReport "1", , acPreviewNormal
End Sub
Avatar billede terry Ekspert
05. juli 2002 - 14:02 #21
acc.DoCmd.OpenReport "1", acPreviewNormal

Do you have a report named "1"


does it close now?
Avatar billede domino1977 Nybegynder
05. juli 2002 - 14:15 #22
Yes it's just a test report....

And yes it still closes....

Here is my new code from you:

Private Sub Command3_Click()
Dim acc As Object

    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase "i:\bredan intranet\filer\Produkt Databse\Produkt Database til VB.MDB"
 
    acc.Visible = True
    acc.DoCmd.OpenReport "1", acPreviewNormal
End Sub
Avatar billede terry Ekspert
05. juli 2002 - 14:22 #23
if you sent the project+dB to terrysanthell.dk then I will see if I can see what is wrong
Avatar billede terry Ekspert
05. juli 2002 - 14:23 #24
terry@santhell.dk
Avatar billede terry Ekspert
05. juli 2002 - 15:06 #25
acc.DoCmd.OpenReport "1", acViewPreview
Avatar billede domino1977 Nybegynder
05. juli 2002 - 15:13 #26
Aaaaaand it WORKS!!!!!!!!!

YES...

Thank you very much Terry!!!
Avatar billede terry Ekspert
05. juli 2002 - 19:49 #27
Gggrrreeeaaaaatt!!! :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access 1 I dag 14:59 I dag 15:11
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:59 Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access
I går 14:58 Scanner program til PC Af fjorbak i Andet software
16/1016:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
16/1016:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
16/1013:20 Lotus Approach Af Carsten i Andet software
White papers
Flere white papers »