VBA code moze tko ispravit što sam pogrijesio

VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 13:26 · pre 142 meseca #1

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

Re: VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 13:49 · pre 142 meseca #2

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.

Potpis

Jednog dana...

Re: VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 14:06 · pre 142 meseca #3

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

Potpis

Jednog dana...

Re: VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 20:15 · pre 142 meseca #4

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

pozadina.rar96.68k

Re: VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 20:49 · pre 142 meseca #5

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

Re: VBA code moze tko ispravit što sam pogrijesio 01.03.2015. u 21:40 · pre 142 meseca #6

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.

Potpis

Jednog dana...

Sloj-pozadina.accdb508k

Re: VBA code moze tko ispravit što sam pogrijesio 02.03.2015. u 09:08 · pre 142 meseca #7

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

Re: VBA code moze tko ispravit što sam pogrijesio 02.03.2015. u 15:01 · pre 142 meseca #8

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

pozadina.rar59.33k

Re: VBA code moze tko ispravit što sam pogrijesio 03.03.2015. u 07:45 · pre 142 meseca #9

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.

Potpis

Jednog dana...

Sloj-Test.mdb180k

Re: VBA code moze tko ispravit što sam pogrijesio 03.03.2015. u 15:47 · pre 142 meseca #10

eto prebacio sam u nizu verziju

2003.rar23.05k

Re: VBA code moze tko ispravit što sam pogrijesio 07.03.2015. u 17:34 · pre 142 meseca #11

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

Potpis

Jednog dana...

Sloj-pozadina2.accdb536k

Re: VBA code moze tko ispravit što sam pogrijesio 08.03.2015. u 18:49 · pre 142 meseca #12

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

Re: VBA code moze tko ispravit što sam pogrijesio 09.03.2015. u 00:34 · pre 142 meseca #13

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

Potpis

Jednog dana...

Sloj-pozadina3.accdb592k

Re: VBA code moze tko ispravit što sam pogrijesio 10.03.2015. u 14:30 · pre 142 meseca #14

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

Re: VBA code moze tko ispravit što sam pogrijesio 10.03.2015. u 15:09 · pre 142 meseca #15

Koju gresku prijavljuje?

Potpis

Jednog dana...

Re: VBA code moze tko ispravit što sam pogrijesio 10.03.2015. u 15:16 · pre 142 meseca #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

Potpis

Jednog dana...

Re: VBA code moze tko ispravit što sam pogrijesio 10.03.2015. u 16:10 · pre 142 meseca #17

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

Re: VBA code moze tko ispravit što sam pogrijesio 10.03.2015. u 17:33 · pre 142 meseca #18

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.

Potpis

Jednog dana...

Re: VBA code moze tko ispravit što sam pogrijesio 19.03.2015. u 17:23 · pre 141 mesec #19

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

baza podataka ljudi_1.rar28.11k

Re: VBA code moze tko ispravit što sam pogrijesio 20.03.2015. u 06:27 · pre 141 mesec #20

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.

Potpis

Jednog dana...

Forum kao aplikacija na telefonu

Srodne teme