Running query from form

[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

 

[Jeff Boyce]

It would probably help to see the SQL-statement of the query...

Regards

Jeff Boyce
Microsoft Office/Access MVP

 

[Dudley]

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

It would probably help to see the SQL-statement of the query...

Regards

Jeff Boyce
Microsoft Office/Access MVP

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

 

[Duane Hookom]

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

 

[Dudley]

Thanks for the explanation.
Dudley

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

--
Duane Hookom
Microsoft Access MVP

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