ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   HELP PLEASE: getting multiple rows into access database in a new r (https://www.excelbanter.com/excel-programming/435787-help-please-getting-multiple-rows-into-access-database-new-r.html)

Sam

HELP PLEASE: getting multiple rows into access database in a new r
 
Hi All,

How can I make multiple data for the same column go in access.

eg: here is what My excel table looks like:

Student_ID Subjects Grades

123456 Eng A
123456 Hist B
123456 Math B+
123456 Bio B-

here is what I have in access for recordset:

With rs
.AddNew
.Fields("Student_ID") = Range("A3").Value
.Fields("Subject") = Range("B3").Value
.Fields("Grades") = Range("C3").Value

.Update
End With
r = r + 1

Thanks in advance

Mike

HELP PLEASE: getting multiple rows into access database in a new r
 
Not sure what your asking
dim r as long
r=3
Range("A" & r).Value

"sam" wrote:

Hi All,

How can I make multiple data for the same column go in access.

eg: here is what My excel table looks like:

Student_ID Subjects Grades

123456 Eng A
123456 Hist B
123456 Math B+
123456 Bio B-

here is what I have in access for recordset:

With rs
.AddNew
.Fields("Student_ID") = Range("A3").Value
.Fields("Subject") = Range("B3").Value
.Fields("Grades") = Range("C3").Value

.Update
End With
r = r + 1

Thanks in advance


Sam

HELP PLEASE: getting multiple rows into access database in a n
 
Oops.. Sorry I fogot to mention one thing.

There is a button "Submit" on the excel sheet that exports all of the
student data at once in the database.. I want to insert multiple student data
each in a seperate row.. all at once..

"Mike" wrote:

Not sure what your asking
dim r as long
r=3
Range("A" & r).Value

"sam" wrote:

Hi All,

How can I make multiple data for the same column go in access.

eg: here is what My excel table looks like:

Student_ID Subjects Grades

123456 Eng A
123456 Hist B
123456 Math B+
123456 Bio B-

here is what I have in access for recordset:

With rs
.AddNew
.Fields("Student_ID") = Range("A3").Value
.Fields("Subject") = Range("B3").Value
.Fields("Grades") = Range("C3").Value

.Update
End With
r = r + 1

Thanks in advance



All times are GMT +1. The time now is 08:06 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com