So I had a question come my way regarding some form operations. It will probably help someone else, so I am going to let you know how I did it.
Basically it had to do with setting 2 other form controls based on the first.
Here is a picture:
The table data is a simple 3 column table:
Here is the simple code I used on the “AfterUpdate” event of the combo box:
Private Sub cboAgencyID_AfterUpdate()
Dim intAgency As Integer
Me.txtProviders = DLookup("Provider", "tblAgencies", "AgencyID='" & Me.cboAgencyID & "'")
'LOOKUP THE VALUE FOR THE OPTION FRAME GROUP
Select Case Me.cboAgencyID.Column(1)
Case "College"
intAgency = 1
Case "District"
intAgency = 2
Case "CTSO"
intAgency = 3
Case "CBO"
intAgency = 4
Case "Leadership"
intAgency = 5
Case "Public"
intAgency = 6
Case Else
intAgency = 0
End Select
Me.fraAgencies.Value = intAgency
End Sub
I am setting the value of the Provider textbox by using the DLookup function. Reason? It was easy to use:
Me.txtProviders = DLookup("Provider", "tblAgencies", "AgencyID='" & Me.cboAgencyID & "'")
So based on whatever agency is selected, lookup in the “tblAgencies” table the value in the “Provider” column.
Then I am using the value in the “AgencyType” field to select the integer value of the AgencyType I want to select in my option frame.
That’s all. Let me know if you have any questions.
How To Escape Apostrophe In SQL Update Query
If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]
How To Make An Access Form Time Picker
Here is a relatively easy way to select times for your time entry text boxes. It’s a reusable form that allows you to pick a time from an Access form. There are probably different ways to do this but here is the way I would do it. On the form that has the time fields, […]
How To Parse A Flat File In Excel VBA
In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]
How to pick a file to load In VBA
Picking a file to load in your Microsoft App is a very important skill to know. In this blog post you will see how to do it. First you need to set a reference to the MS office object library From VBE editor –> select Tools > MS office object library (click check mark) Sub […]