Bosna i Hercegovina



#1 31.01.2012-09:16
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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

DownloadIzvorni kod (vb.net):
  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
  14.  postoji šifra koja se upisuje
  15.  
  16. If DCount("Sifra", "tblProdajaStavke", stLinkCriteria) > 0 Then
  17.  
  18. Me.Undo
  19.  
  20. MsgBox "Upozorenje Sifra broj " & UNOS & " ve
  21. je ranije upisana." & vbCr & vbCr & "Biti ete preba
  22. eni na taj zapis.", vbInformation
  23.  
  24. rsc.FindFirst stLinkCriteria
  25. Me.Bookmark = rsc.Bookmark
  26. End If
  27. Set rcs = Nothing
  28. End Sub


Prilozi:
Informacije o fajlu: rar  PrimjerSifraMP.rar
Preuzimanja: 92
Veličina: 171.58 KB


Pozdrav
↑  ↓

#2 31.01.2012-23:37
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,740


Subject: Re: Provjera duplog unosa
DimOrder as string

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

#3 01.02.2012-07:07
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 komentar je mijenjan 1 puta. zadnja izmjena 01.02.2012-07:11 od strane pmiroslav. ↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 23.09.2018-10:09.