Call Stored Append Query

  • Thread starter Thread starter mickie
  • Start date Start date
M

mickie

I have a stored Append Query that I want to call as part of an 'If
Statement'. The If Statement is assigned to an "AfterUpdate" property
on a form.

The query is called 'qryAppendCCLogTable' and it does work when ran in
application. The SQL is;

INSERT INTO [CC Log] ( [Prop Reference], [Summary of Change] )
SELECT [Proposed Change].[Prop Reference], [Proposed Change].[Summary
of Change]
FROM [Proposed Change]
WHERE ((([Proposed Change].[Accepted As RFC])="yes"));


This is the code I have so far

- - - - - - -
Private Sub Accepted_As_RFC_AfterUpdate()

If Accepted_As_RFC.Value = "Yes" Then

MsgBox ("You are about to add this record to the Change Control
Log")

End

'This is where I want to run the query

Else
'do nothing

End

End If

End Sub
- - - - - - - -
I have tried numerous versions of code from various sources and after
two weeks am starting to want to give up!

Can anyone help pleeeease????
 
I have a stored Append Query that I want to call as part of an 'If
Statement'. The If Statement is assigned to an "AfterUpdate" property
on a form.

The query is called 'qryAppendCCLogTable' and it does work when ran in
application. The SQL is;

INSERT INTO [CC Log] ( [Prop Reference], [Summary of Change] )
SELECT [Proposed Change].[Prop Reference], [Proposed Change].[Summary
of Change]
FROM [Proposed Change]
WHERE ((([Proposed Change].[Accepted As RFC])="yes"));

This is the code I have so far

- - - - - - -
Private Sub Accepted_As_RFC_AfterUpdate()

    If Accepted_As_RFC.Value = "Yes" Then

    MsgBox ("You are about to add this record to the Change Control
Log")

    End

    'This is where I want to run the query

    Else
    'do nothing

    End

    End If

End Sub
- - - - - - - -
I have tried numerous versions of code from various sources and after
two weeks am starting to want to give up!

Can anyone help pleeeease????
Click to expand...


Did you try: DoCmd.OpenQuery 'qryAppendCCLogTable' ?


Groeten,

Peter
http://access.xps350.com
 
mickie said:
I have a stored Append Query that I want to call as part of an 'If
Statement'. The If Statement is assigned to an "AfterUpdate" property
on a form.

The query is called 'qryAppendCCLogTable' and it does work when ran in
application. The SQL is;

INSERT INTO [CC Log] ( [Prop Reference], [Summary of Change] )
SELECT [Proposed Change].[Prop Reference], [Proposed Change].[Summary
of Change]
FROM [Proposed Change]
WHERE ((([Proposed Change].[Accepted As RFC])="yes"));


This is the code I have so far

- - - - - - -
Private Sub Accepted_As_RFC_AfterUpdate()

If Accepted_As_RFC.Value = "Yes" Then

MsgBox ("You are about to add this record to the Change Control
Log")

End ?? What's the "End" for?

'This is where I want to run the query

Else
'do nothing

End
Click to expand...
Again - why is the "End" here?
PS. The "Else" branch is optional - if you wish to do nothing, then simply
omit the "Else"
End If

End Sub
- - - - - - - -
I have tried numerous versions of code from various sources and after
two weeks am starting to want to give up!

Can anyone help pleeeease????
Click to expand...

I'm not sure what the problem is. Is it that you don't know how to execute
the query? If so, try:
CurrentDB.Querydefs("qryAppendCCLogTable").Execute dbFailOnError

Or is the problem that an error occurs when you execute the query in code?
If so, we're not mindreaders - you need to tell us about the error ...
 
mickie said:
I have a stored Append Query that I want to call as part of an 'If
Statement'. The If Statement is assigned to an "AfterUpdate" property
on a form.
Click to expand...
The query is called 'qryAppendCCLogTable' and it does work when ran in
application. The SQL is;
Click to expand...
INSERT INTO [CC Log] ( [Prop Reference], [Summary of Change] )
SELECT [Proposed Change].[Prop Reference], [Proposed Change].[Summary
of Change]
FROM [Proposed Change]
WHERE ((([Proposed Change].[Accepted As RFC])="yes"));
Click to expand...
This is the code I have so far
Click to expand...
- - - - - - -
Private Sub Accepted_As_RFC_AfterUpdate()
Click to expand...
   If Accepted_As_RFC.Value = "Yes" Then
Click to expand...
   MsgBox ("You are about to add this record to the Change Control
Log")
Click to expand...
   End
Click to expand...

?? What's the "End" for?
   'This is where I want to run the query
Click to expand...
   Else
   'do nothing
Click to expand...
   End
Click to expand...

Again - why is the "End" here?
PS. The "Else" branch is optional - if you wish to do nothing, then simply
omit the "Else"


   End If
Click to expand...
End Sub
- - - - - - - -
I have tried numerous versions of code from various sources and after
two weeks am starting to want to give up!
Click to expand...
Can anyone help pleeeease????
Click to expand...

I'm not sure what the problem is. Is it that you don't know how to execute
the query? If so, try:
CurrentDB.Querydefs("qryAppendCCLogTable").Execute dbFailOnError

Or is the problem that an error occurs when you execute the query in code?
If so, we're not mindreaders - you need to tell us about the error ...- Hide quoted text -

- Show quoted text -
Click to expand...

Hi Bob

Thanks for the response.

I had tried a couple of DoCmd actions and even tried running an sql
string. None of them worked.

Saw your reply asking why the 'End' and thought good question!"
Removed the 'End' and it worked.

Thanks

mickie
 
Back
Top