SQL

[azizrasul]

Can anyone show me how to create a select query using SQL and running it? I know I can't use DoCmd.RunSQL?

 

[bat17]

What do you want as an out come? create a query in the database and open it?

from help for A97

Sub NewQuery()
	Dim dbs As Database, qdf As QueryDef, strSQL As String

	' Return reference to current database.
	Set dbs = CurrentDb
	strSQL = "SELECT * FROM Employees WHERE [HireDate] >= #1-1-93#"
	' Create new query.
	Set qdf = dbs.CreateQueryDef("RecentHires", strSQL)
	DoCmd.OpenQuery qdf.Name
	Set dbs = Nothing
End Sub

HTH

Peter

 

[azizrasul]

I have to do an integrity check on some data. If the number of records produced from the query is 0, then I'm OK.

Thanks for the code. I'll try it and repost if I have a problem.