Help

  • Thread starter Thread starter CribbsStyle
  • Start date Start date
C

CribbsStyle

Can anyone tell me this doesnt work...

Private Sub Frame57_AfterUpdate()
On Error Resume Next
Dim sportid As Integer
Select Case Frame57.Value
Case 1
sportid = "1"
Case 2
sportid = "2"
Case 3
sportid = "3"
Case 4
sportid = "4"
Case 5
sportid = "5"
Case 6
sportid = "6"
Case 7
sportid = "7"
Case 8
sportid = "8"
End Select
Combo170.RowSource = "Select Teams.TeamName " & _
"FROM Teams " & _
"WHERE Teams.SportID = '" & strCountry & "' " & _
"ORDER BY Teams.TeamName;"

End Sub

I have a table like this...

Teams
 
Can anyone tell me this doesnt work...

Private Sub Frame57_AfterUpdate()
On Error Resume Next
Dim sportid As Integer
Select Case Frame57.Value
Case 1
sportid = "1"
Case 2
sportid = "2"
Case 3
sportid = "3"
Case 4
sportid = "4"
Case 5
sportid = "5"
Case 6
sportid = "6"
Case 7
sportid = "7"
Case 8
sportid = "8"
End Select
Combo170.RowSource = "Select Teams.TeamName " & _
"FROM Teams " & _
"WHERE Teams.SportID = '" & strCountry & "' " & _
"ORDER BY Teams.TeamName;"

End Sub

I have a table like this...

Teams
Click to expand...

Actually I have WHERE Teams.SportID = '" & sportid & "' " & _

NVM It works now, lol
 
Actually I have WHERE Teams.SportID = '" & sportid & "' " & _

NVM It works now, lol
Click to expand...

OK, One Problem...How do i get it to store the TeamID, not the TeamName
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help needed with Duplicate Check subroutine 4
WCG Stats Sunday 01 October 2023 3
WCG Stats Tuesday 15 August 2023 5
WCG Stats Saturday 29 July 2023 3
WCG Stats Friday 22 September 2023 3
WCG Stats Thursday 31 August 2023 3
WCG Stats Friday 01 September 2023 3
WCG Stats Friday 14 July 2023 4

Back
Top