Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 11.02.2025 23:42
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:233


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
↑  ↓

#2 12.02.2025 00:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re:cod 2016 i 2003
a da stavis fs.GetSpecialFolder(2)
Ako ti je win 10 nece ti dati zapisati u system
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 12.02.2025 01:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 12.02.2025 11:08
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:233


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
↑  ↓

#5 12.02.2025 19:44
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:311


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?
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 12.02.2025 19:45 od strane Amelasar. ↑  ↓

#6 13.02.2025 00:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 3: 19 pm.