Bosna i Hercegovina



#1 12.11.2014-11:06
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


Subject: 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.
DownloadIzvorni kod (vb.net):
  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 Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Subject: Re: Provjera podatka kod upisa u tablicu
Imas ovu proceduru koja to radi.
http://www.icentar.ba/...st&id=261
Pozdrav
↑  ↓

#3 12.11.2014-12:37
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Subject: 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
Pozdrav
↑  ↓

#4 12.11.2014-13:10
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


Subject: Re: Provjera podatka kod upisa u tablicu
Ovo je odlično. U proceduri am između ostalog napisao:
DownloadIzvorni kod (vb.net):
  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
  13. postoji"
  14.  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 Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Ocjena: Ocjena:100 Subject: 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
Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 12.11.2014-13:19 od strane zxz. ↑  ↓

#6 12.11.2014-13:39
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,376


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

Stranice (1): 1


All times are GMT +01:00. Current time: 17.12.2018-12:39.