VB経由でのMicrosoft Accessでの複数レコードの挿入

Question

Access内にDBを作成し、データ型が "Short Text"になっています。

今、Visual Basicを使用してこのテーブルにレコードを記録しようとしています。これまでのところコードを書いていますが、エラーを修正するためには助けが必要です。コンパイルエラーが発生しています：

Duplicate declaration in current scope

私はそれが何であるか理解できません。

Option Compare Database 

Sub arrayData() 

Dim CustomerName() As Variant 
Dim num As Integer, dbs As Database, InsertRecord As String 
Dim CustomerID As Long, num1 As Long, CustomerName As String 

Set dbs = CurrentDb() 
CustomerID = 0 
For num1 = 0 To 49999 

CustomerID = CustomerID + 1 
CustomerName = Array("Peter", "Mary") 
CustomerAddress = Array("163 City Rd, SOUTHBANK", "65 Orange St, BENTLEIGH EAST") 
CustomerPhoneAddress = Array("0416874963", "0478937534") 
num = Int((200 - 0 + 1) * Rnd + 0) 
CustomerName = CustomerName(num) 
CustomerAddress = CustomerAddress(num) 
CustomerPhoneNo = CustomerPhoneNo(num) 
InsertRecord = "INSERT INTO Customers (CustomerID,CustomerName,CustomerAddress,CustomerPhoneNo) VALUES (" & "'" & CustomerID & "'" & "," & "'" & CustomerName & "'" & "," & "'" & CustomerAddress & "'" & "," & "'" & CustomerPhoneNo & "'" & ")" 

dbs.Execute InsertRecord 
Debug.Print CustomerID, CustomerName, CustomerAddress, CustomerPhoneNo 

Next 

End Sub 

この場合、私は何ができますか？どんな助けもありがとう。

Answer 1

使用する言語は、「Visual Basic for Applications」（VBA）です。この言語は行指向です。少なくとも1つの空白が先行する行継続文字（_）を使用していない限り、1つの文が1行に収まる必要があります。

Dim CustomerID As Long, num1 As Long, CustomerName As String, CustomerAddress _ 
    As String, CustomerPhoneNo As String 

しかし、私は別の行にLongとString変数を配置し、記述します。

Dim CustomerID As Long, num1 As Long 
Dim CustomerName As String, CustomerAddress As String, CustomerPhoneNo As String 

2番目の構文エラーがInsertRecord = "INSERT INTO ...文です。ここで同じ問題。また、Int((200 - 0 + 1) * Rnd + 0)中のため- 0と+ 0良いものです

InsertRecord = "INSERT INTO CUSTOMERS (CustomerID,CustomerName," _ 
     & "CustomerAddress,CustomerPhoneNo) VALUES " _ 
     & "(" & "'" & CustomerID & "'" & "," & "'" & CustomerName & "'" & "," & "'" _ 
     & CustomerAddress & "'" & "," & "'" & CustomerPhoneNo & "'" & ")" 

---

：それは次のようになりshoul。式はInt(201 * Rnd)に相当します。

---

編集した後は、行の続きはないようです。

エラーは、次のとおりです。あなたはCustomerNameという名前の2つの変数を持っています。 、例えば

Dim CustomerName() As Variant 
Dim CustomerName As String 

配列CustomerNames名：変数名は一意でなければなりません

Dim CustomerNames() As Variant 

---

をそして、あなたはあなたのコードをインデントする必要があります。それは読むのがずっと簡単です。

Sub arrayData() 
    Dim CustomerName() As Variant 
    ... 
    CustomerID = 0 
    For num1 = 0 To 10 
     CustomerID = CustomerID + 1 
     ... 
     Debug.Print CustomerID, CustomerName, CustomerAddress, CustomerPhoneNo 
    Next 
End Sub