DoCmd.GoToRecord , , , Y会造成显示新增加记录行（空行）？

itez

下面语句是随机显示表中记录对吧，可从实际效果来看会显示出空白记录，而表中唯一空白记录只有最后一行的新增加记录行，这样的情况可以避免吗？如何做呢，谢谢！

    X = Me.Recordset.RecordCount
    Y = Int((X * Rnd) + 1)
    DoCmd.GoToRecord , , , Y
    Me.Repaint

andymark

Y值超出记录范围, 随机数字必须控制在效范围内

tmtony

使用 Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
来设定上下限

itez

原帖由 tmtony 于 2007-11-30 09:52 发表
使用 Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
来设定上下限

哦，那要想在表中的第一条到最后一条记录中随机取记录，是不是应该这样写呢：

    X = Me.Recordset.RecordCount
    Y = Int((X -1+1) * Rnd+1)
    DoCmd.GoToRecord , , , Y
    Me.Repaint

谢谢！

itez

上面的方法如果在理论上没有问题的话，那么在实际使用时仍然会有问题，下面是以前一位论坛网友上传的抽奖程序，为了更容易的说明问题，待抽奖的数据只保留两条记录。情理上讲，实际效果应该是在这两条记录中随机选出一条，但结果却是有“空白记录”的情况出现！ 请各位老大指教，谢谢！

itez

需要单独再开个帖子吗？

tmtony

X = Me.Recordset.RecordCount
    Randomize  '确保真正随机数
    Y = Int((X * Rnd) + 1)
    DoCmd.GoToRecord , , acGoTo, Y   ' 原句为 DoCmd.GoToRecord , , , Y