VBA code moze tko ispravit što sam pogrijesio

[ dan79 @ 01.03.2015. 12:26 ] @

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

[ SLOJ.1973 @ 01.03.2015. 12:49 ] @

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.

[ SLOJ.1973 @ 01.03.2015. 13:06 ] @

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

[ dan79 @ 01.03.2015. 19:15 ] @

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

[ BiloKoje @ 01.03.2015. 19:49 ] @

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

[ SLOJ.1973 @ 01.03.2015. 20:40 ] @

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.

[ dan79 @ 02.03.2015. 08:08 ] @

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

[ dan79 @ 02.03.2015. 14:01 ] @

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

[ SLOJ.1973 @ 03.03.2015. 06:45 ] @

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.

[ dan79 @ 03.03.2015. 14:47 ] @

eto prebacio sam u nizu verziju

[ SLOJ.1973 @ 07.03.2015. 16:34 ] @

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

[ dan79 @ 08.03.2015. 17:49 ] @

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

[ SLOJ.1973 @ 08.03.2015. 23:34 ] @

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

[ dan79 @ 10.03.2015. 13:30 ] @

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 :)

[ SLOJ.1973 @ 10.03.2015. 14:09 ] @

Koju gresku prijavljuje?

[ SLOJ.1973 @ 10.03.2015. 14:16 ] @

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

[ dan79 @ 10.03.2015. 15:10 ] @

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

[ SLOJ.1973 @ 10.03.2015. 16:33 ] @

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.

[ dan79 @ 19.03.2015. 16:23 ] @

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

[ SLOJ.1973 @ 20.03.2015. 05:27 ] @

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.

[ dan79 @ 02.04.2015. 17:19 ] @

eto mene nazad napravio sam neku bazu ljudi i iskoristio lozinku sa elite :)
dali možes pogledati i prokomentirati (slobodno kazi sto mislis )
i jos nesto kao da dobijel full scren pocetne i da mi Flogin bude medalja.
nadam se da si svatio sto sam mislio :)

_{[Ovu poruku je menjao dan79 dana 02.04.2015. u 18:37 GMT+1]}