vba courses london - Access Combo VBA

Version 1.9

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

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

Support promotion: Post a question within 7 days of attending your course and get an upgrade to 12 months support! (Standard period 3 months)

Frequently Asked Questions
What does 'Resolved' mean?

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

vba courses london - Access Combo VBA

The UK's most regular instructor-led training courses.
Training information: vba courses london · Excel london

Resolved · Low Priority · Version Standard

Access Combo VBA

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

by - delegate Marc [3 posts] (2007 May 4 Fri, 16:19) Reply

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

by - delegate Marc [3 posts] (2007 May 4 Fri, 18:58) Reply

nevermind i did it myself...

· What Is Microsoft Excel VBA and How Can It Help You Work Smarter?
· Company Roles in Visual Basic Training

Vba tip:

Add A New Sheet at the end of the Workbook

To add a new sheet at the end of the workbook you need to count the sheets in the workbook using:

Sheets.Count

Then use this value as the rank of the sheet after which you want to add the new sheet:

Sheets.Add After:=Sheets(Sheets.Count)

View all VBA hints and tips

Training by application

Main information pages

vba courses london - Access Combo VBA

Related articles

Vba tip:

Add A New Sheet at the end of the Workbook