[MS_AccessPros] help with coded select

 

Hi,
I have the following code. I keep getting Type Mismatch. I have tried numerous solutions but can't get it to work. Suggests???

Thanks,
Jackie

Dim dbs As Database
Dim rs As Recordset

Dim selpart As String
Dim selfrom As String
Dim selhave As String
Dim ssql As String

Set dbs = DBEngine.Workspaces(0).Databases(0)

curyr = CStr(Right(Year(Date), 2))

selpart = "SELECT Count(Left([companies]![coid],2)) AS totyr, Left([companies]![coid],2) AS yr"
'selpart = "select coid AS yr"
selfrom = " FROM companies GROUP BY Left([companies]![coid],2)"
selhave = " having (((Left([companies]![coid],2))='" & curyr & "'));"

ssql = selpart & selfrom & selhave

set rs = dbs.OpenRecordset(ssql)

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 5
• New Files 2

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___