Automatisk svar!

hvis du koder dig ud af det, kan du.

Lav en etiket, skriv en tekst om det den gør, smid en kode som denne under den.


Private Sub Etiket1_Click()
DoCmd.SetWarnings False
Application.FollowHyperlink "C:\data\data.xls"
DoCmd.SetWarnings True

End Sub

Kan man ikke bruge det på en kommandoknap i stedet for en etiket?

Egentligt har jeg blot lavet en kommandoknap i en formular og i knappen har jeg lavet hyberlink som peger på et excelark, så for at slippe for at skulle svare ja til dialogboksen kunne jeg godt bruge et fif!

Jo det er frit valg

Jeg kan ikke helt finde ud af hvor jeg skal indsætte teksten:
Private Sub Etiket1_Click()
DoCmd.SetWarnings False
Application.FollowHyperlink "C:\data\data.xls"
DoCmd.SetWarnings True

End Sub

Jeg har oprettet en kommandoknap og linket til et excel ark på mit d: drev men ved ikke hvor jeg skal smide teksten ind som du skrev.

Går ud fra det er under fanen hændelser og derunder "ved indgang"

Der står nu som følgende:

Start:
End Sub

Private Sub Detaljesektion_Click()
Private Sub Etiket1_Click()
DoCmd.SetWarnings False
Application.FollowHyperlink "D:\Turneringer\Dennis Holdskema1.XLS"
DoCmd.SetWarnings True

E
End Sub

Private Sub Etiket42_Click()

Private Sub Etiket1_Click()
DoCmd.SetWarnings False
Application.FollowHyperlink "D:\Turneringer\Dennis Holdskema1.XLS"
DoCmd.SetWarnings True

End Sub


End Sub

Private Sub Kommandoknap0_Enter()

End Sub

Private Sub Kommandoknap45_Enter()

End Sub

Private Sub Kommandoknap7_Enter()

End Sub
Slut:

Det er ikke til at finde ud af hvilke knapper du har, men hvis du har en der hedder Kommandoknap0
så skal koden i den se sådan ud


Private Sub Kommandoknap0_Click()
DoCmd.SetWarnings False
Application.FollowHyperlink "D:\Turneringer\Dennis Holdskema1.XLS"
DoCmd.SetWarnings True
End Sub

Du har rod i den kode du har sat ind, slæt alt og sæt dette ind i stedet

ok, jeg har nu indsat koden du skrev.
Jeg indsatte den på knap 0 under (hændelser/ved klikhændelsesprocedure) og det virker såmænd fint.

Problemet er nu at jeg har flere knapper som skal kalde forskellige excel regneark og så snart jeg opretter en ny knap feks. kommandoknap1 og indsætter din kode på denne, så forsvinder koden i kommandoknap0 og så er jeg lige vidt idet jeg har 15 knapper som skal kalde 15 forskellige regneark.

Håber du også har en løsning på dette problem *S*

hændelser/ved klikhændelsesprocedure, det skal du gøre på samtlige knapper

og det er jo kun disse 3 linier

DoCmd.SetWarnings False
Application.FollowHyperlink "D:\Turneringer\Dennis Holdskema1.XLS"
DoCmd.SetWarnings True

du skal sætte ind imellem

Kommandoknap1_Click()

og 

End Sub

har du evt. msn eller skype og gider du bruge 2 min. på at forklare mig det mens jeg sidder med det ?

Ikke her på arbejdet.

Du laver en kommandoknap

Dobbeltklik på den , stadig i designvisning

I boksen der kommer frem, vælg fanen Hændelser
Klik ind i feltet Ved klik, tryk på de 3 ... ude til højre
Vælg kodegenerator

Så hopper den automatisk ind og står i editoren

Der hvor cursoren står skal de 3 linier ind

Sådan gøres for alle

Så fandt jeg endelig ud af det... mange tak for det. Måske jeg har en opgave til dig i Acces, så er du interesseret må du gerne smide en mail eller msn adresse så jeg kan kontakte dig!

Vil helst ikke kontaktes, har travlt i øjeblikket ;-))

Ok... måske når du får bedre tid du vil vende tilbage og hører nærmere om mine opgaver :-)

Point og tak for hjælpen til dig... hav det rigtig godt!