Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Access&Notepad saradnja

[es] :: Access :: Access&Notepad saradnja

[ Pregleda: 2670 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

DjordjeRd
Đorđe Radomirović
Kablovski pristupni uređaji, Telekom
Srbija
NP, 43.1370N, 20.5120E

Član broj: 1412
Poruke: 574
*.telekom.yu

Sajt: picasaweb.google.com/djor..


+4 Profil

icon Access&Notepad saradnja25.08.2004. u 13:26 - pre 239 meseci
U VBA se kreira jedan txt fajl koji bih želeo da prikažem u Notepad-u. Kako da iz Access-a otvorim Notepad i u njemu upravo kreirani fajl?
c000 lda #$33
c002 sta $0400
c005 lda #$37
c007 sta $0401
c00a lda #$21
c00c sta $0402
c00f rts

sys 49152
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Access&Notepad saradnja30.08.2004. u 21:07 - pre 239 meseci
Probaj funkciju Shell:

Code:

Function OpenNotepad()

    Call Shell("Notepad.EXE", 1)

End Function


Dati primer ce samo da otvori Notepad, pa onda ti otvoris fajl. Ako hoces da editorom otvoris fajl iz Accessa, onda ne moze Notepad. Treba ti neki editor koji moze da otvara fajlove iz komandne linije, kao na primer:

Code:

Function OpenMyFile(strFileName)
'strFilename treba da sadrzi ime fajla i path, na primer "C:\Temp\mojtext.txt"

    Call Shell("MyEditor.EXE" & strFileName, 1)

End Function


Funkcijom Shell pozivaju se externi programi. Neko je pitao kako se ZIPuju fajlovi iz accessa. Ako imate stari program PkZip i PkUnzip, ili arj, mozete ih sa Shell pozvati i u komandnoj liniji navesti imena fajlova (izvorni, ZIP) i sve parametre programa i gotov posao.

;-)
 
Odgovor na temu

[es] :: Access :: Access&Notepad saradnja

[ Pregleda: 2670 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.