Predmet:cod 2016 i 2003

---

ovo je cod koji koristim u accessu 2003

Private Sub Command2_Click()
Dim a, razlika, pocetak, kraj As String
Dim fs
pocetak = Me.pocetak
kraj = Me.kraj
razlika = Me.razlika
Set fs = CreateObject("Scripting.FileSystemObject")
a = fs.GetSpecialFolder(1) & "\proba.txt"
Open a For Output As #1
Print #1, razlika
Close #1
DoCmd.Quit acQuitSaveNone
End Sub

Private Sub Command2_Click() u accessu 2003 ureno radi

Private Sub Command2_Click() u accessu 2016 pokaze gresku na "Open a For Output As #1 " sa runtime error 75
ocito iskaz Open a For Output As #1 access2016 ne podrzava

svaka sugestija dobro dosla