Imam bazu u Access-u, Radnika i problem sa maticnim brojem.

Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 16.07.2009. u 15:07 · pre 210 meseci #1

Imam bazu u Access-u, Radnika i problem sa maticnim brojem. Ako otvorim dosije radnika i pokusam da izmenim njegov JMBG
tako sto selektujem jedan broj i ukucam taj isti broj, on mi prijavljuje da ja vec imam radnika sa istim tim maticnim brojem, a to je u stvari taj isti radnik.Meni treba da prijavi samo ako neki drugi radnik ima isti maticni broj.Hvala unapred.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 16.07.2009. u 15:20 · pre 210 meseci #2

Jel pitanje u vezi Access-a ili VB6? Ako si radio program u VB6, okaci nam projekat.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 17.07.2009. u 09:10 · pre 210 meseci #3

Radim program u VB6, da ali ne mogu da okacim projekat.Nov sam u firmi pa resavam problem sam, pa mi treba mala pomoc.Ako mozete da mi pomognete bio bih vam zahvalan.Pozdrav.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 17.07.2009. u 09:16 · pre 210 meseci #4

Napiši ovdje taj dio koda i izgled tablice sa PK i FK.

Potpis

F

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 12:28 · pre 210 meseci #5

Code:
Private Sub MaticniBrojTxt_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me.MaticniBrojTxt) Then
   If ProveraMaticnogBroja([MaticniBrojTxt]) = False Then
      MsgBox vbLf & "MATIÈNI BROJ NIJE ISPRAVAN", vbExclamation, "UPOZORENJE"
      Cancel = True
      Exit Sub
   End If
End If
If DCount("*", "RADNIK", "MaticniBroj =    " & "'" & Me.MaticniBrojTxt & "'" [red]& "RadnikId <>  " & "'" & Me.MaticniBrojTxt[/red]) > 0 Then
   MsgBox vbLf & "VEÆ POSTOJI RADNIK SA MATIÈNIM BROJEM " & Me.MaticniBrojTxt & vbLf & vbLf _
   & "RadnikId : " & DLookup("RadnikId", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'") & vbLf _
   & "Prezime i ime : " & DLookup("Imeprez", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'") & vbLf _
   & "Radni status : " & DLookup("RadniStatus", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'"), vbExclamation, "UPOZORENJE"
   Cancel = True

   Exit Sub
End If

End Sub

Kao sto vidite dodala sam da ako je RadnikID,koji je iz baze, razlicit od onoga editovanog u TextBoxu i ako ih opet ima vise od 0, da prijavi da vec postoji radnik sa istim maticnim brojem i to je donekle resilo problem.Sada mi kada probam da ukucam JMBG koji je vec otvoren u textBoxu ne prijavljuje da vec postoji takav radnik nego da podatak nije ispravan, sta daradim?

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 12:53 · pre 210 meseci #6

Mislim da nisi shvatio koliko ti je ozbiljno pitanje postavio captPicard. Odgovor na tvoj problem jako zavisi od toga kakav je dizajn baze. Moguće je da je JMBG spoljni ključ u desetinama drugih tabela, pa je onda APSOLUTNO ZABRANJENO DA SE ON PROMENI. Zamisli situaciju kada posle izmene JMBG ostane u desetak tabela gomila slogova koji se referenciraju na stari JMBG!!!

Ukoliko je JMBG u tabeli RADNIK primarni ključ i ako se koristi kao spoljni ključ u drugim tabelama, tada jednostavno NE SME DA SE MENJA U TVOJOJ FORMI.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 12:58 · pre 210 meseci #7

Nije JMBG primarni kljuc, nego je to RadnikId.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 13:17 · pre 210 meseci #8

OK, to je već druga stvar. Ono što mogu da primetim na prvi pogled je da se procedura ProveraMaticnogBroja poziva sa parametrom [MaticniBrojTxt] dok se na svim drugim mestima koristi Me.MaticniBrojTxt. Ne znam VB, ali to mi jedino bode oči u ovom momentu...

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 13:44 · pre 210 meseci #9

Nije to u pitanju, to je sve ok.

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 29.07.2009. u 14:30 · pre 210 meseci #10

Koliko sam shvatio, tvoj problem je šta ti gledaš da li već postoji taj matični broj radnika u bazi nakon šta upišeš istu tu vrijednost u text box. Problem je šta ti upisom te vrijednosti u text box-u nisi promijenila vrijednost u bazi, nego gledaš da li postoji taj JMBG u bazi, a naravno da postoji (čak i da upišeš drugu vrijednost, rezultat je isti).

Ja bi na tvome mjestu to napravio ovako:

Code:
Select JMBG from RADNICI where RADNIK_ID <> :RADNIK

:RADNIK je RADNIK_ID radnika kojeg trenutno editiraš. Tako provjeravaš da li postoji još neki radnik u bazi sa istim matičnim brojem OSIM radnika na kojem se trenutno nalaziš.

Potpis

F

Re: Imam bazu u Access-u, Radnika i problem sa maticnim brojem. 30.07.2009. u 09:44 · pre 210 meseci #11

Hvala vam puno, problem je resen.

Forum kao aplikacija na telefonu

Srodne teme