Prikazi cijelu temu 30.03.2011 15:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Provjera duplog unosa
Otvori tabelu transakcije na dizajn.
Klikni na ikonicu index (Izgled munje).
U polje
Index name stavi napr. StatusTrans i Unique stavi na yes.
U field name dodaj dva zapisa i to:
BrDokumenta
StatusTR

A na on exit polja brdokumenta onda ide ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub BrDokumenta_Exit(Cancel As Integer)
  2. Dim Podatak As String
  3.  
  4. Podatak = Me.BrDokumenta
  5.  
  6. If NadjiVrijednost("tblTransakcije", "BrDokumenta", Podatak) = True Then
  7.    If NadjiVrijednost("tblTransakcije", "BrDokumenta", Me.Status) = True Then
  8.      MsgBox "broj dokumenta ve postoji"
  9.      Cancel = True
  10.    End If
  11. End If
  12. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.