Event After Update not working for Combo box

[hemantsogani]

I have two combo boxes Country and Region.

I am using the following code to create the list for the second (Region) combo box:

Private Sub Country_AfterUpdate()
Dim strCountry As String
Dim S As String
strCountry = Nz(Me.Country.Value, "")
MsgBox strCountry
S = "SELECT DISTINCT Region from BirdsWorld WHERE Country = '" & strCountry & "'"
Me.Region.RowSource = S


End Sub

When I import the required objects in a new database, it works fine. I also displays the selected country in the MsgBox. When I create another form with cascaded combo boxes in the database, it stops working and does not even display the MsgBox.

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.

[hemantsogani]

I have attached Database2

[Micron]

What does "doesn't work" mean? Works for me with the sample db you posted - except that there is no code for a message box.
Did you make sure to select a state for which you have data?

[Missinglinq]

And that only state is New York!

Linq ;0)>

[hemantsogani]

I am attaching two screenshots.
1. BirdsUSADataEntry with state of New York selected but blank Region
2. Code from BirdsWorldDataEntry which has the MsgBox. This MsgBox does not show up when I try to select the Region after selecting a country.

In my first post I had said that it works initially and then stops working. It is not working for me in the database that I had attached.

[hemantsogani]

I tried again. Created a new Database and imported the same objects from my original database. The forms worked as expected. I added a new form Insect which also worked.

I closed the database and opened in again. The forms stopped working!!

I am attaching a file with the screenshots and the new database

[Micron]

This MsgBox does not show up when I try to select the Region

Then there is something different between what you're looking at and what you posted. Here is a pic with New York and a region value of Home on the US form.


There is no code at all on the region combo...

FYI - you should turn on the option for Require Variable Declaration so that your (new) modules have Option Explicit at the top as well as Option Compare (whatever) and add the line to existing modules - otherwise you deserve all the anguish you inflict on yourself!

Not related to your issue, but I'd say that having a table of data related to countries, then one for US alone is a bit strange. US is a country?

[hemantsogani]

I realized that the problem is not related to the combo box alone. The VBA code is not activated for any event like clicking the Undo and Save buttons.

Close button works as it starts a Macro and not VBA code.

I had got a message once while closing another database stating that I should backup the database and then save the database after stripping the VBA code. I thought it would be difficult to get the code working again and saved it without stripping the code. Could it have created a problem for every database I use?

Is there a way out?

[Missinglinq]

...it works initially and then stops working. It is not working for me in the database that I had attached.

This is, I think, the telling fact...why it works for us and not for you!

In version 2007 and later, when no VBA code executes, the problem is usually that the folder holding the database hasn’t been designated as a "Trusted" location.

To "Trust" your folder, click (at least in v2007):

• Office Button (top left)
• Access Options (bottom of dialog)
• Trust Center (left)
• Trust Center Settings (button)
• Trusted Locations (left)
• Add new location (button)

Access will run code, when going from Design View to running it, in Form View, even with the Folder not 'trusted,' but will balk when opened directly in Form View, under the same conditions.

Apparently the Access Gnomes assume if you are running it from Design View, you are the developer, and can be ‘trusted,’ but not if running it directly by opening the Form from the navigation panel!

Linq ;0)>

[hemantsogani]

I had changed the options on Trust Center in an attempt to stop a security warning popup window each time I opened a hyperlink. I stopped getting the message bar


which I used to get whenever I opened a new database file.

VBA code remained disabled in the database and so the code for the "events" did not execute.
I started getting the message bar after I reverted to the original options in the Trust Center.

VBA code was enabled once I clicked the Enable Content button and the forms started behaving as expected.

[hemantsogani]

I had changed the options on Trust Center in an attempt to stop a security warning popup window each time I opened a hyperlink. I stopped getting the message bar<br><br><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAnoAAAAnCAYAAAC YJeUMAAAPbElEQVR4Ae2d64+dVRnF54/jD8AYlYpBUSFEkZoQRIhSLQiUCAJWquAHvMVYlGCCflEj37RBE S8J1QABDcjFXugUGlvIa34nrMnice/3vGfOmRl6skh29uW5rf3stXefvsPAxuaZN4a05CAcCAfCgXAgH AgHwoH148BGDnX9DjVnmjMNB8KBcCAcCAfCATiQQi9fNPNFNxw IB8KBcCAcCAfWlAMbf3n6qSEtOQgHwoFwIBwIB8KBcGD9OLDxz PFDQ1pyEA6EA+FAOBAOhAPhwPpxYOPtc78c0pKDcCAcCAfCgXA gHAgH1o8DKfRS6KbQDwfCgXAgHAgHwoE15UAKvTU92PytbP3+V pYzzZmGA+HAKjjwyCOPDGnrkYMpfFhZoXfhzceHc6/+cDj3yo+Gt9/6Rf5mkAIyHAgHwoFwIBx4H3KAIu+dd95Ju8hzwDnuWqH33xNHh 9N/umM48ftbZu3003cMrE0BEJ38DTUcCAfCgXAgHNg9DqTQW48id1 cKPb7inX3uyFaBp0Jv1h87MJx9/jsDOrnAu3eBk+vkOhwIB8KBcGCMAyn0UuiNFmbnzzw2vPXSw8O ZZ+4dTj55sF3kvftlj4IPHXSxwXaMfJHlcQoHwoFwIBwIB3aWA yn0Uug1izGKtNN/PjS3sHvPVz0r+LSOjxR8O3uJ80gmv+FAOBAOhAM9DqTQS6HXLP Te/Od35xZ5N1x7+XDppZcOV1/54VFdfPUImPU8TuFAOBAOhAPhwM5xIIVeCr1mEfbmiw+NFm98s bv58x+bFXrXXnXZqC6+FrnEx//28HDJJZdstX2XfWDL3tcZ/+THt27Jjhy+ccsGGXP5+u2v793SY4xca2M+r/vcFQMN/PRVlznrYHSc6B/8ymf+b026ng/5rWus+5pi+xpjrav3nGjNbZCzrjXieKwpNtgqt9KnZ01+p/TCIh9TbN5POsrBovt+P+1hu1i2c97zYu2Ez3kxq1wYljlb+ai+ mY/JWvqL2vAOEYPmb5LiTt2X9HuYWNf99Thj+heDbMq+p+yj5nlVf qfErjqrKPTA7+3o0aPb/i3eWS6OH2/aj8nGfnN43759W/gYj+lerDLOsZ5taz75P68ypdC75forZoXe9Z/96MoKPV0OL1Yo2LQZSOAyrVNUzQhihcYihZ58qlgEB75rEcSaC kXp+JqKR9ZaWKt/6aFbbX3fyHhMaa4n+x5+/NLcF7qsYUure5xiAwb0FBc/jD0n8t/rddayoa9769nu5Tr7Fua9xDEv9ipwjvkYk83D1pPvhM9erN76K jCM+RiTLYNJ98nvJGuaLxp3in7rPert4WJZn7LvKTp1v9uxqT6 2O19VoXe8U5wtWjjNctHxNSZrxQETNl54subzlt28tUVxtPytw of73ZNC7/abPjEr9G687vKVFXoqIHp/kJI4PVwivR64VpHQkimG9N2nZIpfiyBiVh3hQJeCkzkYW3/LFR7tQb7QVTEmHeHDH369KSb9GH5ktQgmNuvyUfc4xcbxys+iP ftr5WhRP7utT37Ej92OvUi8VeAc8zEmWwSn6+6ET/c/ZbwKDGM+xmQ9fFNsuMd6V1p+pvhwuyn6U3Tc58UwnrKnKTp1r9 uxqT62O1/nQm///v1LF3VeTGk8O69OMSqdef0qfHiMPSn0Dn3pylmhx5c9/fJFq1/0R7ckh9YiNev1MaNA6hUMraJJxZUKKfdZfdUiCEyyr3/YewEFnopT+/EiiXgqEOnRcT+yASNxFVvr9GP4JfN9VP8uc3++7jbCUPfvmKaO wafi2G10bsi1B8mZC4NkwsdcBTP67qfHEfaJHa1iwUYyj+m6jI lTzxx9xZyCA7w1Xt0Dsdir56K1d2F2nD0M8ikb5U9z96G49D07 ZL2c+rrvQ37HfPbw99bHfCkevduzd+xYQ+bjFnZfc+6MxXafHl tcmYfJsWssP5q3eo/rY3RbvHMd5L4/bJCrSSYcWvczZg09+oqPNb9f2LV4jd0iMVzX8+vxXaeev8tkr7 1pP/ga4wE+0EFfY9f3HDmuVY53stBjX3w9U16OHDmy9WNTijCtHzx4 cGt9zAaZvhzqax1rrR/HSu7FUB1LRzj8S18Ph3Tphdv9OJZFfFRsi85XXui99fL3R4s3C rr7vvqpWaF32xc/PqqLr0VJ6w+P2/oBMObi8HhwcVxPY11UHhGt6UHRmvusfpjXNdnr0sovvR5EPQou 09jx4puLLp/oIKdJH7n7Y+yPwxh+ZOh6HpizLv91j/NshFX7B6swOC75n9ezH+x1Huj7HoVd8dDVmQiL8qW5YuJHdmCT nuS1x7f0idHSdx3sNce/cLGOrfIxBUcv3qK50J6ES/MeBvSEu+av+pAv+jG7qkdOp+ZfWLDx+D38vfWp+Dy/9Q96xZ+KXdzx2HUf8kmOetjHMHluNebcsNG81XtcH/d4Jx3k4nH1Kx2tO+7WvvWXCOmrx4/OXRzU3dNcuovEQFdn0jtD91fPv2df9y1s9C5rjXs43Meqx6sq9 NiPGoUPhQpzCjrGTzzxxGzeKmBmuWjYqIByfxpTUGlMgaaiS/6J50WX1r1HruKuFauH3fHir4dlbP/Vh+Paznjlhd75Uz8bLd4o9A7f9ulZoceXvdaXPK3ha7vEJVE02 TOujw6XkwspHe/12PBYaF0Phx4A+cQvY62jz+OjB6hnr3V6+eg9aK4jbIpHbLD5w 4M+Dx4yb3oEkbNOXMWWP5cxVp6kxxqt7lH+ejY1f/Ljdlqb2ssnvcZuC0Zws0YcdCRnXvfMXH6Qq9WzxIfyIR3ssGeu GN6z3oqHjsvEySk4evFk6/FrLqZgkR/tkV65cMx1D1XmOKrM52M5Hbsb7oNY2msPf2+97qM1Zw17nRPzq ic8Op+KvbXP6oO59uGyHvZ5mPBRm/DVdZ9rL6xpPGaHDrjrnns+tR+Xt/btco2Jhb3PW7xeJIZ08a0GHsWgR6d3/mP2+HN8U3ggG+V8LK+OcRXjVRV6Krq8SJnty37E6XP/0sc6hRm2rsPcf/wqmYpG5moqyhRfhZvmtZcPX2/FklyxmftYfoSDXlhcr9pVmeJst195oQe5Tv3xttEC7sE7r54Ve nzZU1FXe3wsQ1RdCi4dfkgcl8p96kL6xXN5tan6Luch8MegzvF b7T1WxesyjaVDseaPDLFU1PlewKf9e3z5G8PvMvSZE4de9nWPU 2yqjnzXs1GMKT0PH/tXft0GjPJN7Jqf1hw/nl/3p7HOQnP0savrktOPxWcPNLDqId8ODsVbJheOcwyD69X9VZlwV T2f19wpp7IlL/gFk9bU13g69x7+3rrj6flmvWXvGHyMvmMf22e10z4cVyv2FEzo tBp51h1pyR2TxnUPbocOPv0vlS5nLD+M2Q9z12nt2+Uaux/WevNFYvTyq5j0LR3FbslkKx3mNYfOd9fzMXbOJfndqX4vCr1ah PFFbNFCb97XOgom/2JXCygVaL6+3UKvh2V2rp1Ct8ocx3bGO1LonX3ugW4BR0H3vXu umRV6D9x+VVcPH4uQl4eKCyYb5n5BGLceMx4UZLKj1x+0yLh8k jGnae4+ic1cGKouNtLhgsuHel162Wu99vgljj+iuviOVfuv9o7 Zx8Km+C7Dh/yxLp91j1NshNVzUO3kv9eDRTjRAYfOzH0pp4qFTGPsxubup4WD +MRFVnPHOQiP2+LTcXt8cGFHqxhbvHW/Y/Fki0+P52N8+ZxxxSk/Htdt5vmYYjeWU9mT115uta7zUB7B2cPfW5dt3ZdwaF15wo/nw8eyEfaxfWI3tg/hGtvTIpjAJuyyY42xcuN78fEY78DJG+XvlPJA7340VzxsXe5j9 yE75WTeHD9TY7hujak5OsqZcigsPXu3wbb3hqDnvjRWbHGptWf prKLfi0KPIktfvVRweaGnf5dPMn0tnOXMfsSrH7v2CiN9NZRv9 BjLDn8aq/hsxcKuxnaf7sexuM08H263nfGOFHr/Pf3ocOLYgW4R9/xvbh6eeuyG4dlf3dTWOXZgOP/Go1sFxRTC6qKRPDVdQl0GrdP7A8Rlc5keA+x4zCRj7FhYd135Q YexLrFswINNvbTIWUPmmGXnPRe8xpXfuqcaHz+Oq/pBxhp6VSZbyTX3GFNssGudlecRnXnNz8UxKI9goXk+mXvux+bK qfx4boVNGIjPuMaSrdbxwZp81fj4kUwxpuBAV7HoFW+7uag4ex gqfp9XH9qPsPbOoZXTyhf3pTGxFZOx86mHv7fu+2jhVUzHpdja l3y4Dmuybe1TseSr7kM+0eth93jyUzEJg/eVK36nPK6PhZc1Gpi0ppjsk+axqg7zGl++Wrruq4VHsavtIjF6 +fXYY7nu2etM6PE1xgPtQ3v0eKwJi+Sar7JfVaEHRjUVajPcnS 9afAVDTsHHWIUTa/z7dvKlQqwWSuhLRzatAkkFnHRVYKJbZcJQY9W58OnfC+xhIaYK x3k+kC/TdqTQg2ibf7+/XcS9+787++vjX+jKsV0lWeNrfuGUHCVH4UA4EA6EA86BVRR6yx QosV2uwFP+dqzQu7D58+Hkkwebxdz+a/bNfnT7ySs+NLz+uy+/RwcbbJ1sGefxCQfCgXAgHAgHdpcDKfRWU2ip4NqrfscKPS7kuX//4D1FnH7hgl/C2PeRDw6t37rFJpd5dy9z8p18hwPhQDgQDlQOpNBLoTepIDv77 PgvZqj4o0e3Ei3zPD7hQDgQDoQD4cDucyCFXgq9yUXZ5j8ON7/seZGHTi7y7l/k5Dw5DwfCgXAgHGhxIIVeCr2FCrOzLzzU/k3cYwcGZC2SZS2PTzgQDoQD4UA4sDccoNBLW48cTLlDG1OU5un wf7o4c/y+4dQfbp01xudP/jRF3oT/nMi83Ea+Nw9h8p68hwPhQDgQDqwDB1ZS6K1DIrKHXOhwIBwIB8 KBcCAcWDcOpNDLV7d8eQ0HwoFwIBwIB8KBNeXAxjPHDw1pyUE4 EA6EA+FAOBAOhAPrx4GN1157bUhLDsKB5Thw8M67h9qS0+Vymv wlf+FAOBAOLM+BjZMnTw5pyUE4sBwHXnjxX4O3r911b+5V3pZw IBwIB8KBPefAxubm5pCWHIQDy3HgpZdfGbzdcfc3c6/ytoQD4UA4EA7sOQc2zp07N6QlB+HAchx45dXXB293feNbuVd5W 8KBcCAcCAf2nAMbFy5cGNKSg3BgOQ7858SpwdvX7/927lXelnAgHAgHwoE958DGkH+SgWRg6QycfmNz8HbP4QeX9hkH yUAykAwkA8nAshn4HzH+enlt/4/+AAAAAElFTkSuQmCC" alt=""><br>which I used to get whenever I opened a new database file.<br><br>VBA code remained disabled in the database and so the code for the "events" did not execute.<br>I started getting the message bar after I reverted to the original options in the Trust Center.<br><br>VBA code was enabled once I clicked the Enable Content button and the forms started behaving as expected.<br><br>

[hemantsogani]

Copying the image introduced unreadable text. Posting it again.

I had changed the options on Trust Center in an attempt to stop a security warning popup window each time I opened a hyperlink. I stopped getting the message bar (image attached).

I used to it get whenever I opened a new database file. VBA code remained disabled in the database and so the code for the "events" did not execute. I started getting the message bar after I reverted to the original options in the Trust Center. VBA code was enabled once I clicked the Enable Content button and the forms started behaving as expected.