Mkdir for all Employees

[ECEK]

I have 125 Employees in my Table and I would like to create a folder for each one.
I have a form with a command button that will create a directory for each employee individually.

MkDir "S:\Access\VBA\DATABASES\" & Me.Employee

What do I need to research in order to create a file for all the employees in one go?

Is this Looping?

 

[arnelgp]

open the recordset that contains
the employee information table.

dim rs as dao.recordset
set rs=currentdb.openrecordset("employeeTable",dbopensnapshot)
with rs
If not (.bof and .eof) then .movefirst
While not .eof
MkDir "S:\Access\VBA\DATABASES" & !employeeName 'or employeeID
.MoveNext
Wend
.Close
End With
Set rs=nothing

 

[Minty]

Short answer yes

Longer answer without writing it completely for you
Open a recordset of your employees
While Not EOF
Do your code
Move next
Loop
Close your recordset

Edit: Arne beat me to it - no fun.

 

[ECEK]

Thanks guys:
Arne I'm just struggling with this line: My Query holding my Employees names is called qryFolders

set rs=currentdb.openrecordset("qryFolders",dbopens napshot)

So I tried this:

Set rsQuery = dbs.OpenRecordset("qryFolders", dbOpenDynaset)

Still no luck !!

Edit:
The s napshot threw me.

Set rs = CurrentDb.OpenRecordset("qryFolders", dbOpenSnapshot)

 

[Minty]

So are you sorted ?

 

[arnelgp]

There is no space between letters in dbopensnapshot. If you can use the tablename instead.