I'm new. I have some simple code that is returning data mismatc
errors. I am trying to pull a single sum out of a query, save a
variable intDCT, and insert intDCT into a selection query. The cod
is:

Dim SQLtot As String
Dim intDCT As Integer

intDCT = "SELECT DISTINCTROW Sum(tMTH_DLRCT.DEALERCT) AS [Sum O
DEALERCT]" & _
"FROM tMTH_DLRCT;"

SQLtot = "UPDATE TPP2 SET TPP2.DEALERCT ='" & intDCT & "';"

It returns an immediate error 13, data mismatch on the intDCT line.
have tried Integer, Long, Number, nothing works. What am I doin
wrong?

Thanks in advance for your help

--
wille

willem,

You're trying to assign a string value to an integer, that's the problem. I
assume you want to retrieve the intDC value by executing one SQL statement
and the use that value in another query. If that's so then this is what you
could do:

Dim SQLDCT As String
Dim SQLtot As String
Dim intDCT As Integer

' Please note that I've added an extra space after [Sum Of DEALERCT] as
you'd otherwise have a problem with the query
SQLDCT = "SELECT DISTINCTROW Sum(tMTH_DLRCT.DEALERCT) AS [Sum Of DEALERCT] "
& _
"FROM tMTH_DLRCT;"
....execute query (I assume you want to use the ExecuteScalar method of the
Command class?
intDCT = ...

SQLtot = "UPDATE TPP2 SET TPP2.DEALERCT ='" & intDCT.ToString() & "';"


--
Carsten Thomsen
Communities - http://community.integratedsolutions.dk

"willem" <willem.1xsbdz (AT) no-mx (DOT) forums.yourdomain.com.au> wrote