Menetukan target folder export data

Selanjutnya, di bab ini kita akan membahas bagaimana menentukan target folder penyimapanan export data access.

Sub command1_click()
On error resune next
Dim sfol as filedialog
Dim strfol as string

Set sfol = application.filedialog
Sfol.allowmultiselect = false
Sfol.show
Strfol = sfol.selecteditem(1)
If sfol = "" then
Else
Docmd transferspreadsheet .... Script ada di pembahasan sebelumnya
End if
End sub