Prikazi cijelu temu 12.11.2014 13:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 12.11.2014 13:19 od strane zxz.