Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie
Hi there,
There is an issue with role permissions that is being worked on at the moment.
If you are having trouble with access or permissions on regional forums please post here to get access: https://www.boards.ie/discussion/2058365403/you-do-not-have-permission-for-that#latest

Access Programming

  • 26-08-2004 6:41pm
    #1
    sed
    Closed Accounts Posts: 13 ✭


    ok folks, I'm new to VBA and well I've never really used access at all, untill now.
    In my application I want a combo box that has three different options to select from. The first one is a word document and the other 2 are pdfs. when you click on them they should open up.

    Is there a way to have a hyperlinked combo box to do this?



    As i said im new to this so my apologies if its a stupid ass question.


Comments

  • #2
    jd
    Registered Users, Registered Users 2 Posts: 5,741 ✭✭✭jd


    sed wrote:
    ok folks, I'm new to VBA and well I've never really used access at all, untill now.
    In my application I want a combo box that has three different options to select from. The first one is a word document and the other 2 are pdfs. when you click on them they should open up.

    Is there a way to have a hyperlinked combo box to do this?



    As i said im new to this so my apologies if its a stupid ass question.


    I don't program in vba but 20 minutes of messing around and i came up with something like this..
    Private Sub Command1_Click() (or Private Sub Combo0_Change() - not sure what you mean)
If Form_Form1.Combo0.Value = "App1" Then
 Set oApp = CreateObject(Class:="Word.Application")
       oApp.Visible = True

        'Open the Document
    oApp.Documents.Open filename:="D:\doc1.doc"

ElseIf Form_Form1.Combo0.Value = "App2" Then
.
.
.
.


Advertisement