nevsad 11.02.2025 23:42
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

zxz 12.02.2025 00:57
Predmet:Re:cod 2016 i 2003

a da stavis fs.GetSpecialFolder(2)
Ako ti je win 10 nece ti dati zapisati u system

zxz 12.02.2025 01:17
Predmet:Re:cod 2016 i 2003

PreuzmiIzvorni kôd (Visual Basic):
  1. Function IscitajFoldere()
  2. Dim fs As Object
  3. Dim i As Integer
  4. Dim folderPath  As String
  5.  
  6.   Set fs = CreateObject("Scripting.FileSystemObject")
  7.  
  8.     For i = 0 To 24
  9.         On Error Resume Next ' Ako neki folder nije dostupan, preskoci ga
  10.        folderPath = fs.GetSpecialFolder(i)
  11.         If Err.Number = 0 Then
  12.             Debug.Print "Folder " & i & ": " & folderPath
  13.         Else
  14.             Debug.Print "Folder " & i & ": Nema pristupa"
  15.         End If
  16.         On Error GoTo 0
  17.     Next i
  18.  
  19. End Function

nevsad 12.02.2025 11:08
Predmet:Re:cod 2016 i 2003

na masini je win 10 64 bitni

ako stavim GetSpecialFolder 2 onda je to teporari folder

* oaj fajl proba.txt on kreira inace u virtualstore windows folderu
*a = fs.GetSpecialFolder(2) & "\proba.txt" ne kreira ga nigdje u windowsu barem ne mogu naci
*sta si mislio sa Function IscitajFoldere() da prije Open a For Output As #1 provjeri folder ili nesto drugo

Amelasar 12.02.2025 19:44
Predmet:Re:cod 2016 i 2003

Kod mene kod radi u Access 2019.

Napravi proba.txt u:
C:\Windows\SysWOW64\proba.txt

Nije mi jasno za sta sluzi kod?

zxz 13.02.2025 00:44
Predmet:Re:cod 2016 i 2003

Kod sluzi za citanje putanja odnosno GetSpecialFolder.
Kod win 10 malo gdje se moze pisti jer je sve zasticeno.
Mozda ****lje pitanje zasto taj fajl mora uopste biti tamo u special folderima. Zasto nebi bio gdje i app.
E sad dali je to nuzno da se zapise u windows/system neznam.