Centar za edukaciju-BiH

Predmet:Re: gipko problem petlja

---

Otvori modul, postavi strelicu miša ispred linije koda kao na slici i klikni lijevom tipkom miša.
Zatvori modul i pokreni proceduru klikom dugmeta na formi. Procedura će se zaustaviti na odabranoj liniji i otvoriti će se prozor u kojoj je procedura.
Sa tiskaj taster F8 i nastavi izvršavanje procedure do mjesta gdje će se javiti greška.
Gdje je greška i koja je poruka?

Slicice prilozenih slika:

---

Predmet:Re: gipko problem petlja

---

me.datumisplate

rijesio sam

fino hvala

nadam se da je file u gipko1022

Predmet:Re: gipko problem petlja

---

što si riješio? Budi malo konkretniji.
Meni se prvo javila greška u liniji
Set Rs2 = Db.OpenRecordset("SELECT * FROM gipko3 WHERE RADNIKID = '" & Rs1!RADNIKID & "' Order by Mjesec ")

A to je zato što ti je u tablici gipko3, radnikID postavljen kao broj, a sintaksa
WHERE RADNIKID = '" & Rs1!RADNIKID & "'
je napisana za string. Trebalo bi biti
WHERE RADNIKID = "& Rs1!RADNIKID

---

Predmet:Re: gipko problem petlja

---

kako onda prodje kompajler

tvoja dva ili tri me.datuisplate ili

doduse nisam pravio fajl

Predmet:Re: gipko problem petlja

---

ne napravi xlm file

a nema niti poruke

Predmet:Re: gipko problem petlja

---

evo tvoja funkcija sa mojim poljima ali nema xlm_a

Prilozi:

Predmet:Re: gipko problem petlja

---

Ako hoćeš pomoć, molim te lijepo reci koji problem imaš.
Gdje ti procedura stane?
Koju poruku o greški dobiješ.

Ovako stalno nešto mjenjaš kod i ja te ne mogu pratiti.

---

Predmet:Re: gipko problem petlja

---

imam te 4 tabele iz kojih trebam napraviti xlm fajl

problem je sto moj kmpajler sve prodje bez ijedne greske

na masini imam windows 7 profesional i office 2003

to je sve

ako treba ja mogu unjesto radnikid number polja staviti tekst pa da probam i tako

Predmet:Re: gipko problem petlja

---

Evo probaj ovo. Kod mene radi. Ali prije toga ako nemaš, na C:\ prticiji napravi folder Plata.

Ovaj dio sam popravio jer nije valjalo:

Tekst.SaveToFile "C:\plata\" & DLookup("JIBPoslodavca", "gipko1") & ".xml", 2

MsgBox "Uspješno ste kreirali xml fajl: " & DLookup("JIBPoslodavca", "gipko1") & ".XML", vbInformation, "Queensland Computer"

Prilozi:

---

Predmet:Re: gipko problem petlja

---

pregledam pa javim

fino hvala