Centar za edukaciju-BiH



#1 31.01.2012 09:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  PrimjerSifraMP.rar
Preuzimanja:369
Velicina datoteke:171.58 KB


Pozdrav
↑  ↓

#2 31.01.2012 23:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Provjera duplog unosa
DimOrder as string

Order=Me.OrderID.Value
stLinkCriteria = "[Sifra]=" & "'" & UNOS & "' AND [OrderID]='" & order & "'"
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 01.02.2012 07:07
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 01.02.2012 07:11 od strane pmiroslav. ↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 48 am.