Access & C.

Com'è noto, non tutte le versioni di Access (es. Access97, Access2000) danno la possibilità di aprire una finestra di tipo "filedialog" per sfogliare le cartelle e scegliere il percorso dove aprire o salvare un file.

Esiste un rimedio:

Il seguente codice, estratto da una mia applicazione, fa aprire una fnestra di dialogo per impostare il percorso ed il nome di un file di output.

' Michele de Nittis

  ' Consente di aprire la FileDialog in modalità SAVE in versioni inferiori 
  ad Office10

  Public Function Scegli_File() As 
  String

  Dim dlg As Object

  Set dlg = CreateObject("MSComDlg.CommonDialog")

  With dlg

  	.Filter = "Files XML |*.*|*.txt|*.xml"

  	.ShowSave

  	If .FileName <> "" Then

	  	Scegli_File = .FileName
	End If

  End With

  Set dlg = Nothing

  End Function

E' possibile che al momento dell'esecuzione del codice riceviate un errore alla riga:
Set dlg = CreateObject("MSComDlg.CommonDialog")

Questo può succedere se non sono registrate le dll e gli OCX di Ms Common Dialog.

- Cercate, allora, nel vostro o in un altro PC i file COMDLG32.OCX e COMDLG32.dll e
copiateli in c:\WINNT\SYSTEM32;
- Registrate la dll e l'ocx con il comando REGSRV: esempio regsvr32 C:
\WINNT\system32\COMDLG32.dll e C:\WINNT\system32\COMDLG32.ocx.