MS Access插入重复的行

Question

我正在尝试使用重复值填充表。我有一个表单，要求用户选择1个字符串和1个数量值。基本上，我想填充/创建一个包含x行的表，所有行都包含相同的字符串值。任何指导都会很棒，谢谢！

Answer 1

您可以通过在VBA中使用循环来实现此目的。对于循环的每次迭代，执行INSERT语句。例如，在表单上创建一个按钮，在Click事件中添加如下内容：

Private Sub Button_Click()
  Dim i as Integer
  For i = 1 to QuantityEntry
    CurrentDb.Execute "INSERT INTO [TableName] ([FieldName]) " & _
                      "VALUES ('" & Replace(StringEntry, "'", "''") & "')"
  Next
End Sub

这假设您的字符串输入字段名为StringEntry，您的数字输入称为QuantityEntry。未经测试，所以它可能不完美，但应该给你一般的想法。