سلام دوستان
لطفا بگید چطور میتونم تو Access به صورت رندوم 10 تا رکورد رو حذف کنم؟؟؟؟؟؟؟
saeed1234n
پنج شنبه 14 شهریور 1392, 11:55 صبح
با سلام
دوست عزیز باید از کد زیر استفاده کنید .
Dim a As Integer
For i = 1 To 10
num = DCount("id", "mytable")
a = Int((num * Rnd) + 1)
DoCmd.SetWarnings False
STRSQL = "delete * from mytable where ID = a "
DoCmd.RunSQL STRSQL
DoCmd.SetWarnings True
Next