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

Pitanje za makro OutputTo

[es] :: Access :: Pitanje za makro OutputTo

[ Pregleda: 2645 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.



Profil

icon Pitanje za makro OutputTo31.01.2008. u 12:53 - pre 197 meseci
Kako da u makrou OutputTo u polju Output file u imenu fajla bude trenutno vrijeme.
Npr da umjesto C:\Racun.txt u imenu fajlabude trenutno vrijeme 31-01-08 12:00_Racun.txt
Hvala
 
Odgovor na temu

midiland

Član broj: 161125
Poruke: 13
91.150.123.*



Profil

icon Re: Pitanje za makro OutputTo31.01.2008. u 17:01 - pre 197 meseci
Ubaci ovo u glavni modul


Private Sub BrojRacuna()
NazivFajla = "C:\" & Format(Date, "dd-mm-yy") & " " & Format(Time, "hhmmss") & "_Racun.txt"
End Sub

Primer:
Call BrojRacuna
 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.



Profil

icon Re: Pitanje za makro OutputTo01.02.2008. u 08:23 - pre 197 meseci
VB ne koristim bas mnogo i slabije se snalazim.Radim sa SQL i zato mi treba rjesenje za makro.
Ipak hvala na trudu
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.190.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Pitanje za makro OutputTo01.02.2008. u 19:16 - pre 197 meseci
Nece ti prihvatiti vrijeme kao 22:15:12 Jer je : operator.
Mozda na necom compu.
Function vrijemeIme()
Dim Vrijeme
Vrijeme = Format(Time, "hh") & "_" & Format(Time, "mm") & "_" & Format(Time, "ss")
Open Db_Putanja & "\" & Vrijeme & "Racun.txt" For Output Shared As #1
Close #1
End Function

Function Db_Putanja() As String
'-------------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'__________________________________________________
Dim Db As Database
Dim Putanja As String

On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = Db.Name
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set Db = Nothing
End Function
zxz
 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.



Profil

icon Re: Pitanje za makro OutputTo01.02.2008. u 22:28 - pre 197 meseci
Opet hvala na odgovoru ali za mene je VB spansko selo.Koristim ga skroz malo.Opet navodim da mi treba rjesenja da u u putanji Output file odmah upisem putanju gdje ce naziv sadrzati vremenske podatke.Svoj problem sam vec rijesio sa BAT fajlovima,Znaci OutputTo-om dobijem npr,C:\Racun.txt,
a zatim pozovem RENAME BAT fajl i on promeni naziv fajla.
Tako
POZDRAV
 
Odgovor na temu

[es] :: Access :: Pitanje za makro OutputTo

[ Pregleda: 2645 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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