Create a number of records equal to the value of a table field
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}
0
I have a table with ID, product number, product description, qty fields.
Now I want to create a new table containing a quantity of records given by the qty field of the parent table.
For example, if the parent table has a record with qty = 6 then in the child table it should create 6 records with serial numbers from 1 to 6.
access-vba
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
add a comment |
0
I have a table with ID, product number, product description, qty fields.
Now I want to create a new table containing a quantity of records given by the qty field of the parent table.
For example, if the parent table has a record with qty = 6 then in the child table it should create 6 records with serial numbers from 1 to 6.
access-vba
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
add a comment |
0
0
0
I have a table with ID, product number, product description, qty fields.
Now I want to create a new table containing a quantity of records given by the qty field of the parent table.
For example, if the parent table has a record with qty = 6 then in the child table it should create 6 records with serial numbers from 1 to 6.
access-vba
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
I have a table with ID, product number, product description, qty fields.
Now I want to create a new table containing a quantity of records given by the qty field of the parent table.
For example, if the parent table has a record with qty = 6 then in the child table it should create 6 records with serial numbers from 1 to 6.
access-vba
access-vba
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
edited Nov 22 '18 at 22:56
Lee Mac
6,27941746
6,27941746
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
asked Nov 22 '18 at 14:27
Shahid KhanShahid Khan
11
11
add a comment |
add a comment |
2 Answers
2
active
oldest
votes
1
You can use a simple loop like this:
Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer
Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5
For Record = 1 To Records
rs.AddNew
rs!SomeID.Value = Record
rs!Field1.Value = SomeValue
rs!Field2.Value = SomeOtherValue
rs!Field3.Value = YetAnotherValue
rs.Update
Next
rs.Close
Set rs = Nothing
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
add a comment |
1
You can use the code below.
Dim rsTable1 as Recordset
Dim rsTable2 as Recordset
Dim Table1qty as integer
Dim i as integer
set rsTable1 = CurrentDb.openrecordset("SELECT qty FROM Table1")
set rsTable2 = CurrentDB.openRecordSet("SELECT * From Table2")
if rsTable1.RecordCount > 0 then
while not rsTable1.EOF
Table1qty = rsTable("qty")
for i = 1 to Table1qty
rsTable2.Addnew
rsTable2!SerialNumber.Value = i
rsTable2!SomeField.Value = SomeValue
rsTable2.Update
next
rsTable1.movenext
wend
end
answered Nov 23 '18 at 2:49
ElwickElwick
7617
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53433104%2fcreate-a-number-of-records-equal-to-the-value-of-a-table-field%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
1
You can use a simple loop like this:
Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer
Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5
For Record = 1 To Records
rs.AddNew
rs!SomeID.Value = Record
rs!Field1.Value = SomeValue
rs!Field2.Value = SomeOtherValue
rs!Field3.Value = YetAnotherValue
rs.Update
Next
rs.Close
Set rs = Nothing
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
add a comment |
1
You can use a simple loop like this:
Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer
Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5
For Record = 1 To Records
rs.AddNew
rs!SomeID.Value = Record
rs!Field1.Value = SomeValue
rs!Field2.Value = SomeOtherValue
rs!Field3.Value = YetAnotherValue
rs.Update
Next
rs.Close
Set rs = Nothing
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
add a comment |
1
1
1
You can use a simple loop like this:
Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer
Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5
For Record = 1 To Records
rs.AddNew
rs!SomeID.Value = Record
rs!Field1.Value = SomeValue
rs!Field2.Value = SomeOtherValue
rs!Field3.Value = YetAnotherValue
rs.Update
Next
rs.Close
Set rs = Nothing
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
You can use a simple loop like this:
Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer
Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5
For Record = 1 To Records
rs.AddNew
rs!SomeID.Value = Record
rs!Field1.Value = SomeValue
rs!Field2.Value = SomeOtherValue
rs!Field3.Value = YetAnotherValue
rs.Update
Next
rs.Close
Set rs = Nothing
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
answered Nov 22 '18 at 15:47
GustavGustav
31.1k52137
31.1k52137
add a comment |
add a comment |
1
You can use the code below.
Dim rsTable1 as Recordset
Dim rsTable2 as Recordset
Dim Table1qty as integer
Dim i as integer
set rsTable1 = CurrentDb.openrecordset("SELECT qty FROM Table1")
set rsTable2 = CurrentDB.openRecordSet("SELECT * From Table2")
if rsTable1.RecordCount > 0 then
while not rsTable1.EOF
Table1qty = rsTable("qty")
for i = 1 to Table1qty
rsTable2.Addnew
rsTable2!SerialNumber.Value = i
rsTable2!SomeField.Value = SomeValue
rsTable2.Update
next
rsTable1.movenext
wend
end
answered Nov 23 '18 at 2:49
ElwickElwick
7617
add a comment |
1
You can use the code below.
Dim rsTable1 as Recordset
Dim rsTable2 as Recordset
Dim Table1qty as integer
Dim i as integer
set rsTable1 = CurrentDb.openrecordset("SELECT qty FROM Table1")
set rsTable2 = CurrentDB.openRecordSet("SELECT * From Table2")
if rsTable1.RecordCount > 0 then
while not rsTable1.EOF
Table1qty = rsTable("qty")
for i = 1 to Table1qty
rsTable2.Addnew
rsTable2!SerialNumber.Value = i
rsTable2!SomeField.Value = SomeValue
rsTable2.Update
next
rsTable1.movenext
wend
end
answered Nov 23 '18 at 2:49
ElwickElwick
7617
add a comment |
1
1
1
You can use the code below.
Dim rsTable1 as Recordset
Dim rsTable2 as Recordset
Dim Table1qty as integer
Dim i as integer
set rsTable1 = CurrentDb.openrecordset("SELECT qty FROM Table1")
set rsTable2 = CurrentDB.openRecordSet("SELECT * From Table2")
if rsTable1.RecordCount > 0 then
while not rsTable1.EOF
Table1qty = rsTable("qty")
for i = 1 to Table1qty
rsTable2.Addnew
rsTable2!SerialNumber.Value = i
rsTable2!SomeField.Value = SomeValue
rsTable2.Update
next
rsTable1.movenext
wend
end
answered Nov 23 '18 at 2:49
ElwickElwick
7617
You can use the code below.
Dim rsTable1 as Recordset
Dim rsTable2 as Recordset
Dim Table1qty as integer
Dim i as integer
set rsTable1 = CurrentDb.openrecordset("SELECT qty FROM Table1")
set rsTable2 = CurrentDB.openRecordSet("SELECT * From Table2")
if rsTable1.RecordCount > 0 then
while not rsTable1.EOF
Table1qty = rsTable("qty")
for i = 1 to Table1qty
rsTable2.Addnew
rsTable2!SerialNumber.Value = i
rsTable2!SomeField.Value = SomeValue
rsTable2.Update
next
rsTable1.movenext
wend
end
answered Nov 23 '18 at 2:49
ElwickElwick
7617
answered Nov 23 '18 at 2:49
ElwickElwick
7617
answered Nov 23 '18 at 2:49
ElwickElwick
7617
answered Nov 23 '18 at 2:49
ElwickElwick
7617
7617
add a comment |
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53433104%2fcreate-a-number-of-records-equal-to-the-value-of-a-table-field%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
