vba - 如何在 MS Access 中比较 2 个表单的值？

Question

所以我有一个包含 20 个问题的表格。问题是从我制作的表格中调用的。代码如下：

Dim a As Integer
Dim txtbox(19) As TextBox
dim strUsedQuestions as string :strUsedQuestions =",0,"
dim rndNum as integer 

For a = 1 To 20
    Do while instr( 1,   strUsedQuestions, "," & rndNum & ",") > 0 then ' 
       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

代码从表中随机调用 20 个不同的问题（表中有 30 个问题），现在我想拆分这 20 个问题并制作另一个表格，因此有 1 个表格有 10 个问题，2 个表格有 10 个问题，但当然问题不能一样，有什么想法我该怎么做？ty

标签： vbams-access