Running query from form

  • Thread starter Thread starter Dudley
  • Start date Start date
D

Dudley

I have a command button on a form to run a query for the current record:

On Error GoTo Err_Company_Start_Click
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

Dim stDocName As String

stDocName = "CompanyStart"
DoCmd.OpenQuery stDocName, , , "[EnvelopeNumber]='" &
Me![EnvelopeNumber] & "'"


Exit_Company_Start_Click:
Exit Sub

Err_Company_Start_Click:
MsgBox Err.Description
Resume Exit_Company_Start_Click

I get a message 'Wrong number of arguments or invalid proeprty assignment'.

Thanks for any help.
Dudley
 
It would probably help to see the SQL-statement of the query...

Regards

Jeff Boyce
Microsoft Office/Access MVP
 
SELECT [Company].[EnvelopeNumber], "1010=" & [Company].[CompanyName] & " " &
[Company].[LIMITED] AS NewCompanyName, "0011" AS PackageReference,
"CompanyIncorporation" AS FormIdentifier, "6103=" &
[Company].[EnvelopeNumber] AS Envelope, "1038=" &
Format([DateSigned],'yyyy-mm-dd') AS SignatureDate, "1040=" & [CompanyType]
AS TypeOfCompany, "1605=" & [Company].[Country] AS CountryWhere,
"1024="+[Company].[Premise] AS ROPremise, "1025="+[Company].[Street] AS
ROStreet, "1026="+[Company].[Thoroughfare] AS RODistrict,
"1027="+[Company].[PostTown] AS ROTown, "1028="+[Company].[County] AS
ROCounty, "CountryCode=" & [CountryCode] AS CodeOfCountry,
"1021="+[Company].[PostCode] AS ROPostcode, "Articles="+[Articles] AS
ArticlesIfAny, "RestrictedArticles="+[RestrictedArticles] AS
RestrictedArticlesIfAny
FROM Company;

Thanks
Dudley

Jeff Boyce said:
It would probably help to see the SQL-statement of the query...

Regards

Jeff Boyce
Microsoft Office/Access MVP

Dudley said:
I have a command button on a form to run a query for the current record:

On Error GoTo Err_Company_Start_Click
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

Dim stDocName As String

stDocName = "CompanyStart"
DoCmd.OpenQuery stDocName, , , "[EnvelopeNumber]='" &
Me![EnvelopeNumber] & "'"


Exit_Company_Start_Click:
Exit Sub

Err_Company_Start_Click:
MsgBox Err.Description
Resume Exit_Company_Start_Click

I get a message 'Wrong number of arguments or invalid proeprty
assignment'.

Thanks for any help.
Dudley
Click to expand...
Click to expand...
 
DoCmd.Open query doesn't support a where condition. Consider creating a form
so your code will work.
 
Thanks for the explanation.
Dudley

Duane Hookom said:
DoCmd.Open query doesn't support a where condition. Consider creating a form
so your code will work.

--
Duane Hookom
Microsoft Access MVP


Dudley said:
I have a command button on a form to run a query for the current record:

On Error GoTo Err_Company_Start_Click
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

Dim stDocName As String

stDocName = "CompanyStart"
DoCmd.OpenQuery stDocName, , , "[EnvelopeNumber]='" &
Me![EnvelopeNumber] & "'"


Exit_Company_Start_Click:
Exit Sub

Err_Company_Start_Click:
MsgBox Err.Description
Resume Exit_Company_Start_Click

I get a message 'Wrong number of arguments or invalid proeprty assignment'.

Thanks for any help.
Dudley
Click to expand...
Click to expand...
 
Back
Top