• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Insert Multiple Records

Insert Multiple Records

Insert Multiple Records

API Declarations


Option Explicit




Rate Insert Multiple Records

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim d As Integer, h As Integer
For d = 1 To 31
  For h = 8 To 17
    DoCmd.RunSQL "INSERT INTO Appointment (LessonDate,StartTime,EndTime) VALUES (#01/" & d & "/2005#,"#" & h & ":00#,#" & h+1 & ":00#)"
  Next h
Next d
End Sub