Prikazi cijelu temu
12.11.2014 14:17
12.11.2014 14:17
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
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 14:19 od strane zxz.