access 2000 and access 2002

[P.Pfister]

hi all

i have this short source code:
---
Dim varElem As Variant
Dim strSQL As String
Dim i As Integer
Dim frm As Form

Set dbs = CurrentDb

On Error GoTo Do_Nothing
DoCmd.Close acQuery, "Auswahl", acSaveNo
dbs.QueryDefs.Delete "Auswahl"
Do_Nothing:

i = 0
If Liste_Auswahl.ItemsSelected.Count = 0 Then
Else
strSQL = "SELECT"
For Each varElem In Liste_Auswahl.ItemsSelected
i = i + 1
strSQL = strSQL & " ["
strSQL = strSQL & Liste_Auswahl.ItemData(varElem) & "]"
If i < Liste_Auswahl.ItemsSelected.Count Then
strSQL = strSQL & ","
End If
Next varElem
strSQL = strSQL & " FROM FLR;"

Set qdf = dbs.CreateQueryDef("Auswahl", strSQL)

DoCmd.OpenQuery "Auswahl", acViewNormal, acReadOnly
Me.Visible = False
---

It is written using version 2000 of ms access. so i wanted to give the
whole database including this code to somebody who uses version 2002 of
ms access. in version 2002 the code doesn't function cause of a
compiling error. i think that probably one of the key words (commands)
used in the code was not found by the version 2002...

Does somebody have an idee what i should write in another way.

Thnx
Peter

[Allen Browne]

Most likely a references issue.

Open a code window in A2002.
Choose References from the Tools menu.
Check the box beside:
Microsoft DAO 3.6

More info:
http://allenbrowne.com/ser-38.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html

"P.Pfister" <pp******@access.unizh.ch> wrote in message
news:3F**************@access.unizh.ch...

hi all

i have this short source code:
---
Dim varElem As Variant
Dim strSQL As String
Dim i As Integer
Dim frm As Form

Set dbs = CurrentDb

On Error GoTo Do_Nothing
DoCmd.Close acQuery, "Auswahl", acSaveNo
dbs.QueryDefs.Delete "Auswahl"
Do_Nothing:

i = 0
If Liste_Auswahl.ItemsSelected.Count = 0 Then
Else
strSQL = "SELECT"
For Each varElem In Liste_Auswahl.ItemsSelected
i = i + 1
strSQL = strSQL & " ["
strSQL = strSQL & Liste_Auswahl.ItemData(varElem) & "]"
If i < Liste_Auswahl.ItemsSelected.Count Then
strSQL = strSQL & ","
End If
Next varElem
strSQL = strSQL & " FROM FLR;"

Set qdf = dbs.CreateQueryDef("Auswahl", strSQL)

DoCmd.OpenQuery "Auswahl", acViewNormal, acReadOnly
Me.Visible = False
---

It is written using version 2000 of ms access. so i wanted to give the
whole database including this code to somebody who uses version 2002 of
ms access. in version 2002 the code doesn't function cause of a
compiling error. i think that probably one of the key words (commands)
used in the code was not found by the version 2002...

Does somebody have an idee what i should write in another way.

Thnx
Peter