Prikazi cijelu temu 30.03.2012 10:35
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub OIB_BeforeUpdate(Cancel As Integer)
  2. Dim UNOS As String
  3. Dim stDocName As String
  4. Dim stLinkCriteria As String
  5. Dim stLink As String
  6. Dim rsc As DAO.Recordset
  7.  
  8. Set rsc = Me.RecordsetClone
  9.  
  10. UNOS = Me.OIB.Value
  11.  
  12. stLinkCriteria = "[OIB]=" & "'" & UNOS & "'"
  13.    
  14.     ' Provjera dali u  tblPartneri ve postoji OIB koji se upisuje
  15.  
  16. If DCount("OIB", "tblPartneri", stLinkCriteria) > 0 Then
  17.  
  18. Me.Undo
  19.  
  20. MsgBox "Upozorenje OIB " & UNOS & " ve je ranije upisan." & vbCr & vbCr & "Biti ete preba eni na taj zapis.", vbInformation
  21.  
  22. rsc.FindFirst stLinkCriteria
  23.  
  24. stDocName = "frmKupci"
  25. stLink = "[OIB]=UNOS"
  26. DoCmd.OpenForm stDocName, , , UNOS
  27.  
  28.  
  29. 'Me.Bookmark = rsc.Bookmark
  30. End If
  31. Set rcs = Nothing
  32. End Sub
Pozdrav