13-12-2010, 06:49
|
|
|
חבר מתאריך: 14.11.10
הודעות: 66
|
|
תחליף את הקוד שלך בזה
קוד:
Private Sub Command3_Click()
Dim sql As String, intX As Integer
Dim qdfLoop As QueryDef, Qry As QueryDef
For Each qdfLoop In CurrentDb.QueryDefs
If qdfLoop.Name = "Query2" Then DoCmd.DeleteObject acQuery, "Query2"
Next qdfLoop
If Text0.Value = 0 Then Exit Sub
intX = Text0.Value
sql = "SELECT TOP " & intX & " * FROM tbName ORDER BY Rnd([ID]);"
Set Qry = CurrentDb.CreateQueryDef("Query2", sql)
DoCmd.OpenQuery "Query2"
End Sub
בהצלחה
|