Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#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,644


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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 05 pm.