Prikazi cijelu temu 01.04.2012 00:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zabrana duplog unosa
Probaj ovo moje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub C_NoviKupac_Click()
  2. On Error GoTo Err_C_NoviKupac_Click
  3.  
  4.     Dim stDocName As String
  5.     Dim stLinkCriteria As String
  6.  
  7.     stDocName = "Orders by Customer"
  8.     DoCmd.OpenForm stDocName
  9.     DoCmd.GoToRecord , , acNewRec
  10.  
  11. Exit_C_NoviKupac_Click:
  12.     Exit Sub
  13.  
  14. Err_C_NoviKupac_Click:
  15.     MsgBox err.Description
  16.     Resume Exit_C_NoviKupac_Click
  17.    
  18. End Sub

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub OIB_BeforeUpdate(Cancel As Integer)
  2. Dim Rs As DAO.Recordset
  3. Dim Podatak
  4.  
  5. Podatak = Trim(Me.OIB)
  6. If Format$(Podatak) <> "" Then
  7. Set Rs = Me.Form.RecordsetClone
  8. Rs.FindFirst "[OIB] ='" & Podatak & "'"
  9. If Rs.NoMatch Then GoTo Kraj
  10. Me.Undo
  11. Me.Bookmark = Rs.Bookmark
  12. End If
  13. Kraj:
  14. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.