Centar za edukaciju-BiH



#1 12.11.2014 11:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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 kd (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
↑  ↓

#2 12.11.2014 12:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Provjera podatka kod upisa u tablicu
Imas ovu proceduru koja to radi.
http://www.icentar.ba/...st&id=261
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 12.11.2014 12:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 12.11.2014 13:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Provjera podatka kod upisa u tablicu
Ovo je odlično. U proceduri am između ostalog napisao:
PreuzmiIzvorni kd (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
Pozdrav
↑  ↓

#5 12.11.2014 13:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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. ↑  ↓

#6 12.11.2014 13:39
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Provjera podatka kod upisa u tablicu
Hvala puno. To mi je trebalo.
Pozdrav
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 51 pm.