Citat:
FOX028: U proceduri si pozivala neku sub formu DnevnikSubF2 koja uopste ne postoji
Dvojka je missclick. Treba samo DnevnikSubF.
Citat:
FOX028: U proceduri Add imas nazive nikh polja koja uopste ne postoje na formi.
To sam copy paste tvoje resenje post iznad a ti si tu permutovao neka polja.
Citat:
FOX028: Da bi sve ovo izbegla potrebno je da u VBA editoru odes na Debug=>Compile i ako postoji neka nelogicnost Access ce ti to sam pokazati.
Sto se tice velicine baze mozes je smanjiti koriscenjem opcije Compact. Pogledaj sledeci link
Hvala ovo mi je bas trebalo.
Citat:
FOX028:Koliko sam mogao da vidim ti si za jedno dugme htela da ti radi dve funkcije, da dodaje novu stavku i da je azurira nakon editovanja, ako hoces da odradis na taj nacin onda moras u VBA da prvo ispitas koji stoji naziv za taj taster (Add ili Update) i u zavisnosti od toga da zna sta da radi.
Nemoguće da ne može da se odradi pomoću VBA. Ovo što je Izonic dao u postu ispred, radi savršeno:
Code:
Private Sub cmdAdd_Click()
On Error GoTo Greska
If Me.txtID.Tag & "" = "" Then ' Vjerovatno u tag polja txtID se upisuje Kriterij pretrage kada se vrsi donos podataka iz baze.
' lakse je bilo provjeravati polje txtid a u njga vrsiti donos podataka ali ne i upisivati u bazu.
' Ako je uslov ispunjen dopisat ce se novi red podataka u bazu prepisan sa forme
CurrentDb.Execute "INSERT INTO Osovine (Broj, Godina, Tip, Napomena)" & _
" VALUES (" & Me.txtbroj & ",'" & Me.txtGodina & "','" & Me.txtTip & "','" & Me.txtNapomena & "')"
Else
' ako nije zadovoljen uslov onda se radi o izmjeni podataka pa prema tome netreba mijenjati kljuc odnosno Id On je samo uslov da se nadje
' red u koji treba upisati podatke
CurrentDb.Execute "UPDATE Osovine " & _
" SET Broj='" & Me.txtbroj & "'" & _
", Godina='" & Me.txtGodina & "'" & _
", Tip='" & Me.txtTip & "'" & _
", Napomena='" & Me.txtNapomena & "'" & _
" WHERE OsovinaID=" & Me.txtID.Tag
End If
cmdClear_Click
OsovineSubF.Form.Requery
Izlaz:
Exit Sub
Greska:
If Err.Number = 3134 Then
MsgBox "Niste popunili podatke"
' ili nista
Else
MsgBox "Ne predvidena greska " & Err.Number
End If
End Sub
To mi je u formi osovine ali je tu samo jedno polje primary key i upisuje se WHERE OsovinaID=" & Me.txtID.Tag U formi Dnevnik je procedura drugacija posto je primary kombinovani datum i osovinaID, e sad koliko sam videla radi mi i u formi dnevnik sve sem update zbog onog posle WHERE
U formi Osovine je WHERE OsovinaID=" & Me.txtID.Tag
A u formi Dnevnik je kombinovani primary pa mora da se snima po broju osovine i po datumu. Ja probala WHERE OsovinaID=" & Me.txtID.Tag And Datum=" & Me.txtDatum.Tag al šipak, ne radi a baš sam se zainatila.
Isto tako ni Delete ne umem da napišem u Dnevnik formi zbog Kombinovanog kljuca
Remontovanje železničkih vagona
