如何在MS Access中比较两个文本框?

aa

您好,我是这个网站的新手,如果您做错了什么,对不起,请随时纠正我:D这是我的问题:我在MS Access中进行某种测验,被卡住了。表单上的文本框(其中有20个),并使用此代码,我从制作的表中调用了txtboxes中的值。

Dim a As Integer
Dim txtbox(19) As TextBox

For a = 1 To 20
Controls("Txtbox" & a).Value = DLookup("Question", "questions_and_answers", "[questions_and_answers]![questionID]=Int((20 - 1 + 1) * Rnd + 1)")
Next a

现在,我不想重复这些值,因此我需要调用20个不同的值(问题),但我不知道如何,有什么帮助吗?

尼古拉·加内夫(Nikola Ganev)

如果我理解正确,那么您希望每次打开表格时都会打乱这20个问题吗?使用随机数时不允许重复的一种简单方法是存储已保存的数字。您可以初始化两个变量:

dim strUsedQuestions as string :strUsedQuestions =",0,"
dim rndNum as integer 

并将循环更改为:

For a = 1 To 20
    Do while instr( 1,   strUsedQuestions, "," & rndNum & ",") > 0 then ' change the number until it is new question
       rndNum = Int((20 - 1 + 1) * Rnd + 1)
   Loop

   Controls("Txtbox" & a).Value = DLookup("Question", "questions_and_answers", "[questions_and_answers]![questionID]=" & rndNum )
   strUsedQuestions = strUsedQuestions  & rndNum & ","
Next a

但是,这有点棘手和冒险。如果您没有足够的问题,则代码将陷入无限循环!

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

插入两个暗淡的数组作为MS Access中的文本框和组合框的列表

来自分类Dev

如何减去两个SSRS报告的文本框?

来自分类Dev

如何减去两个SSRS报告的文本框?

来自分类Dev

如何参数化两个以上的文本框

来自分类Dev

如何在python中比较两个时间字段

来自分类Dev

如何在露天javascript中比较两个noderefs

来自分类Dev

如何在Java中比较两个图像

来自分类Dev

如何在python中比较两个时区?

来自分类Dev

如何在JUnit中比较两个double列表

来自分类Dev

如何在Clojure中比较/减去两个列表

来自分类Dev

如何在Postgresql中比较两个表?

来自分类Dev

如何在android中比较两个edittext字段

来自分类Dev

如何在Windows中比较两个csv文件

来自分类Dev

如何在Java中比较两个哈希映射

来自分类Dev

如何在querybuilder中比较两个日期

来自分类Dev

如何在JavaScript中比较两个日期时间?

来自分类Dev

如何在golang中比较两个文件?

来自分类Dev

如何在shell中比较两个值?

来自分类Dev

如何在Java中比较两个arraylist <Contacts>

来自分类Dev

如何在python中比较两个列表

来自分类Dev

如何在Django中比较两个Datetime字段

来自分类Dev

如何在C#中比较两个列表?

来自分类Dev

如何在C ++中比较两个char数组?

来自分类Dev

如何在sql oracle中比较两个datetime

来自分类Dev

如何在Godot中比较两个节点坐标

来自分类Dev

如何在Matlab中比较两个Chanel

来自分类Dev

如何在php中比较两个变量

来自分类Dev

如何在Powershell中比较两个.js文件

来自分类Dev

如何在Python中比较两个以上的列表?