creare cartelle con nome campo access

[nicola75ss]

In questo forum NON si parla di alcune funzionalità peculiari di Microsoft Access (macro, maschere, report, etc) che continueranno ad essere trattate nel forum "Windows e software"

In attesa che un moderatore di sezione ti sposti in windows

Private Sub Comando0_Click()
Dim strSQL As String
Dim strPath As String
Dim rst As DAO.Recordset
strSQL = "select distinct nome from tabella"
strPath = "C:\path_in_cui_creare_cartelle\"
Set rst = CurrentDb.openrecordset(strSQL, dbopensnapshot)
If rst.RecordCount > 0 Then
    rst.MoveFirst
        Do While Not rst.EOF
            MkDir strPath & rst("nome")
            rst.MoveNext
        Loop
MsgBox "Operazione conclusa"
End If
End Sub