[es] - Ponovo problem sa duplicate records! Pomoc! Hitno!

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{06.09.2004. u 17:42 - pre 251 meseci}

Pozdrav ponovo. Pre 2 dna postavio sam temu u kojoj je pisalo da mi je trebala pomoc oko duplicate records-a. Naime da ponovimo ukratko gradivo. Napisao sam code koji radi duplicate records pomocu wizzarda. Na mom kompjuteru savrseno radi, ali na kompjuteru krajnjeg korisnika nece da radi. KLOKTOR mi je napisao da je to nepouzdan code pa sam ga napisao ponovo pomocu sledeceg:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend

Kod mene ponovo radi a opet na tom kompjuteru nece da radi samo sto sada prijavljuje neku gresku sa Visual Basic codom, dok je pre prijavljivao da ne moze da izvrsi Paste Append. Stvarno ne znam u cemu je problem. Ista je platforma office 2003, radi na 2 kompa a na njihovom nece. Mozda im nedostaje neki fajl??? Ili neka biblioteka iz "References" u VB6? Ili nesto slicno? Molim Vas da mi neko pomogne jer cu poludeti skroz od toga! Vise stvarno nemam ideja sta da radim

Imam i jos jedno pitanje: Da li pomocu Visual Studio Tools-a 2003 moze da se napravi kopija za krajnjeg korisnika (naravno ukljucujuci runtim-e fajlove) pomocu kojih bi ta aplikacija radila? Da li VStudio ukljuci sve fajlove koje sam ja radio u toj aplikaciji i pri isporuci ih stavi u runtime varijantu??? HVALA na pomoci

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

kloktor
Velimir Milosavljevic
Kosjeric

Član broj: 18093
Poruke: 56
*.ptt.yu

+2 Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{07.09.2004. u 06:05 - pre 251 meseci}

Mozes li da napises gresku koju izbacuje?

Klo

Odgovor na temu

Zidar
Canada

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

+79 Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{07.09.2004. u 15:16 - pre 251 meseci}

Batali potpuno Copy/Paste. Malo programiranja ce pomoci. U BeforeUpdate za formu zapamtis vrednsti koje ti trebaju, a onda ih na OnCurrent upotrebis. Evo ti primer:

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

'Ovde pamtimo trenutne vrednosti, bice upotrebljene kao default za novi rekord:
    Me!txtAdresa.Tag = Me!txtAdresa
    Me!Ime.Tag = Me!Ime
    Me!Prezime.Tag = Me!Prezime
'Kraj pamcenja default vrednosti

End Sub

Private Sub Form_Current()

'Ovde postavljamo default vrednosti za novi record
    If Me.NewRecord Then
        Me!txtAdresa = Me!txtAdresa.Tag
        Me!Ime = Me!Ime.Tag
        Me!Prezime = Me!Prezime.Tag
    End If
'Kraj postavljanja default vrednosti
End Sub

Prikačeni fajlovi

Prenos.zip - 15.17k

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{07.09.2004. u 19:06 - pre 251 meseci}

Hvala Zidar na odgovoru. Sada mi je jasan taj deo. Samo cu morati malo da ga izmenim. Posto imam recimo tabelu clanovi kao sto si ti napravio, i imam dugme KOPIRAJ. Ali ja prvo treba da nadjem record tj. zapis u formi za unos pa kada vidim da je to taj zapis koji zelim da dupliram, stisnem dugme KOPIRAJ i tada automatski access da ode na New Record, i zapise sve te iste podatke. E sada po ovom codu sto si ti napisao Before update to znaci da taj deo moram da izmenim jer listajuci kroz zapise u toj formi on nece to izvrsiti kada kliknem dugme, jer moram bar minimalno da kliknem na neko od polja kako bi bilo before update, a umesto onog dela on Current stavicu dugmencetu da radi taj deo On Click. Ne znam da li si me shvatio posto sam sve tako zbrzio, nego malo cu se poigrati sa tim pa cu videti da li sam uspeo ili ne. Javicu uglavnom.....
Hvala ti jos jednom.
P.s. Za KLOKTORA: javicu koju gresku izbaci samo kada mi oni (nadam se sutra) podnesu izvestaj sta pise kada kliknu na dugme kopiraj. Hvala i tebi
Budite na Standby.

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{07.09.2004. u 20:13 - pre 251 meseci}

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me!Autor.Tag = Me!Autor
Me![Naslov dela].Tag = Me![Naslov dela]
End Sub

Private Sub Command44_Click()
MsgBox "Morate promeniti inventarni broj kako bi zapis bio uredno sacuvan!!!"
DoCmd.GoToRecord , , acNewRec
Me!Autor = Me!Autor.Tag
Me![Naslov dela] = Me![Naslov dela].Tag
Me!Invbroj.SetFocus
End Sub

Evo napisao sam ovaj code. Medjutim problem je sto radi tek kada izmenim nesto u polju Autor a do tada nece, tj. kada listam zapise po formi sa dugmicima prethodni sledeci imam napisan deo Me![Invbroj].setfocus i listajuci zapise kursor mi se zbog te komandice postavlja na invbroj polje. E sada kako da resim to, jer mu ocigledno ne odgovara deo Form_BeforeUpdate jer on tada ocekuje da ti upisujes u tabelu. Dakle, da rezimiramo stvar, code radi tek ukoliko ja promenim nesto u bilo kom polju a do tada nece jer ga prakticno ja samo gledam a nista ne upisujem u njega.

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{07.09.2004. u 20:24 - pre 251 meseci}

Uspeo sam sa codom na ovaj nacin
Private Sub Form_Dirty(Cancel As Integer)
Me!Autor.Tag = Me!Autor
Me![Naslov dela].Tag = Me![Naslov dela]

End Sub
Sada ne mora nista da se menja. Nadam se da necu imati daljih problema!

P.s. Ali vec uvek iskrsne nesto.

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{08.09.2004. u 01:50 - pre 251 meseci}

Ha znao sam da ce nesto ponovo iskrsnuti. Treba mu zadati 2 uslova da ide Before form update i kada recimo Check box dobije focus da onda radi. Tako mi sada radi bez problema. Nadam se da daljim testiranjem necu naici na jos koji problem

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

Zidar
Canada

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

+79 Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{08.09.2004. u 13:44 - pre 250 meseci}

Umesto

Code:

Private Sub Command44_Click()
MsgBox "Morate promeniti inventarni broj kako bi zapis bio uredno sacuvan!!!"
DoCmd.GoToRecord , , acNewRec
Me!Autor = Me!Autor.Tag
Me![Naslov dela] = Me![Naslov dela].Tag
Me!Invbroj.SetFocus
End Sub

Probaj sa

Code:

Private Sub Command44_Click()
MsgBox "Morate promeniti inventarni broj kako bi zapis bio uredno sacuvan!!!"
'Kad si ga vec opomenuo, neka ovde unese novi InvBroj
Me!Invbroj.SetFocus

'Zapamti trenutne vrednosti
Me!Autor = Me!Autor.Tag
Me![Naslov dela] = Me![Naslov dela].Tag

'Sad idi na novi rekord
DoCmd.GoToRecord , , acNewRec
'Prilikom prelazenja na novi rekord, odradice se OnCurrent

End Sub

Ako korstis Dirty, to ti dodje isto kao na BeforeUpdate. Mislim da ti nije neophodno. Izmeni kod na Command44_Click(). Trebalo bi da se odvija ovako:
1) korisnik se nalazi na nekom rekordu gde su Autor i Naslov Dela koje zelis da preneses u sledeci rekord
2) deo koda 'Zapamti trenutne vrednosti ce da smesti vrednosti u Tag
3) DoCmd.GoToRecord , , acNewRec ce da pomeri pointer baze na novi rekord. Satri ce biti automatski snimljen, a odradice se i OnCurrent koji vrednosti iz Tag-a prepisuje u odgovarajuca polja

Shvatio si ideju i guraj napred.

;-)

Odgovor na temu

Zidar
Canada

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

+79 Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{08.09.2004. u 15:04 - pre 250 meseci}

Evo ti jos jedno resenje, mislim da je bolje od onog sa tagovima. Ima manje programiranja, a radi bas ono sto hoces.

Treba ti dugme na formi, koje ce da sacuva zeljene vrednosti. To vec imas.
Treba ti i jedna funkcija, u forminom code modulu, koja se poziva klikom na dugme. U funkciji su nabrojane kontrole cija se trenutna vrednost pamti. I to je sve.

Kad korisnik hoce da zapamti neke vrednosti, klikne na dugme. Nema veze da li je rekord editovan ili ne. Trenutne vrednosti bice zapisane i pojavice se kao default u novom rekordu.

Code:

Private Sub cmdZapamtiDefaults_Click()
'moje dugme se zove cmdZapamtiDefaults
Call PrenesiVrednosti
End Sub

Function PrenesiVrednosti()
'Ova funkcija se nalazi u forminom code modulu
Me!txtAdresa.DefaultValue = "'" & Me!txtAdresa & "'"
'Ne zaboravi znake navoda, posto je txtAdresa tipa Tekst
'isto i za datume, treba ti # pre i posle datuma
'Imas temu sa ' i # u bazi znanja
End Function

Nema nista u BeforeUpdate niti u OnCurrent. Koristi se property DefaultValue za kontrole ciju vrednost moras da pamtis. Vazno je da tekstualne vrednosti stavis u znake navoda, inace izbacuje #name? u text boxu na novom rekordu.

:-)

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{10.09.2004. u 10:52 - pre 250 meseci}

Zidar puno hvala odo sad da isprobam sve to pa ti javljam da li je uspelo.
Pozdrav i hvala jos jednom

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Ponovo problem sa "duplicate records"! Pomoc! Hitno!

^{10.09.2004. u 12:33 - pre 250 meseci}

Zidar pazi ovako:
Uradio sam sve ono bez tagova (poslednju varijantu) sto si mi napisao, medjutim opet mi ne zadovoljava uslove!

Ali resio sam to na sledeci nacin: Naime u formi ima opvija BeforeUpdate pomocu koje pamti zapis i kopira ga na sledeci sto smo ustanovili iz ranijeg primera ali samo dok se edituje trenutni zapis. Bio je problem to sto kada npr otvorim formu i listam sa prethodni sledeci dugmicima i kliknem iskopiraj na zeljeni zapis on mi prekopira prazna polja. E sada ja sam mu napravio caku za to tako sto sam stavio kao Check box tj. onaj mali Button na kome pise "Klikni za kopiranje" a njemu sam dodelio da kada dobije Focus tj. kada se klikne na njega on preko tagova isto kao i before update opcija na formi upamti i doda mi na novi zapis.

Kod ovog zadnjeg nacina sto si mi napisao on zapamti default vrednosti, ali npr ako sam ja iskopirao zeljeni broj zapisa i hocu da dodam novi zapis on mi i dalje prekopira vec ucitane u memoriju default podatke pa onda moram da izadjem iz forme pa mi se tek onda pojave prazna polja za popunjavanje. E to ga puno brka. U svakom slucaju hvala ti na pomoci, ukoliko imas jos neko pametnije resenje mozes ga poslati ali nije hitno jer sam ga donekle resio na prethodno opisani nacin.

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu