zxz 12.11.2014 13:29
Predmet:Re: Provjera podatka kod upisa u tablicu

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

zxz 12.11.2014 13:37
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

pmiroslav 12.11.2014 14:10
Predmet:Re: Provjera podatka kod upisa u tablicu

Ovo je odlično. U proceduri am između ostalog napisao:
PreuzmiIzvorni kôd (vbnet):
  1. If NadjiVrijednost("tblCijenaKostanja", "ID", IDProizvoda) = False Then
  2.  
  3.            With Sl_Zavrsna
  4.                 .AddNew
  5.             ![ID] = ID
  6.             ![Materijal] = CKmat
  7.             ![TI] = VTI
  8.             ![TPZ] = VTPZ
  9.                 .Update
  10.            End With
  11.  Else
  12.  MsgBox "Ve postoji"
  13.  End If
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

zxz 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

pmiroslav 12.11.2014 12:06
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

pmiroslav 12.11.2014 14:39
Predmet:Re: Provjera podatka kod upisa u tablicu

Hvala puno. To mi je trebalo.