Centar za edukaciju-BiH

Predmet:Zabrana duplog unosa

---

U tablici tblPartneri imam polje OIB (osobni indentifikacijski broj), to je text polje koje ima 11 karajtera.
Ovo polje može biti popunjeno, a i ne mora. PoÅ¡to u tablici zbog toga ima i nepopunjenih polja ne mogu staviti jedinstveni ključ.
Zanima me dali je moguće napraviti da je prazno polje dozvoljeno, a ako se unese podatak da on ne smije ponavljati.

---

Predmet:Re: Zabrana duplog unosa

---

mislim da ovako

Slicice prilozenih slika:

Predmet:Re: Zabrana duplog unosa

---

Koliko znam nemoze ali ima rjesenje.
mas proceduru u oristan kod koja provjerava dali je neki podatak vec unesen i nju mozes staviti na exit polja ili after update mozda bolje da ne provjerava prazne.
Nemogu se sjetiti imena ali pronaci cu ti je ako je ti ne nadjes.
Provjerava u nekoj tabeli u nekom polju dali postoji podata i vraca true ili false.

---

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

---

Predmet:Re: Zabrana duplog unosa

---

Evo pokušavam nešto napraviti kako bi korisniku pomogao da ne unosi duple podatke o kupcima.
na formi 'Orders by Customer' u polju 'OIB' imam proceduru koja vraća poruku ako novo upisani OIB već postoji u tblPartneri.
Nakon toga fokus se vrati na formu za pretragu partnera. Sada bih želio da kursor ode na taj rekord.
E to je problem!

Prilozi:

---

Predmet:Re: Zabrana duplog unosa

---

Eta da se ne mučite. Uspio sam naći rijeÅ¡enje i dobro radi, pa ako nekom treba primjer evo ga.

Prilozi:

---

Predmet:Re: Zabrana duplog unosa

---

Evo ti funkcija za provjeru valjanosti oiba po zakonu
http://www.regos.hr/...0OIB-a.pdf

Private Function KontrolnaZnamenka(ByVal s As String) As Long
Dim i As Long, n As Long
n = 10
For i = 1 To Len(s)
n = n + CLng(Mid(s, i, 1))
n = n Mod 10
If n = 0 Then n = 10
n = n * 2
n = n Mod 11
Next
n = 11 - n
If n = 10 Then n = 0
KontrolnaZnamenka = n
End Function
Public Function ProvjeriOIB(ByVal s As String) As Boolean
On Error GoTo e
If Len(s) <> 11 Then Exit Function
If Mid(s, 11, 1) <> KontrolnaZnamenka(Mid(s, 1, 10)) Then Exit Function
ProvjeriOIB = True
e:
End Function
Ulaz je
ProvjeriOIB

Predmet:Re: Zabrana duplog unosa

---

Probaj ovo moje:

---

Predmet:Re: Zabrana duplog unosa

---

nisi me ubro
tvoj kod je provjera dal postoji u bazi a moj kod je dali je struktura oib-a točna ako upiÅ¡eÅ¡ "00000000000"
program če ti dozvoliti unos ali takav oib ne postoji. Å to ako operator unese krivi oib partnera (recimo zamjeni neke brojke )
za to su ti ove funkcije
:-)

Predmet:Re: Zabrana duplog unosa

---

I jedno i drugo je odlično pa sam spojio obadva koda i primjenio ih u svom primjeru.

Prilozi:

---