<div>
<div class="content wysiwyg-content">
i have a code that have to run a query and check if in the qury value is higher then 1 one and if is truh that i have to get an message and there is my code:<br />
&lt;Dim b<br />
b = DoCmd.RunSQL(&quot;SELECT Count(InvoiceT.Price) AS CountOfPrice &quot;&nbsp;&amp; _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;FROM InvoiceT &quot;&nbsp;&amp; _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;GROUP BY InvoiceT.Product &quot;&nbsp;&amp; _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;HAVING Product =&quot; &amp;&nbsp;Me.ListProducts.Column(1))<wbr /><br />
If b &gt;&nbsp;1 Then MsgBox &quot;There is not matching pricse&quot;&gt;<br />
<br />
<br />
but i get an error message that point on the &quot;runsql&quot; :Compile error:<br />
Expected Function or variable
</div>
</div>


i have a code that have to run a query and check if in the qury value is higher then 1 one and if is truh that i have to get an message and there is my code:
<Dim b
b = DoCmd.RunSQL("SELECT Count(InvoiceT.Price) AS CountOfPrice " & _
                    "FROM InvoiceT " & _
                    "GROUP BY InvoiceT.Product " & _
                    "HAVING Product =" & Me.ListProducts.Column(1))
If b > 1 Then MsgBox "There is not matching pricse">


but i get an error message that point on the "runsql" :Compile error:
Expected Function or variable

problem by using runsql in access 2010

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.