←←←/Access/サンプルデータ作成

ID　　|オートナンバー型
日付|日付/時刻型
数量|数値型
品番|テキスト型

T_サンプル/W_サンプル---->テーブル作成


Sub サンプルデータ作成()
   Dim data1 As Long, data2 As Long
   Dim num1 As Integer, num2 As Integer
   Dim myArray As Varint
   Dim totalNum As Integer
   Dim i As Integer
   Dim myRs As RecordSet
   Dim mySQL As String
 
   mySQL = "DELETE * FROM W_サンプル"
   DoCmd.RunSQL mySQL

   mySQL = "DELETE * FROM T_サンプル"

   DoCmd.RunSQL mySQL 

   data1 = CLng( # 9/1/2008 # )

   data2 = CLng( # 9/30/2008 # )

   num1 = 1

   num2 = 20

   myArray = Array( "G001" , "G002" , "G003" , "G004" )

   totalNum = 100

   Set myRs = CurrentDb.OpenRecordSet( "W_サンプル" , dbOpenTable )

   Randomize

   For  i = 1  To totalNum

       With myRs

          .AddNew

          !日付 = CDate ( Fix( Rnd * ( data2 - data1 + 1 ) + data1 ))

          !数量 = Fix ( Rnd * ( Num2 - Num1 + 1 ) + Num1 )

          !品番 = myArray ( Fix ( Rnd * 4 ))

          .Update

       End With

    Next

    myRs.Close

    Set myRs = Nothing

    mySQL = "INSERT  INTO  T_サンプル(日付,数量,品番)"  & 

　　　　　　　　"SELECT 日付,数量,品番 FROM W_サンプル ORDER BY 日付;"

    DoCmd.RunSQL mySQL

    Application.Quit

End Sub