Prikazi cijelu temu 12.11.2014 12:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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.
PreuzmiIzvorni kôd (vbnet):
  1. Dim Baza As Database
  2.  
  3. Dim Sl_Zavrsna As Recordset
  4. Dim R
  5. Dim ID As String
  6. Dim CKmat As Double
  7. Dim VTPZ As Double
  8. Dim VTI As Double
  9. Dim Cijena As Double
  10.  
  11.  
  12. Set Baza = CurrentDb()
  13. Set Sl_Zavrsna = Baza.OpenRecordset("tblCijenaKostanja", dbOpenDynaset)
  14.  
  15. Set Baza = CurrentDb
  16.  
  17. ID = Me.IDStroja
  18. CKmat = Me.MatIznos
  19. VTPZ = Me.TPZ
  20. VTI = Me.TI
  21.  
  22. R = MsgBox("Upisat u vrijednost pozicije", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2)
  23. If vbOK Then
  24.            With Sl_Zavrsna
  25.                 .AddNew
  26.             ![ID] = ID
  27.             ![Materijal] = CKmat
  28.             ![TI] = VTI
  29.             ![TPZ] = VTPZ
  30.                 .Update
  31.            End With
  32. Kraj:
  33.     Set Baza = Nothing
  34.     End If
Pozdrav