Code does not run..no error

[Petros]

Hi all,

i pasted this code in a sub and expected an "error" or "debug" message..but nothing happenes..why?


Private Sub Alert_AfterUpdate()

On Error Resume Next
cboCity.RowSource = "Select tblAll.City " & _
"FROM tblAll " & _
"WHERE tblAll.Country = '" & cboCountry.Value & "' " & _
"ORDER BY tblAll.City;"

End Sub


Thanks!

 

[DCrake]

Because you have told it to ignore errors

On Error Resume Next

take this line out and see what happens

 

[DCrake]

TRy

On Error Resume Next
cboCity.RowSource = "Select tblAll.City " & _
"FROM tblAll " & _
"WHERE tblAll.Country = '" & cboCountry.Value & "' " & _
"ORDER BY tblAll.City;"

Me.CboCity.RowSoure = "Select City From TblAll Where Country ='" & me.cboCountry & "'"

What is CboCountry? a number or a character?

 

[Petros]

Because you have told it to ignore errors

On Error Resume Next

take this line out and see what happens

Thank you Drake..i did..but still no raction..i entered the "correct code"..

The controll "AlertType" should present a value list..

strange..the code editor feels cold like a dead fish..

Private Sub Alert_AfterUpdate()


AlertType.RowSource = "Select AlertTypeEx.AlertType " & _
"FROM AlertTypeEx " & _
"WHERE AlertTypeEx.Alert = '" & Alert.Value & "' " & _
"ORDER BY AlertTypeEx.AlertType"
End Sub

 

[Petros]

TRy

Me.CboCity.RowSoure = "Select City From TblAll Where Country ='" & me.cboCountry & "'"

What is CboCountry? a number or a character?

A character..

 

[vbaInet]

What type of control is Alert? You would need to move the cursor out of that control for the AfterUpdate event to fire.

 

[Petros]

What type of control is Alert? You would need to move the cursor out of that control for the AfterUpdate event to fire.

A combobox..controll is a dataype "text"

 

[vbaInet]

I think the value of the cboCountry is not returning a Country value. You might need to refer to the second column of that combo box.

me.cboCountry.column(1)

I'm assuming your list of countries have unique ID's so instead of using the name, refer to the ID in which case you can then use the value property.

 

[Petros]

no..i must be doing something very wrong..i am following the example 2 in http://www.fontstuff.com/access/acctut10.htm by the letter..

not my day..

 

[vbaInet]

Are you saying that your Countries table doesn't have an ID? Well, it should.

 

[ChrisO]

Try sticking a message box in Private Sub Alert_AfterUpdate(), it may not be being called at all.

 

[boblarson]

If you are using 2007 or 2010 you will need to have the database in a Trusted Location or click the Enable Code button. See here for instructions.

 

[Petros]

So..it was my own stupidity that made this happen...
1, Read the instructions. 2. Read the instructions. 3. Read the instructions...bellow is the solution..I learned a good lesson

In the row source property of the combo box:
SELECT DISTINCT AlertTypeEx.Alert FROM AlertTypeEx ORDER BY AlertTypeEx.Alert;
In the “after update” event of the same combo box:
Private Sub Alert_AfterUpdate()
On Error Resume Next
Me!AlertType.RowSource = "Select AlertTypeEx.AlertType " & _
"FROM AlertTypeEx " & _
"WHERE AlertTypeEx.Alert = '" & Alert.Value & "' " & _
"ORDER BY AlertTypeEx.AlertType;"

End Sub
And now everything functions well.
Sorry for taking up your time..Thanks!