Predmet:Re: Zabrana duplog unosa
Evo naÅ¡ao sam neÅ¡to u međuvremenu i to radi. Ali htio bi to joÅ¡ malo usavrÅ¡iti pa ću kasnije postaviti pitanje jer sada sam neÅ¡to zauzet
PreuzmiIzvorni kôd (vbnet):Private Sub OIB_BeforeUpdate(Cancel As Integer)
Dim UNOS As String
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLink As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
UNOS = Me.OIB.Value
stLinkCriteria = "[OIB]=" & "'" & UNOS & "'"
' Provjera dali u tblPartneri ve
postoji OIB koji se upisuje
If DCount("OIB", "tblPartneri", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Upozorenje OIB " & UNOS & " ve
je ranije upisan." & vbCr & vbCr & "Biti ete preba
eni na taj zapis.", vbInformation
rsc.FindFirst stLinkCriteria
stDocName = "frmKupci"
stLink = "[OIB]=UNOS"
DoCmd.OpenForm stDocName, , , UNOS
'Me.Bookmark = rsc.Bookmark
End If
Set rcs = Nothing
End Sub
Pozdrav