Continous Form - Microsoft Access / VBA Forum

Hi

I know how to implement Continous form. In the method i have tried, the source for data on the continous form comes from table using SQL query

Now, i want to try something different and i need your help.

With the same continous form, i want the source for the data to be a simple piece of code that returns names of files in the folder.

I have completed working code for getting file names in the folder:

Expand|Select|Wrap|Line Numbers

	
Dim fs

Set fs = Application.FileSearch

With fs

.LookIn = "c:\abc"

.FileName = "*.doc"

.searchsubfolders = False

fs.Execute
 
For j = 1 To .Foundfiles.Count

MsgBox .Foundfiles(j)

' --------- Me.subf.Form.RecordSource = .Foundfiles(j)   -- how to do this thing? ---

Next j

End With

There is no problem with that. Now please help me in displaying the result of the above code (returned using .FoundFiles(j) )
on the continous form.. How to go about doing this?

Awaiting your responce

Thanks
qi

MikeTheBike

Expert

269 Posts

July 25th, 2008
12:08 PM
#2

Re: Continous Form

Quote:

Expand|Select|Wrap|Line Numbers

	
Dim fs

Set fs = Application.FileSearch

With fs

    .LookIn = "c:\abc"

    .FileName = "*.doc"

    .searchsubfolders = False

    fs.Execute
 
    For j = 1 To .Foundfiles.Count
 
        ' --------- Me.subf.Form.RecordSource = .Foundfiles(j)   -- how to do this thing? ---

    Next j

End With

Hi

Why do you want to display then in a continuous form?

It would be pretty simple to display them in a list box !?

Expand|Select|Wrap|Line Numbers

	With fs

    .LookIn = "c:\abc"

    .FileName = "*.doc"

    .searchsubfolders = False

    fs.Execute
 
    Dim strSource as String

    strSource = ";"

    For j = 1 To .Foundfiles.Count

        strSource =  & strSource & ";" & .Foundfiles(j)

    Next j 

End With
 
List1.RowSourceType = "Value List"

List1.RowSource = Mid(strSource,2)      '--Mid()  Remove leading ';'

??

MTB

questionit

Site Addict

519 Posts

July 25th, 2008
04:59 PM
#3

Re: Continous Form

Thanks a lot for this suggestion MTB.

It would be more easily readable the list on a Continous Form instead.

Could you please guide me if this could be done.

Perhaps, save the returned values into a table then query the table to assign its result to the Continous Form -this should work but is a lengthy way though!

Let me know any solutions for this

Thanks
Qi

Quote:

Hi

Why do you want to display then in a continuous form?

It would be pretty simple to display them in a list box !?

Expand|Select|Wrap|Line Numbers

	With fs

    .LookIn = "c:\abc"

    .FileName = "*.doc"

    .searchsubfolders = False

    fs.Execute
 
    Dim strSource as String

    strSource = ";"

    For j = 1 To .Foundfiles.Count

        strSource =  & strSource & ";" & .Foundfiles(j)

    Next j 

End With
 
List1.RowSourceType = "Value List"

List1.RowSource = Mid(strSource,2)      '--Mid()  Remove leading ';'

??

MTB