[es] - Access aplikacija na visti

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.133.*

Profil

^{17.06.2009. u 07:19 - pre 180 meseci}

Imam problem dakle postavio sam vistu i access 2007 u kome je i radena aplikacija i koja je radila na XP-u eh sad, imam problem sa ovim delom koda

Code:
Open "C:\WINDOWS\x.txt" For Output As #1
        Print #1, "Zapis"
    Close #1
    'End

Dali je problem u nekoj refernci koju vista nema pa je nevidi i trebalo bih ubaciti taj dll pa ga čekirati u referencama.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Access aplikacija na visti

^{17.06.2009. u 08:59 - pre 180 meseci}

Ja mislim da je vista zabranila upis iz nekog programa u neki fajl na C:windows, probaj promjeniti privilegije
ili probaj nek ti upiše na neki drugi folder npr.. C:\proba\x.txt , pa ako ti tamo dozvoli onda je to to.

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.215.*

Profil

Re: Access aplikacija na visti

^{17.06.2009. u 10:04 - pre 180 meseci}

Da upravu si to je to,ali dali ima neka opcija na visti da se to dozvoli.Hvala unapred.

Odgovor na temu

Catch 22

Član broj: 148083
Poruke: 6176
93.87.186.*

+21 Profil

Re: Access aplikacija na visti

^{17.06.2009. u 10:22 - pre 180 meseci}

^ Generalno je loša ideja da "programiraš" upisivanjem bilo čega u sistemske foldere, problem sa path promenljivom može da se reši i na elegantniji način...
Realizacija tvoje ideje, kako sam vidiš teže ide na Visti, a na Windows 7 će biti gotovo nemoguća.
Zašto bi svesno narušavao elementarne bezbednosne koncepte operativnog sistema?

The 11th Hour: The forces blocking change

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.171.*

Profil

Re: Access aplikacija na visti

^{17.06.2009. u 12:44 - pre 180 meseci}

Citat:

Zašto bi svesno narušavao elementarne bezbednosne koncepte operativnog sistema?

Da upravo tako

rješit ću ja valjda nekako.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-3523.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Access aplikacija na visti

^{17.06.2009. u 13:21 - pre 180 meseci}

Takve podatke zapisujes na ovoj putanji.
Function Putanja()
Putanja = Environ(33)
End Function

zxz

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.143.*

Profil

Re: Access aplikacija na visti

^{17.06.2009. u 13:40 - pre 180 meseci}

A sta ti je ovo

Citat:

Environ(33)

Mozesli malo pojasniti.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-3523.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Access aplikacija na visti

^{17.06.2009. u 14:51 - pre 180 meseci}

To je putanja temp direktorija trenutnog korisnika.
Posto vjerovatno pises privrmeni file koji se obnavlja onda ga zapisujes tu.
Ukoliko je comp. umrezen radi zastite korisnici sa svojom sifrom nemaju prava pristupa ostalom dijelu diska odnosno sistemu niti programfilesu.
To je i na XP tako.
Ukoliko nije privremeni podatak onda ga zapisi u registrije pri instalaciji.

zxz

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.203.*

Profil

Re: Access aplikacija na visti

^{17.06.2009. u 15:26 - pre 180 meseci}

OK To je to, fajl je privremeni i to je kao neki vid hmmmm ... Hvala puno.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-3523.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Access aplikacija na visti

^{17.06.2009. u 15:50 - pre 180 meseci}

Kako koristiti:
Function Putanja()
Putanja = Environ(33)
End Function

dim PutanjaS as string

PutanjaS=Putanja & "\x.txt"
Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
'End

zxz

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.203.*

Profil

Re: Access aplikacija na visti

^{17.06.2009. u 18:24 - pre 180 meseci}

Da probao sam i to ali izbacuje mi ovu gresku :

Nekuzim zasto ovo radi.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.173.*

Sajt: www.icentar.ba

+2 Profil

Re: Access aplikacija na visti

^{18.06.2009. u 12:02 - pre 180 meseci}

Probaj sa ovim:
Function Putanja() As String
Putanja = Environ("TMP")
'Putanja = Mid(Environ(33), 6) ' Ako pozivamo brojem ima i prefix naziva
End Function

Function Otvorifile()
Dim PutanjaS As String

PutanjaS = Putanja & "\x.txt"
Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
End Function

zxz

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Access aplikacija na visti

^{18.06.2009. u 14:40 - pre 180 meseci}

Ja bih dodao neke pomocne naredbe, cito d avidis sta se desava:

Code:

Function Putanja() As String
Putanja = Environ("TMP")
'Putanja = Mid(Environ(33), 6) ' Ako pozivamo brojem ima i prefix naziva
End Function

Function Otvorifile()
Dim PutanjaS As String

PutanjaS = Putanja & "\x.txt"

'ovo ce da pokaze kako izgleda PutanjaS. Mozda ima neka crta vise, mozda nesto fali
debug.print PutanjaS
'Kad pukne kod, bar ces videti sta je to sto jeizazvalo 'Bad file name or number'

Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
End Function

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.159.*

Profil

Re: Access aplikacija na visti

^{18.06.2009. u 15:59 - pre 180 meseci}

Da to je to

Još nešto da kažem za windows 7. nepodrzava linkovanje na tabele iz baze u bazu znači kao link table mozda moze kroz cod ali onako iz access-a nema šanse.Pa eto vidite kakve nam sve probleme donose novi OS.

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Access aplikacija na visti

^{18.06.2009. u 19:47 - pre 180 meseci}

LInkovanje radi OK. Mozda je Vista setovana tako da nemas permissions na folder, ili je ceo foldr RaedOnly?

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.131.*

Profil

Re: Access aplikacija na visti

^{18.06.2009. u 21:13 - pre 180 meseci}

Ceo folder nije u opce readonly ali permissions nemogu da izmjenim da bude full control.

Odgovor na temu