pmiroslav 31.01.2012 09:16
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 (Velicina datoteke:171.58 KB)

zxz 31.01.2012 23:37
Predmet:Re: Provjera duplog unosa

DimOrder as string

Order=Me.OrderID.Value
stLinkCriteria = "[Sifra]=" & "'" & UNOS & "' AND [OrderID]='" & order & "'"

pmiroslav 01.02.2012 07:07
Predmet:Re: Provjera duplog unosa

Hvala na pomoći ovo je OK.
Ja sam u međuvremenu napravio ovo i isto dobro radi
Dim OTPREMNICA As String

OTPREMNICA = Me.OrderID.Value

If DCount("[Sifra]", "tblProdajaStavke", _
"[Sifra] = '" & UNOS & "' AND [OrderID] = '" & OTPREMNICA & "'") > 0 Then