vba courses london - access combo vba

Public Schedule Face-to-Face & Online Instructor-Led Training - View dates & book

Forum home » Delegate support and help forum » Microsoft VBA Training and help » vba courses london - Access Combo VBA

vba courses london - Access Combo VBA

resolvedResolved · Low Priority · Version Standard

Marc has attended:
Access Intermediate course
Access VBA course
Access Advanced course

Access Combo VBA

hi,

In my Orders form i have a combo box which determines where the order will take place. There are only 2 selections atm as we only have two sites..

What i need this combo box to do is instead of saving "Gatwick" when it is selected i need it to replace it with GWO- as this will be combined with an Order number eg (GWO-0001) and this GWO-0001 will be the actual Order number.

I wrote this code which obviously doesnt work otherwise i wouldnt be posting here! Is there any chance you could correct it for me and explain what i did wrong?

Much Appreciated!

Private Sub Combo96_AfterUpdate()

Dim ComboOption1 As String
Dim ComboOption2 As String

ComboOption1 = "Gatwick"
ComboOption2 = "Woking"

If AfterUpdate(Me!Combo96) = "Gatwick" Then
ComboOption1 = "GWO-"
End If

If AfterUpdate(Me!Combo96) = "Woking" Then
ComboOption1 = "WWO-"
End If

End Sub

RE: Access Combo VBA

nevermind i did it myself...

 

Training courses

 

Training information:

Welcome. Please choose your application (eg. Excel) and then post your question.

Our Microsoft Qualified trainers will then respond within 24 hours (working days).

Frequently Asked Questions
What does 'Resolved' mean?

Any suggestions, questions or comments? Please post in the Improve the forum thread.


 

VBA tip:

Stop Display Alerts In Excel

When creating or deleting a Worksheet in Excel you don't want Excel to inform you "A file already exists....." Or "Do you want to save this file...".

To stop these alerts happening use the following line of code:

Application.DisplayAlerts = False

After the Create or Delete routine use:

Application.DisplayAlerts = True

View all VBA hints and tips


Server loaded in 0.07 secs.