Create Mulitple Records based on a Form Control: Error Invalid Ent

B

blobb

Hopefully I will be clear about what I am attempting to accomplish here.
I have a tabbed control with two main subforms [Index Form] and [Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered into the
first main subform [Index Form]!PregNum, I want to automatically create the
number of pregnancies in the 7 subforms of the [Pregnancy] subform. I found
some code online that looked as though it would automatically create the
records in the Pregnancy table (where the [Pregnancy] form & pregnancy 7
subforms are looking for their data). This code seems to be working up to
the point of requerying the subform and/or subforms(s). After the code runs
(from the “Create Pregnancies†button on the [Index Form]!) I attempt to go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked at the
IndexCase table and the Pregnancy table and both tables say that PregID are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is the code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "', " &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
 
B

blobb

Okay so I tried...I make the LSQL references comments and added db.Execute
CreatePregNum which was an SQL INSERT INTO query (pasted in below) but now I
am getting another error "run-time error '3078': The Microsoft Jet database
engine cannot find the input table or query". Make sure it exists and that
its name is spelled correctly." Everything looks okay to me (but what do I
know at this point!). Can you see what I am doing wrong now?
*****VBA CODE (modified)****db.Execute CreatePregNum

******SQL QUERY CODE (Query Name: CreatePregNum)******
INSERT INTO Pregnancy ( ContactID, IndexID, PregID )
VALUES (ContactID, IndexID, LCntr);

Thank you for your help!

blobb

Alex Dybenko said:
Hi,
put a stop here:
db.Execute LSQL

and try to run result of LSQL with a new query (paste sql in a new query sql
windows), and check if it give you any error, perhaps something wrong with
quotes.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


blobb said:
Hopefully I will be clear about what I am attempting to accomplish here.
I have a tabbed control with two main subforms [Index Form] and
[Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered into the
first main subform [Index Form]!PregNum, I want to automatically create
the
number of pregnancies in the 7 subforms of the [Pregnancy] subform. I
found
some code online that looked as though it would automatically create the
records in the Pregnancy table (where the [Pregnancy] form & pregnancy 7
subforms are looking for their data). This code seems to be working up to
the point of requerying the subform and/or subforms(s). After the code
runs
(from the “Create Pregnancies†button on the [Index Form]!) I attempt to
go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked at
the
IndexCase table and the Pregnancy table and both tables say that PregID
are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is the
code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "', " &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
Click to expand...
Click to expand...
 
A

Alex Dybenko

Hi,
just try to run your CreatePregNum manually, it will tell you what's wrong

you can also put one more option for execute method:

db.Execute LSQL, dbFailOnError

then you will get run-time error if sql statement fail

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


blobb said:
Okay so I tried...I make the LSQL references comments and added db.Execute
CreatePregNum which was an SQL INSERT INTO query (pasted in below) but now
I
am getting another error "run-time error '3078': The Microsoft Jet
database
engine cannot find the input table or query". Make sure it exists and that
its name is spelled correctly." Everything looks okay to me (but what do
I
know at this point!). Can you see what I am doing wrong now?
*****VBA CODE (modified)****db.Execute CreatePregNum

******SQL QUERY CODE (Query Name: CreatePregNum)******
INSERT INTO Pregnancy ( ContactID, IndexID, PregID )
VALUES (ContactID, IndexID, LCntr);

Thank you for your help!

blobb

Alex Dybenko said:
Hi,
put a stop here:
db.Execute LSQL

and try to run result of LSQL with a new query (paste sql in a new query
sql
windows), and check if it give you any error, perhaps something wrong
with
quotes.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


blobb said:
Hopefully I will be clear about what I am attempting to accomplish
here.
I have a tabbed control with two main subforms [Index Form] and
[Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered into
the
first main subform [Index Form]!PregNum, I want to automatically create
the
number of pregnancies in the 7 subforms of the [Pregnancy] subform. I
found
some code online that looked as though it would automatically create
the
records in the Pregnancy table (where the [Pregnancy] form & pregnancy
7
subforms are looking for their data). This code seems to be working up
to
the point of requerying the subform and/or subforms(s). After the
code
runs
(from the “Create Pregnancies†button on the [Index Form]!) I attempt
to
go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked at
the
IndexCase table and the Pregnancy table and both tables say that PregID
are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is the
code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "', " &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg
Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
Click to expand...
Click to expand...
Click to expand...
 
B

blobb

Oh wow that worked well. I figured out what was wrong by using the
dbFailOnError statement. the "Invalid Entry" message was because the field
following the PregID in the Pregnancy table was not accounted for in the code
and had a validation rule associated with it. (the validation text was not
specific). So even though I got the code to populate a table (temporary), it
wont populate a table that has more fields than those mentioned in the SQL
code. Since I am asking this here, do you know of a way to insert into my
table with blank and/or default values for the rest of the fields? The
quotes and single quotes seem to be very complex for this command and I was
just wondering if there was a simpiler solution that I can't seem to come up
with. Thanks for all your help the troubleshooting was what I was really
struggling with.

blobb

Alex Dybenko said:
Hi,
just try to run your CreatePregNum manually, it will tell you what's wrong

you can also put one more option for execute method:

db.Execute LSQL, dbFailOnError

then you will get run-time error if sql statement fail

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


blobb said:
Okay so I tried...I make the LSQL references comments and added db.Execute
CreatePregNum which was an SQL INSERT INTO query (pasted in below) but now
I
am getting another error "run-time error '3078': The Microsoft Jet
database
engine cannot find the input table or query". Make sure it exists and that
its name is spelled correctly." Everything looks okay to me (but what do
I
know at this point!). Can you see what I am doing wrong now?
*****VBA CODE (modified)****
'Create SQL to insert item numbers 1 to PregNum into table pregnancy

Do Until PregCntr = PregNum

'LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
'LSQL = LSQL & " values ("
'LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "', "
&
PregCntr & ")"


'Perform SQL
'db.Execute LSQL
Click to expand...
db.Execute CreatePregNum
'Increment counter variable
PregCntr = PregCntr + 1
Loop
Click to expand...

******SQL QUERY CODE (Query Name: CreatePregNum)******
INSERT INTO Pregnancy ( ContactID, IndexID, PregID )
VALUES (ContactID, IndexID, LCntr);

Thank you for your help!

blobb

Alex Dybenko said:
Hi,
put a stop here:
db.Execute LSQL

and try to run result of LSQL with a new query (paste sql in a new query
sql
windows), and check if it give you any error, perhaps something wrong
with
quotes.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


Hopefully I will be clear about what I am attempting to accomplish
here.
I have a tabbed control with two main subforms [Index Form] and
[Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered into
the
first main subform [Index Form]!PregNum, I want to automatically create
the
number of pregnancies in the 7 subforms of the [Pregnancy] subform. I
found
some code online that looked as though it would automatically create
the
records in the Pregnancy table (where the [Pregnancy] form & pregnancy
7
subforms are looking for their data). This code seems to be working up
to
the point of requerying the subform and/or subforms(s). After the
code
runs
(from the “Create Pregnancies†button on the [Index Form]!) I attempt
to
go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked at
the
IndexCase table and the Pregnancy table and both tables say that PregID
are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is the
code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "', " &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg
Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
Click to expand...
Click to expand...
Click to expand...
 
A

Alex Dybenko

Hi,
if certain field is not required - then you don't need to list it in insert
statement, so just leave it and it will be filled with Null or default
value. If you have validation rule - make sure that default value meet it

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

blobb said:
Oh wow that worked well. I figured out what was wrong by using the
dbFailOnError statement. the "Invalid Entry" message was because the
field
following the PregID in the Pregnancy table was not accounted for in the
code
and had a validation rule associated with it. (the validation text was
not
specific). So even though I got the code to populate a table (temporary),
it
wont populate a table that has more fields than those mentioned in the SQL
code. Since I am asking this here, do you know of a way to insert into my
table with blank and/or default values for the rest of the fields? The
quotes and single quotes seem to be very complex for this command and I
was
just wondering if there was a simpiler solution that I can't seem to come
up
with. Thanks for all your help the troubleshooting was what I was really
struggling with.

blobb

Alex Dybenko said:
Hi,
just try to run your CreatePregNum manually, it will tell you what's
wrong

you can also put one more option for execute method:

db.Execute LSQL, dbFailOnError

then you will get run-time error if sql statement fail

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


blobb said:
Okay so I tried...I make the LSQL references comments and added
db.Execute
CreatePregNum which was an SQL INSERT INTO query (pasted in below) but
now
I
am getting another error "run-time error '3078': The Microsoft Jet
database
engine cannot find the input table or query". Make sure it exists and
that
its name is spelled correctly." Everything looks okay to me (but what
do
I
know at this point!). Can you see what I am doing wrong now?
*****VBA CODE (modified)****
'Create SQL to insert item numbers 1 to PregNum into table
pregnancy

Do Until PregCntr = PregNum

'LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
'LSQL = LSQL & " values ("
'LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "',
"
&
PregCntr & ")"


'Perform SQL
'db.Execute LSQL

db.Execute CreatePregNum

'Increment counter variable
PregCntr = PregCntr + 1
Loop

******SQL QUERY CODE (Query Name: CreatePregNum)******
INSERT INTO Pregnancy ( ContactID, IndexID, PregID )
VALUES (ContactID, IndexID, LCntr);

Thank you for your help!

blobb

:

Hi,
put a stop here:
db.Execute LSQL

and try to run result of LSQL with a new query (paste sql in a new
query
sql
windows), and check if it give you any error, perhaps something wrong
with
quotes.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


Hopefully I will be clear about what I am attempting to accomplish
here.
I have a tabbed control with two main subforms [Index Form] and
[Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered
into
the
first main subform [Index Form]!PregNum, I want to automatically
create
the
number of pregnancies in the 7 subforms of the [Pregnancy] subform.
I
found
some code online that looked as though it would automatically create
the
records in the Pregnancy table (where the [Pregnancy] form &
pregnancy
7
subforms are looking for their data). This code seems to be working
up
to
the point of requerying the subform and/or subforms(s). After the
code
runs
(from the “Create Pregnancies†button on the [Index Form]!) I
attempt
to
go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked
at
the
IndexCase table and the Pregnancy table and both tables say that
PregID
are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is
the
code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table
pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "',
" &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg
Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
Click to expand...
Click to expand...
Click to expand...
 
B

blobb

thank you so much! that really clarified what was going on!

I appreciate it!

blobb

Alex Dybenko said:
Hi,
if certain field is not required - then you don't need to list it in insert
statement, so just leave it and it will be filled with Null or default
value. If you have validation rule - make sure that default value meet it

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

blobb said:
Oh wow that worked well. I figured out what was wrong by using the
dbFailOnError statement. the "Invalid Entry" message was because the
field
following the PregID in the Pregnancy table was not accounted for in the
code
and had a validation rule associated with it. (the validation text was
not
specific). So even though I got the code to populate a table (temporary),
it
wont populate a table that has more fields than those mentioned in the SQL
code. Since I am asking this here, do you know of a way to insert into my
table with blank and/or default values for the rest of the fields? The
quotes and single quotes seem to be very complex for this command and I
was
just wondering if there was a simpiler solution that I can't seem to come
up
with. Thanks for all your help the troubleshooting was what I was really
struggling with.

blobb

Alex Dybenko said:
Hi,
just try to run your CreatePregNum manually, it will tell you what's
wrong

you can also put one more option for execute method:

db.Execute LSQL, dbFailOnError

then you will get run-time error if sql statement fail

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


Okay so I tried...I make the LSQL references comments and added
db.Execute
CreatePregNum which was an SQL INSERT INTO query (pasted in below) but
now
I
am getting another error "run-time error '3078': The Microsoft Jet
database
engine cannot find the input table or query". Make sure it exists and
that
its name is spelled correctly." Everything looks okay to me (but what
do
I
know at this point!). Can you see what I am doing wrong now?
*****VBA CODE (modified)****
'Create SQL to insert item numbers 1 to PregNum into table
pregnancy

Do Until PregCntr = PregNum

'LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
'LSQL = LSQL & " values ("
'LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "',
"
&
PregCntr & ")"


'Perform SQL
'db.Execute LSQL

db.Execute CreatePregNum

'Increment counter variable
PregCntr = PregCntr + 1
Loop

******SQL QUERY CODE (Query Name: CreatePregNum)******
INSERT INTO Pregnancy ( ContactID, IndexID, PregID )
VALUES (ContactID, IndexID, LCntr);

Thank you for your help!

blobb

:

Hi,
put a stop here:
db.Execute LSQL

and try to run result of LSQL with a new query (paste sql in a new
query
sql
windows), and check if it give you any error, perhaps something wrong
with
quotes.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


Hopefully I will be clear about what I am attempting to accomplish
here.
I have a tabbed control with two main subforms [Index Form] and
[Pregnancy],
and [Pregnancy] has 7 tabbed subforms. When a number is entered
into
the
first main subform [Index Form]!PregNum, I want to automatically
create
the
number of pregnancies in the 7 subforms of the [Pregnancy] subform.
I
found
some code online that looked as though it would automatically create
the
records in the Pregnancy table (where the [Pregnancy] form &
pregnancy
7
subforms are looking for their data). This code seems to be working
up
to
the point of requerying the subform and/or subforms(s). After the
code
runs
(from the “Create Pregnancies†button on the [Index Form]!) I
attempt
to
go
to the [Pregnancy] tab, and get this error: Invalid Entry. I looked
at
the
IndexCase table and the Pregnancy table and both tables say that
PregID
are
indexed as “YES (Duplicates OK)â€. Am I missing a major error in my
thought/coding process? Any help would be appreciated! Attached is
the
code
that I am attempting to use.


Private Sub Create_Records_Click()

Dim db As Database
Dim LSQL As String
Dim PregCntr As Integer
Dim PregNum As Integer
Dim pfrm As Object


'Establish connection to current database
Set db = CurrentDb()

PregCntr = 1
PregNum = Forms![Contacts Display]![Index Form]!PregNum

'Create SQL to insert item numbers 1 to PregNum into table
pregnancy

Do Until PregCntr = PregNum

LSQL = "insert into pregnancy (ContactID, IndexID, PregID)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & ContactID & "', ‘" & "'" & IndexID & "',
" &
PregCntr & ")"


'Perform SQL
db.Execute LSQL

'Increment counter variable
PregCntr = PregCntr + 1
Loop

'Requery subform that new records are listing
Forms![Contacts Display]![Pregnancy].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Course
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Diamox
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - General Preg
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - IH After
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - MedSurg
Interventions
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Newborn
Subform].Requery
Forms![Contacts Display]![Pregnancy]![Pregnancy - Present Status
Subform].Requery
End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Inserting a concatenated string into a text field 2
Trying to set a field value based on another form 6
requery of data viewed on a subform 2
Synching subforms based on same table in a tabbed control...Help 1
Referring to Control on a Subform held in Tabs (Pages) on Form 6
Using VBA to change background color of a field on a form 2
Form/Subform/Command Button to Open Form - Type Mismatch Error 2
Unhiding a detail form by double-clicking the primary key in a sub 2

Top