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): 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):
|
pmiroslav | 12.11.2014 14:39 |
---|---|
Predmet:Re: Provjera podatka kod upisa u tablicu Hvala puno. To mi je trebalo. |