Microsoft Access 2000


         

Public Function funCreateQueries() As Boolean


Dim dbs As Database, sSQL As String

On Error GoTo 999 '

funCreateQueries = False '

subDeleteQuery "" '

subDeleteQuery "" '

Set dbs = appAccess.CurrentDb '

With dbs

sSQL = "SELECT , FROM ORDER BY & _

DESC;"

.CreateQueryDef "", sSQL '

sSQL = "DELETE .* FROM ;"

.CreateQueryDef "", sSQL '

End With

funCreateQueries = True '

Exit Function '

999:

MsgBox Err.Description '

Err.Clear '