1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| 'Determine le nombre d'enregistrement
Set qryNombre = db.CreateQueryDef("")
qryNombre.SQL = "select * from JOUEUR;"
qryNombre.ReturnsRecords = True
Set recNombre = qryNombre.OpenRecordset()
'Recupere le nombre d'enregistrement
recNombre.MoveLast
num = recNombre.RecordCount
j = 0
z = 1
Randomize
For i = 1 To num
'Requete pour nom et prénom des joueurs
Set qryTirage = db.CreateQueryDef("")
qryTirage.SQL = "select Nom_Joueur, Prenom_Joueur from JOUEUR where ID_Joueur=" & i & ";"
qryTirage.ReturnsRecords = True
Set recTirage = qryTirage.OpenRecordset()
'Sort un numero entre 1 et 16 au hasard
hasard = CInt(Int((16 * Rnd())))
If (DBGrid1(hasard).FirstRow = "") Then
Set Data1(hasard).Recordset = recTirage
Else [b][color=red](->c'est ici que ça bloque !!!!)[/color][/b]
DBGrid1(hasard).AllowAddNew = True
Set Data1(hasard).Recordset = recTirage
End If
Next |
Partager