Clear 2nd Combo on form (MS Access 2003)

[davidgordon]

Hi,

I have a form with 2 combo boxes.
I am not using them in the usual way, please read on:

In the 'Form Load' event, I have:

_______________ _______________ _________

dim folderspec as string
folderspec = "\\server\Image s" (These folders are on our network
server in the office).
Dim fs, f, f1, fc, s
Set fs = CreateObject("S cripting.FileSy stemObject")
Set f = fs.GetFolder(fo lderspec)
Set fc = f.SubFolders
For Each f1 In fc
Me.Combo1.AddIt em f1.name
Next
_______________ _______________ __________
This lists all the sub-folder names within the main folder 'Images'
.....great so far. I then select a specific folder name from Combo1.

In Combo1 'After Update' I have this code:

_______________ _______________ ___________

All the following variables are public.
'folder' is a public varable which holds the selected folder name from
combo1.

folder = ""
FileScript = ""
FolderPath = ""
FileSet = ""

folder = Me.Combo11.Colu mn(0)

Dim strFiles As String
Set FileScript = CreateObject("S cripting.FileSy stemObject")
Set FolderPath = FileScript.GetF older("\\server \Images\" & folder)
Set FileSet = FolderPath.File s

For Each FileSelection In FileSet
Me.Combo2.AddIt em FileSelection.n ame
Next

_______________ _______________ _______________ _______________ _

This works great the first time I select a folder from combo1, combo2
lists all the files within it, but the next time I se;ect another
folder from combo1, all those files are added to combo2 in addition to
the previous files instead of just changing them to the new files ? How
can I clear Combo2 for the next time I select from combo1 ?

I've tried n umerous things such as:

me.combo2 = null
me.combo2.text = ""

none of them seem to make any difference ? Combo2 always gets loaded
with more and more file names...I can understand why this happens, I
just cannot seem to clear combo2 ?

Thanks
David Gordon

[Salad]

da*********@sce ne-double.co.uk wrote:

Hi,

I have a form with 2 combo boxes.
I am not using them in the usual way, please read on:

In the 'Form Load' event, I have:

_______________ _______________ _________

dim folderspec as string
folderspec = "\\server\Image s" (These folders are on our network
server in the office).
Dim fs, f, f1, fc, s
Set fs = CreateObject("S cripting.FileSy stemObject")
Set f = fs.GetFolder(fo lderspec)
Set fc = f.SubFolders
For Each f1 In fc
Me.Combo1.AddIt em f1.name
Next
_______________ _______________ __________
This lists all the sub-folder names within the main folder 'Images'
....great so far. I then select a specific folder name from Combo1.

In Combo1 'After Update' I have this code:

_______________ _______________ ___________

All the following variables are public.
'folder' is a public varable which holds the selected folder name from
combo1.

folder = ""
FileScript = ""
FolderPath = ""
FileSet = ""

folder = Me.Combo11.Colu mn(0)

Dim strFiles As String
Set FileScript = CreateObject("S cripting.FileSy stemObject")
Set FolderPath = FileScript.GetF older("\\server \Images\" & folder)
Set FileSet = FolderPath.File s

For Each FileSelection In FileSet
Me.Combo2.AddIt em FileSelection.n ame
Next

_______________ _______________ _______________ _______________ _

This works great the first time I select a folder from combo1, combo2
lists all the files within it, but the next time I se;ect another
folder from combo1, all those files are added to combo2 in addition to
the previous files instead of just changing them to the new files ? How
can I clear Combo2 for the next time I select from combo1 ?

I've tried n umerous things such as:

me.combo2 = null
me.combo2.text = ""

none of them seem to make any difference ? Combo2 always gets loaded
with more and more file names...I can understand why this happens, I
just cannot seem to clear combo2 ?

Thanks
David Gordon

Can you use RemoveItem or Clear prior to adding the items?