Chk this out MarcMellor:
Private Sub SSTab1_Click(PreviousTab As Integer)
Adodc1.RecordSource = "SELECT(*) FROM PupilResultsData_
WHERE Module = '" & SSTab1.Tab + 1 & "'"
Adodc1.Refresh
End Sub
Try this out , it should work . I use the same kinda code to change the recordsource.
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case Me.SSTab1.Tab
Case 0
MsgBox "Zero"
Case 1
MsgBox "One"
Case 2
MsgBox "Two"...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.