excel document openen

[sjobbels]

Goedemorgen,

Waarschijnlijk een simpele vraag, maar ik kan het antwoord nergens terugvinden.
Ik heb in een formulier de optie om een link van een wordbestand toe te voegen en via een button het word document te openen. Nu wil ik dit ook met een excelbestand kunnen maar wat is hiervoor de 'schrijfwijze'

Private Sub cmdSalesplan_Click()

'Controleer of er een document link in de record staat
If IsNull(Me.Salesplan) Or Me.Salesplan = "" Then
MsgBox "Voeg svp het salesplan toe via de add button", vbInformation, "Action Cancelled"
Exit Sub
Else
'Controleer of de link geldig is
If (Dir(Me.Salesplan) = "") Then
MsgBox "Het salesplan staat niet in de opgegeven locatie", vbExclamation, "Action Cancelled"
Exit Sub
Else
'Opent document in Excel

[B]Call OpenWordDoc(Me.Salesplan)[/B] (wat is hiervoor de excel notatie?)
End If
End If
End Sub

 

[Haaren101]

Hier staat een voorbeeldje

Ron

 

[sjobbels]

Ik denk dat je mijn vraag niet goed hebt begrepen. Bovenstaande code werkt gewoon met word documenten, maar nu wil ik op deze manier ook excel document kunnen openen.
Dus wat is de notatie voor excel mbt onderstaande:

Call OpenWordDoc(Me.Salesplan)

Jou voorbeeld geeft ook alleen weer hoe je een word document kunt openen.

grtz

 

[Bakk4318]

OpenWordDoc(Me.Salesplan)

Kun je de code van bovengenoemde functie of sub hier even plaatsen? Waarschijnlijk zul je die nl. ook moeten aanpassen.

 

[sjobbels]

zie eerste post.

 

[ReneDirks]

OpenWordDoc is geen ingebouwde functie maar een UDF - User Defined Function. In jouw voorbeeld staat alleen de AANROEP van die functie; de daadwerkelijke code niet, en daar zal eea aan aangepast moeten worden.

 

[Bakk4318]

zie eerste post.

De code die je daar geplaatst hebt is de code die door de click event van je knop cmdSalesplan wordt geactiveerd. Deze knop roept ook met

Call OpenWordDoc(Me.Salesplan)

De functie OpenWordDoc aan. Deze code kun je vinden in je formulier onder

Private Function OpenWorDoc

Hier staat dan de Code die aangepast moet worden

End Function

of

Public Function OpenWordDoc

Hier staat dan de Code die aangepast moet worden

End Function

De functie kan ook nog in een module staan.

 

[sjobbels]

thanks voor de reply... daar had ik even niet meer aan gedacht. Ik ging er vanuit dat het een standaard was in access. Ik heb nu een nieuwe module aangemaakt "basOpenExceldoc" en het werkt!

grtz