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):Private Sub Sifra_BeforeUpdate(Cancel As Integer)
Dim UNOS As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
UNOS = Me.Sifra.Value
stLinkCriteria = "[Sifra]=" & "'" & UNOS & "'"
' Provjera dali u tblMaterijal ve
postoji Å¡ifra koja se upisuje
If DCount("Sifra", "tblProdajaStavke", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Upozorenje Sifra broj " & UNOS & " ve
je ranije upisana." & vbCr & vbCr & "Biti ete preba
eni na taj zapis.", vbInformation
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rcs = Nothing
End Sub
Prilozi:
PrimjerSifraMP.rar
Preuzimanja:369
Velicina datoteke:171.58 KB
Pozdrav