Centar za edukaciju-BiH

Predmet:Provjera podatka kod upisa u tablicu

---

Nisam ovo dugo radio pa sam malo zahrđao i molim pomoć.

Imam proceduru kojom upisujem podatke sa forme u tablicu. To sve radi ali treba mi provjera dali je podatak u tablici u polju ID ista kao ovaj koji se upisuje (me.IDstroja)i da me na to upozori.

---

Predmet:Re: Provjera podatka kod upisa u tablicu

---

Imas ovu proceduru koja to radi.
http://www.icentar.ba/...st&id=261

---

Predmet:Re: Provjera podatka kod upisa u tablicu

---

E sad da prepravimo tvoj kod:
Dim Baza As Database

Dim Sl_Zavrsna As Recordset
Dim R
Dim ID As String
Dim CKmat As Double
Dim VTPZ As Double
Dim VTI As Double
Dim Cijena As Double

Set Baza = CurrentDb()
ID = Me.IDStroja
CKmat = Me.MatIznos
VTPZ = Me.TPZ
VTI = Me.TI
Set Sl_Zavrsna = Baza.OpenRecordset("SELECT * FROM tblCijenaKostanja WHERE IdStroja='"& ID & "'", dbOpenDynaset)
If sl_Zavrsna.recordcount=0 then
'znaci nema ga u bazi sa ovim id
'Provjeri u SQL-u iznad ime polja id stroja
R = MsgBox("Upisat u vrijednost pozicije", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2)
'Pod uslovom da se msg pojavljuje samo ako nema id u bazi
endif
If vbOK Then
With Sl_Zavrsna
.AddNew
![ID] = ID
![Materijal] = CKmat
![TI] = VTI
![TPZ] = VTPZ
.Update
End With
Kraj:
Set Baza = Nothing
End If

---

Predmet:Re: Provjera podatka kod upisa u tablicu

---

Ovo je odlično. U proceduri am između ostalog napisao:
Jedino bih sada umjesto MsgBox "Več postoji" trebao

MsgBox "Več postoji, želiÅ¡ li ažurirati podatke? ", vbYesNo itd.
i da se sada u tablici pod probađenj ID ažuriraju Materijal, TI i TPZ

---

Predmet:Re: Provjera podatka kod upisa u tablicu

---

If NadjiVrijednost("tblCijenaKostanja", "ID", IDProizvoda) = False Then

With Sl_Zavrsna
.AddNew
![ID] = ID
![Materijal] = CKmat
![TI] = VTI
![TPZ] = VTPZ
.Update
End With
Else
Dim iResponse As String
dim R
R= MsgBox("Već postoji, želiÅ¡ li ažurirati podatke? ",vbYesNo + vbQuestion + vbApplicationModal + vbDefaultButton1,"")

if R=vbYes then
With Sl_Zavrsna
.edit
![Materijal] = CKmat
![TI] = VTI
![TPZ] = VTPZ
.Update
End With
endif
End If

---

Predmet:Re: Provjera podatka kod upisa u tablicu

---

Hvala puno. To mi je trebalo.

---