Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
14.09.2005. Modul VBA zastices passwordom
17.02.2006. VBA i primena VBA u Inventoru 10
17.08.2006. Excel-VBA prebacivanje u VB
25.09.2006. pozivanje klasa u c++ , molim sto prije pomoc...
23.10.2006. setovanje property-ja NavigationButtons u VBA
27.11.2006. Besplatna knjiga o VBA
21.09.2007. Konverzija iz VBA u VB.NET
28.10.2007. [Excel] VBA funkcije sa kompleksnim brojevima
27.01.2008. [VBA] vise for next petlji

Navigacija

Brisanje liste

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

VBA code moze tko ispravit što sam pogrijesio

[es] :: Access :: VBA code moze tko ispravit što sam pogrijesio

Strane: 1 2

[ Pregleda: 6739 | Odgovora: 20 ] > FB > Twit

Autor

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 12:26 - pre 111 meseci}

Private Sub cmdAdd_Click()
'when we click on button Add there are two options
'1. for insert
'2. for update
If Me.txtŠifra.Tag & "" = "" Then
'this is for insert new
'add data to table
CurrentDb.Execute "INSERT INTO tblLista(datum, šifra, prezime, ime, prihod, prihod, uplate, ukupno, isplata, razlika) " & _
" VALUES(" & Me.txtDatum & ",'" & Me.txtŠifra & "','" & _
Me.txtPrezime & "','" & Me.txtIme & "','" & Me.txtPrihod & "','" & Me.txtPrihodi & "','" & _
Me.txtuplate & "','" & Me.txtUkupno & "','" & Me.txtIsplata & "','" & Me.txtrazlika & "')"

Else
'otherwise (Tag of txtsifra store the id of tblLista to be modified)
CurrentDb.Execute "UPDATE tblLista " & _
" SET šifra=" & Me.txtŠifra & _
", Datum='" & Me.txtDatum & "'" & _
", Prezime='" & Me.txtPrezime & "'" & _
", Ime='" & Me.txtIme & "'" & _
", prihodi='" & Me.txtPrihodi & "'" & _
", isplata='" & Me.txtIsplata & "'" & _
", prihod='" & Me.txtPrihod & "'" & _
", uplate='" & Me.txtuplate & "'" & _
" WHERE šifra=" & Me.txtŠifra.Tag
End If

stalno dobivam poruku run time error 3134
kaze da mi syntax in INSERT INTO statment
ako mi moze netko pomoci hvala

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 12:49 - pre 111 meseci}

Tesko je reći ovako napamet,jedino što ne štima na prvi pogled je da dva puta imaš prihod u insert into proceduri.Verovatno je prvi prihod,a drugi prihodi.To mi se čini jer u update proceduri imaš baš kao što sam i naveo.

Jednog dana...

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 13:06 - pre 111 meseci}

Još jedna stavka mi se čini sumnjiva,a to je datum.Ako je u tblLista polje datum tipa Date/Time onda bi trebalo da stoji

Citat:

dan79: Private Sub cmdAdd_Click()

If Me.txtŠifra.Tag & "" = "" Then
'this is for insert new
'add data to table
CurrentDb.Execute "INSERT INTO tblLista(datum, šifra, prezime, ime, prihod, prihod, uplate, ukupno, isplata, razlika) " & _
" VALUES(#" & Me!txtDatum & "#,'" & Me.txtŠifra & "','" & _
Me.txtPrezime & "','" & Me.txtIme & "','" & Me.txtPrihod & "','" & Me.txtPrihodi & "','" & _
Me.txtuplate & "','" & Me.txtUkupno & "','" & Me.txtIsplata & "','" & Me.txtrazlika & "')"

ako mi moze netko pomoci hvala

Jednog dana...

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 19:15 - pre 111 meseci}

ovako mislim da ce biti laše ako stavim attc.
i Hvala ti na odgovoru

Prikačeni fajlovi

pozadina.rar

pozadina.rar - 96.68k

Odgovor na temu

BiloKoje
Beograd

Član broj: 40147
Poruke: 401

+4 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 19:49 - pre 111 meseci}

Pokušaj da promeniš naslov kolone "Šifra", da izbegneš slova šžćč u nazivima.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{01.03.2015. u 20:40 - pre 111 meseci}

Polje ID ti ne treba,zatim polje Ukupno i Razlika takodje zato sto su tipa Calculated.Evo u primeru pa proveri. Takodje i datum treba da se formatizuje na nas dd/mm/yyyy. Evo u primeru.Pozdrav.

Jednog dana...

Prikačeni fajlovi

Sloj-pozadina.accdb

Sloj-pozadina.accdb - 508k

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{02.03.2015. u 08:08 - pre 111 meseci}

Hvala ti .
ja sam početnik ali imam volju ućiti :)

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{02.03.2015. u 14:01 - pre 111 meseci}

slobodane imam još pitanja ako ti se da daviti s ovim sitnicama

u tablici lista imam šifra ime i prezime i ostalo....
u tablici voditelj imam šifra ime i prezime ...

kako da dobijem u tablici lista kad upišem šifru 100 da mi izbaci ime i prezime iz tablice voditelj da nemoram ručno unositi svako?
i drugo pitanje u mom VBA codu ima gumb delete koji je u frmlista radi odlično briše sve pod šifrom koju odaberem ali meni bi trebalo samo da obriše taj redak ne sve zapise pod tom šifrom

Prikačeni fajlovi

pozadina.rar

pozadina.rar - 59.33k

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{03.03.2015. u 06:45 - pre 111 meseci}

U guzvi sam.Nemam na poslu 2007-cu.Za prvo pitanje imas odgovor u primeru.Za drugo,napisi mi kod tog dugmeta,pa mozda nesto odradim,ako stignem.Ili prebaci bazu u 2003-ku.Pozdrav.

Jednog dana...

Prikačeni fajlovi

Sloj-Test.mdb

Sloj-Test.mdb - 180k

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{03.03.2015. u 14:47 - pre 111 meseci}

eto prebacio sam u nizu verziju

Prikačeni fajlovi

2003.rar

2003.rar - 23.05k

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{07.03.2015. u 16:34 - pre 110 meseci}

Izvini, bio sam na nekom putu,tako da nisam mogao ranije. Evo primera. Pozdrav.

Jednog dana...

Prikačeni fajlovi

Sloj-pozadina2.accdb

Sloj-pozadina2.accdb - 536k

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{08.03.2015. u 17:49 - pre 110 meseci}

hvala!
na nigdje ne žurim
Imam pitanje dali se moze u tbl lista ovo polje pod šifrom dobiti da samo sifru upisem i da mi izbaci kao Qlista jer na 30 ili više ljudi puno je scrolati .
Inaće savršeno i hvala na trudu

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{08.03.2015. u 23:34 - pre 110 meseci}

Evo malo elegantnijeg resenja.Pomocu duplog klika na polje sifra otvara se forma za pretragu voditelja.Prati uputstva sa forme.Pozdrav.

Jednog dana...

Prikačeni fajlovi

Sloj-pozadina3.accdb

Sloj-pozadina3.accdb - 592k

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{10.03.2015. u 13:30 - pre 110 meseci}

Slobodane svaka ti ćast i VELIKO HVALA
ovo je super ja sam prilagodio sebi sebi i radi fantastićno,jedino me malo zeza u kad idem edit i delete iz tbl liste onda mi baca gresku u codu.
da si bliže odveo bi te na janjetinu :)

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{10.03.2015. u 14:09 - pre 110 meseci}

Koju gresku prijavljuje?

Jednog dana...

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{10.03.2015. u 14:16 - pre 110 meseci}

Koliko mogu da vidim,iz gornje primera (2003.mdb), za edit nedostaje linija u kodu,nesto poput Me.txtDatum.SetFocus,jer pokusavas da onemogucis dugme edit,koje vec ima focus.Znaci prebacis focus na neko drugo polje pa onda onemogucis edit dugme.

Code:
If Not (Me.frmLista_subform.Form.Recordset.EOF And Me.frmLista_subform.Form.Recordset.BOF) Then
        'get data to text box control
        With Me.frmLista_subform.Form.Recordset
            Me.txtdatum = .Fields("Datum")
            Me.txtŠifra = .Fields("šifra")
            Me.txtPrezime = .Fields("prezime")
            Me.txtIme = .Fields("Ime")
            Me.txtPrihodi = .Fields("Prihodi")
            Me.txtPrihod = .Fields("Prihod")
            Me.txtUplate = .Fields("uplate")
            Me.txtUkupno = .Fields("ukupno")
            Me.txtIsplata = .Fields("Isplata")
            Me.txtRazlika = .Fields("razlika")
            'store id of tblLista in Tag of txtšifra in case id is modified
           Me.txtŠifra.Tag = .Fields("šifra")
            'change caption of button add to Update
            Me.cmdAdd.Caption = "Update"
            'disable button edit
           Me.txtdatum.SetFocus' prebacujes focus na polje datum
            Me.cmdEdit.Enabled = False
        End With
    End If

Jednog dana...

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{10.03.2015. u 15:10 - pre 110 meseci}

WOW ti si aktivan danas :P

Code:
Else
        'otherwise (Tag of txtsifra store the id of tblLista to be modified)
        CurrentDb.Execute "UPDATE tblLista SET šifra=" & Me.txtSifra & datum = Me.txtdatum & _
                ", prihodi='" & Me.txtPrihodi & "'" & _
                ", isplata='" & Me.txtIsplata & "'" & _
                ", prihod='" & Me.txtPrihod & "'" & _
                ", uplate='" & Me.txtuplate & "'" & _
                          " WHERE šifra=" & Me.txtSifra.Tag

ovo je poruka koju dobijem prije http://prntscr.com/6f29ab

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{10.03.2015. u 16:33 - pre 110 meseci}

Ovo ti je kod sa dugmeta Add.Ne ynam sta nije u redu.Kod mene radi ok. Na poslu sam pa ne mogu da otvorim 2010,a u 2003 ci ne prijavljuje gresku.

Jednog dana...

Odgovor na temu

dan79
free birds
neradim

Član broj: 328136
Poruke: 10
*.dynamic.amis.hr.

Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{19.03.2015. u 16:23 - pre 110 meseci}

Eto mene nazad :))
ako možes pogledati ali nemoj ispravljati kao bi KONAČNO naučio :)
imam pitanja u codu pogledaj pa mi tamo napiši
thx

Prikačeni fajlovi

baza podataka ljudi_1.rar

baza podataka ljudi_1.rar - 28.11k

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: VBA code moze tko ispravit što sam pogrijesio

^{20.03.2015. u 05:27 - pre 110 meseci}

Koliko vidim,imas dve greske,jedna je na dugmetu Add,pokusavas da osvezis subformu sa frmPosaoSub.Form.Requery,a subforma ti se zove CHILD79.Drugo,zasto si frmGlavna dodelio Record Source,mislim da nema potrebe,da sva ona polja treba da budu unbound,jer ti vec upisujes u tabeli Posao odmah,ako ti forma ima za Record Source tu tabelu.Proveri ponovo primer koji sam ti ja poslao.Pozdrav.

Jednog dana...

Odgovor na temu

[es] :: Access :: VBA code moze tko ispravit što sam pogrijesio

Strane: 1 2

[ Pregleda: 6739 | Odgovora: 20 ] > FB > Twit

Srodne teme

23.06.2008. SMTP objekti za slanje mail-a iz VBA
23.09.2008. Automatsko pokretanje Forma kreiranog u VBA???
27.10.2008. VBA pretezak zadatak :)
10.02.2009. vba code - funkcija
10.08.2009. VBA - Brisanje jedne celije i pomeranje ulevo
17.02.2010. Excel 2003/2007 i VBA
14.07.2010. Tab-Enter u DTPicker
08.08.2010. VBA + Oracle konekcije
30.11.2010. pomoc oko veze sa mdb fajlom

Navigacija

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