Refreshen?

[Kuifje_007]

Ik heb een keuzelijst Toernooi en keuzelijsten Spelers (1 t/m 32) en Winnaars (1 t/m 31).
Als je Keuzelijst toernooi selecteert, moet die zoeken naar ingevulde toernooi. Dat lukt wel. Maar als je andere toernooi selecteert, wilt hij maar niet veranderen, maar blijft staan.

Ik heb geprobeerd om Refresh of Requery te gebruiken maar ik kom niet uit. Hij wil maar niet refreshen.


Sub TerughalenToernooiTabel()

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = CurrentProject.Connection

With rst
.ActiveConnection = CurrentProject.Connection
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Source = "SELECT Speler, Seed, Toernooi FROM tblDraw WHERE [Toernooi] = '" & [Forms]![frmToernooi]![cboToernooi] & "'"
.Open
End With

If rst.EOF = False Then

For i = 1 To 32

[Forms]![frmToernooi]("cboSpeler" & i).Value = rst!Speler
[Forms]![frmToernooi]("txtSeed" & i).Value = rst!Seed
[Forms]![frmToernooi]![cboToernooi].Value = rst!Toernooi

rst.MoveNext
Next i

rst.Close

With rst
.ActiveConnection = CurrentProject.Connection
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.Source = "SELECT Winnaar, Toernooi FROM tblToernooi WHERE Toernooi = '" & [Forms]![frmToernooi]![cboToernooi] & "'"
.Open
End With

For j = 1 To 31

[Forms]![frmToernooi]("cboWinnaar" & j).Value = rst!Winnaar
[Forms]![frmToernooi]![cboToernooi].Value = rst!Toernooi

rst.MoveNext
Next j

rst.Close

End If

Forms("frmToernooi").Refresh

End Sub

 

[Kuifje_007]

Ik kan het bestandje niet sturen blijkbaar is het te groot. Als je het bestandje wilt zien, geef me je e-mailadres en ik zal het bestandje opsturen.