Prikazi cijelu temu 31.01.2012 10:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Provjera duplog unosa
U subformi imam proceduru za provjeru duplog unosa Å¡ifre i to radi ako se provjera odnosi samo na Å¡ifru.
Ja bih htio da provjeru vežem uz broj otpremnice [orderID] i šifru, tako da me upozori na unos iste šifre pod istim brojem otpremnice i da kursor ode na taj zapis

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Sifra_BeforeUpdate(Cancel As Integer)
  2.  
  3. Dim UNOS As String
  4. Dim stLinkCriteria As String
  5. Dim rsc As DAO.Recordset
  6.  
  7. Set rsc = Me.RecordsetClone
  8.  
  9. UNOS = Me.Sifra.Value
  10.  
  11. stLinkCriteria = "[Sifra]=" & "'" & UNOS & "'"
  12.    
  13.     ' Provjera dali u  tblMaterijal ve postoji Å¡ifra koja se upisuje
  14.  
  15. If DCount("Sifra", "tblProdajaStavke", stLinkCriteria) > 0 Then
  16.  
  17. Me.Undo
  18.  
  19. MsgBox "Upozorenje Sifra broj " & UNOS & " ve je ranije upisana." & vbCr & vbCr & "Biti ete preba eni na taj zapis.", vbInformation
  20.  
  21. rsc.FindFirst stLinkCriteria
  22. Me.Bookmark = rsc.Bookmark
  23. End If
  24. Set rcs = Nothing
  25. End Sub


Prilozi:
PrimjerSifraMP.rar
Preuzimanja:369
Velicina datoteke:171.58 KB

Pozdrav