VBA— Make a variable DAO.QueryDef be read in a sub
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}
Is it possible to have a Dao.DataBase as a parameter that is passed through a sub?
Public Sub FillInData(InfoArray() As Variant, qdf2 As DAO.QueryDef, k As Integer, rec_set_fill1 As Recordset, rec_set_fill As Recordset, DataBase As DAO.DataBase, TheId As Long, Weekly_Working As Integer)
With qdf2
the problem is that it gives me an error that item is not found in this collection, so im assuming that its not reading from the Dao.Database or something
excel vba excel-vba
asked Nov 23 '18 at 13:24
BonangBonang
266
add a comment |
Is it possible to have a Dao.DataBase as a parameter that is passed through a sub?
Public Sub FillInData(InfoArray() As Variant, qdf2 As DAO.QueryDef, k As Integer, rec_set_fill1 As Recordset, rec_set_fill As Recordset, DataBase As DAO.DataBase, TheId As Long, Weekly_Working As Integer)
With qdf2
the problem is that it gives me an error that item is not found in this collection, so im assuming that its not reading from the Dao.Database or something
excel vba excel-vba
asked Nov 23 '18 at 13:24
BonangBonang
266
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16
add a comment |
Is it possible to have a Dao.DataBase as a parameter that is passed through a sub?
Public Sub FillInData(InfoArray() As Variant, qdf2 As DAO.QueryDef, k As Integer, rec_set_fill1 As Recordset, rec_set_fill As Recordset, DataBase As DAO.DataBase, TheId As Long, Weekly_Working As Integer)
With qdf2
the problem is that it gives me an error that item is not found in this collection, so im assuming that its not reading from the Dao.Database or something
excel vba excel-vba
asked Nov 23 '18 at 13:24
BonangBonang
266
Is it possible to have a Dao.DataBase as a parameter that is passed through a sub?
Public Sub FillInData(InfoArray() As Variant, qdf2 As DAO.QueryDef, k As Integer, rec_set_fill1 As Recordset, rec_set_fill As Recordset, DataBase As DAO.DataBase, TheId As Long, Weekly_Working As Integer)
With qdf2
the problem is that it gives me an error that item is not found in this collection, so im assuming that its not reading from the Dao.Database or something
excel vba excel-vba
excel vba excel-vba
asked Nov 23 '18 at 13:24
BonangBonang
266
asked Nov 23 '18 at 13:24
BonangBonang
266
edited Nov 23 '18 at 14:18
Bonang
asked Nov 23 '18 at 13:24
BonangBonang
266
asked Nov 23 '18 at 13:24
BonangBonang
266
asked Nov 23 '18 at 13:24
BonangBonang
266
266
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16
add a comment |
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16
add a comment |
1 Answer
1
active
oldest
votes
If you create using CreateQueryDef with a null string for the name, it isn't appended to the querydefs collection - hence "item not found in collection". Name it something and it should exist long enough to get passed.
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
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
});
}
});
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%2f53447541%2fvba-make-a-variable-dao-querydef-be-read-in-a-sub%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
If you create using CreateQueryDef with a null string for the name, it isn't appended to the querydefs collection - hence "item not found in collection". Name it something and it should exist long enough to get passed.
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
add a comment |
If you create using CreateQueryDef with a null string for the name, it isn't appended to the querydefs collection - hence "item not found in collection". Name it something and it should exist long enough to get passed.
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
add a comment |
If you create using CreateQueryDef with a null string for the name, it isn't appended to the querydefs collection - hence "item not found in collection". Name it something and it should exist long enough to get passed.
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
If you create using CreateQueryDef with a null string for the name, it isn't appended to the querydefs collection - hence "item not found in collection". Name it something and it should exist long enough to get passed.
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
answered Nov 23 '18 at 14:55
Harassed DadHarassed Dad
3,4641612
3,4641612
add a comment |
add a comment |
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.
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%2f53447541%2fvba-make-a-variable-dao-querydef-be-read-in-a-sub%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
Are you sure you've registered the right DAO library? It works for me with DAO 3.51 but I get an error using DAO 3.6 - but that might just be my setup
– Harassed Dad
Nov 23 '18 at 13:31
I have made Set qdf = Dbse.CreateQueryDef(vbNullString, SQL_query) with the SQL_query as some string, but then this returns nothing in the FillInData Sub
– Bonang
Nov 23 '18 at 14:16