iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	30.03.2011 09:00
Predmet:Baza za skladiÅ¡te Imam tablicu tblTransakcije sa poljima IDtransakcije datum IDDokumenta BrDokumenta itd na dvije forme koje sluÅ¡e za upis ulaza i izlaza na kontroli "BrDokumenta" da bi spriječio dvostruki upis istog broja dokumenta na Before Updata stavi sam slijedeći kod: PreuzmiIzvorni kôd (vbnet): Private Sub BrDokumenta_BeforeUpdate(Cancel As Integer) Dim Unos As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone Unos = Me.BrDokumenta.Value stLinkCriteria = "[BrDokumenta]=" & "'" & Unos & "'" If DCount("BrDokumenta", "tblTransakcije", stLinkCriteria) > 0 Then Me.Undo MsgBox "Upozorenje dokument broj " & Unos & " ve je ranije upisan." & vbCr & vbInformation End If If IsNull(Me![IDdokumenta]) Then MsgBox "Niste upisali broj dokumenta", , "GreÅ¡ka!" DoCmd.GoToControl "IDDokumenta" End If End Sub I to radi. Međutim sada mi se pojavo problem da ipak ponekad imam porebu upisati isti broj dokumenta ali za zaličite vrste dokumenta. Npr. imam MeđuskladiÅ¡nu otpremnicu sa kojom sa jednog skladiÅ¡ta skida stanje (izlaz) i na drugo skladiÅ¡te dodajem stanje (Ulaz) Ili imama dvije različite vrste dokumenata (Otpremnicu ili izdatnicu), a dogodi se da imaju isti broj. Zato mi treba provjera upisa po dva kriterija Recimo BrDokumenta + IDdokumenta Molim pomoć

pmiroslav

30.03.2011 09:00

Predmet:Baza za skladiÅ¡te

Imam tablicu tblTransakcije sa poljima

IDtransakcije
datum
IDDokumenta
BrDokumenta

itd

na dvije forme koje sluÅ¡e za upis ulaza i izlaza na kontroli "BrDokumenta" da bi spriječio dvostruki upis istog broja dokumenta na Before Updata stavi sam slijedeći kod:

PreuzmiIzvorni kôd (vbnet):

Private Sub BrDokumenta_BeforeUpdate(Cancel As Integer)
Dim Unos As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Unos = Me.BrDokumenta.Value
stLinkCriteria = "[BrDokumenta]=" & "'" & Unos & "'"
If DCount("BrDokumenta", "tblTransakcije", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Upozorenje dokument broj " & Unos & " ve je ranije upisan." & vbCr & vbInformation
End If
If IsNull(Me![IDdokumenta]) Then
MsgBox "Niste upisali broj dokumenta", , "GreÅ¡ka!"
DoCmd.GoToControl "IDDokumenta"
End If
End Sub

I to radi. Međutim sada mi se pojavo problem da ipak ponekad imam porebu upisati isti broj dokumenta ali za zaličite vrste dokumenta.

Npr. imam MeđuskladiÅ¡nu otpremnicu sa kojom sa jednog skladiÅ¡ta skida stanje (izlaz) i na drugo skladiÅ¡te dodajem stanje (Ulaz)

Ili imama dvije različite vrste dokumenata (Otpremnicu ili izdatnicu), a dogodi se da imaju isti broj.

Zato mi treba provjera upisa po dva kriterija

Recimo BrDokumenta + IDdokumenta

Molim pomoć

zxz	30.03.2011 09:56
Predmet:Baza za skladiÅ¡te Da ti slucajno ne prepisujes ovo sa teme proizvodnja hehehe. Salim se. Ukoliko pratis temu proizvodnja trebao bi se malo ukljuciti da znamo tvoje misljenje. Za ovo tvoje: ako imas u tabeli transakcije polje status napr ili neko drugo polje koje razdvaja ulaz od izlaza onda je najbolje napraviti slozeni kljuc od 2 polja napr. Iddokumenta i status ili pak idDokumenta i idTransakcije. U tom slucaju neces moci svakako unijeti dupli unos te kod mozes prepravti odnosno samo presretati gresku duplog kljuca. Sad ako i to neces onda imas proceduru u korisnom kodu koja vrsi provjeru dali u nekoj tabeli u nekom polju postoji neki podatak. Znaci provjeravao bi iz oba ova pÅ¡olja dali podatak postoji pa aako je istina u oba slucaja onda je dupli. Oedluci se kako ces napraviti prvo.

zxz

30.03.2011 09:56

Predmet:Baza za skladiÅ¡te

Da ti slucajno ne prepisujes ovo sa teme proizvodnja hehehe.
Salim se. Ukoliko pratis temu proizvodnja trebao bi se malo ukljuciti da znamo tvoje misljenje.
Za ovo tvoje:
ako imas u tabeli transakcije polje status napr ili neko drugo polje koje razdvaja ulaz od izlaza onda je najbolje napraviti slozeni kljuc od 2 polja napr. Iddokumenta i status ili pak idDokumenta i idTransakcije.
U tom slucaju neces moci svakako unijeti dupli unos te kod mozes prepravti odnosno samo presretati gresku duplog kljuca.

Sad ako i to neces onda imas proceduru u korisnom kodu koja vrsi provjeru dali u nekoj tabeli u nekom polju postoji neki podatak.
Znaci provjeravao bi iz oba ova pÅ¡olja dali podatak postoji pa aako je istina u oba slucaja onda je dupli.

Oedluci se kako ces napraviti prvo.

pmiroslav	30.03.2011 10:52
Predmet:Baza za skladiÅ¡te Ne, prepisujem veÅ¡ radim na onome Å¡to smo prije radili. Prelistao sam koristan kod, ani nisam uspio pronači proceduru.

pmiroslav

30.03.2011 10:52

Predmet:Baza za skladiÅ¡te

Ne, prepisujem veÅ¡ radim na onome Å¡to smo prije radili.

Prelistao sam koristan kod, ani nisam uspio pronači proceduru.

zxz	30.03.2011 11:33
Predmet:Re: Provjera duplog unosa PreuzmiIzvorni kôd (Visual Basic): Function NadjiVrijednost(ImeTabele As String, ImePolja As String, _ Vrijednost As Variant) As Boolean Dim db As Database Dim rst As DAO.Recordset Dim SQL, A As Variant '*************************************************************************************** 'Ova funkcija sluzi za trazenje zadanog podatka u zadanoj Tabeli u 'zadatom polju i vraca vrijednost 'ako ima True i ako nema podatka False 'Ulazne vrijednosti su: ImeTabela kao string ImePolja kao string i 'Vrijednost kao trazena vrijednost 'Ako je vrijednost string onda se pise pod znacimea navoda 'Ako je vrijednost datum onda se pise kao: "#05/05/2000#" 'Ako je vrijednost Yes/No onda se pise kao: Yes=-1 No=0 'Ako je vrijednost broj?ana onda se pise broj bez znakova navoda 'Autor funkcije(ZXZ) '****************************************************************************************** Set db = CurrentDb() 'Setovanje baze A = Val(Vrijednost) 'Brojcana vrijednost ulaznog podatka ako je ima If A <> Vrijednost Then 'Ako je brojcana vrijednost razlicita od _ vrijednosti onda nije broj If Left(Vrijednost, 1) <> "#" Then 'Ako je na prvom mjestu znak # _ onda je datum Vrijednost = "'" & Vrijednost & "'" 'Posto je string treba dodati znake _ navoda " " End If End If SQL = "SELECT " & ImeTabele & "." & ImePolja & " FROM " & ImeTabele _ & " WHERE (((" & ImeTabele & "." & ImePolja & ")=" & Vrijednost & "));" Set rst = db.OpenRecordset(SQL) 'Setovanje tabele If rst.RecordCount = 0 Then 'Ako je broj redova 0 tada NadjiVrijednost = False ' NadjiVrijednost je False Else 'Inace NadjiVrijednost = True 'NadjiVrijednost je True End If Set db = Nothing rst.Close 'Zatvori rekordset(Qyery) End Function

zxz

30.03.2011 11:33

Predmet:Re: Provjera duplog unosa

PreuzmiIzvorni kôd (Visual Basic):

Function NadjiVrijednost(ImeTabele As String, ImePolja As String, _
Vrijednost As Variant) As Boolean
Dim db As Database
Dim rst As DAO.Recordset
Dim SQL, A As Variant
'*****************************************************************************************
'Ova funkcija sluzi za trazenje zadanog podatka u zadanoj Tabeli u
'zadatom polju i vraca vrijednost
'ako ima True i ako nema podatka False
'Ulazne vrijednosti su: ImeTabela kao string ImePolja kao string i
'Vrijednost kao trazena vrijednost
'Ako je vrijednost string onda se pise pod znacimea navoda
'Ako je vrijednost datum onda se pise kao: "#05/05/2000#"
'Ako je vrijednost Yes/No onda se pise kao: Yes=-1 No=0
'Ako je vrijednost broj?ana onda se pise broj bez znakova navoda
'Autor funkcije(ZXZ)
'********************************************************************************************
Set db = CurrentDb() 'Setovanje baze
A = Val(Vrijednost) 'Brojcana vrijednost ulaznog podatka ako je ima
If A <> Vrijednost Then 'Ako je brojcana vrijednost razlicita od _
vrijednosti onda nije broj
If Left(Vrijednost, 1) <> "#" Then 'Ako je na prvom mjestu znak # _
onda je datum
Vrijednost = "'" & Vrijednost & "'" 'Posto je string treba dodati znake _
navoda " "
End If
End If
SQL = "SELECT " & ImeTabele & "." & ImePolja & " FROM " & ImeTabele _
& " WHERE (((" & ImeTabele & "." & ImePolja & ")=" & Vrijednost & "));"
Set rst = db.OpenRecordset(SQL) 'Setovanje tabele
If rst.RecordCount = 0 Then 'Ako je broj redova 0 tada
NadjiVrijednost = False ' NadjiVrijednost je False
Else 'Inace
NadjiVrijednost = True 'NadjiVrijednost je True
End If
Set db = Nothing
rst.Close 'Zatvori rekordset(Qyery)
End Function

pmiroslav	30.03.2011 12:04
Predmet:Baza za skladiÅ¡te Ja sam prije ovoga pokuÅ¡ao naprviti trostruki ključ u tablici tblTransakcije, ali ona nisam uspio napraviti relaciju sa tblUlaz_Izlaz (ulazi i izlazi su mi u jednoj tablici) tblTransakcija.IDTransakcije <=> tblUlaz_Izlaz.IDTransakcije javlja se poruka: No unique field found
Prilozi: kljuc.jpg (Velicina datoteke:36.85 KB)

pmiroslav

30.03.2011 12:04

Predmet:Baza za skladiÅ¡te

Ja sam prije ovoga pokuÅ¡ao naprviti trostruki ključ u tablici tblTransakcije, ali ona nisam uspio napraviti relaciju sa tblUlaz_Izlaz (ulazi i izlazi su mi u jednoj tablici)

tblTransakcija.IDTransakcije <=> tblUlaz_Izlaz.IDTransakcije

javlja se poruka:

No unique field found

Prilozi:
kljuc.jpg (Velicina datoteke:36.85 KB)

zxz	30.03.2011 12:09
Predmet:Re: Provjera duplog unosa Sa autonumber poljem je bezvrijedno praviti slozeni kljuc jer autonamber je sam jedinstven broj. Primjer: Imas polja ime prezime i ime oca sada kada stavis sva tri polja kao kljuc onda ti se nemogu ponoviti samo oni koji imaju sve sva polja isto inesena. Mislim na ova 3. Na kraju se mouze indeksirati da nema duoplikata a i nemora biti kljuc.

zxz

30.03.2011 12:09

Predmet:Re: Provjera duplog unosa

Sa autonumber poljem je bezvrijedno praviti slozeni kljuc jer autonamber je sam jedinstven broj.
Primjer:
Imas polja ime prezime i ime oca
sada kada stavis sva tri polja kao kljuc onda ti se nemogu ponoviti samo oni koji imaju sve sva polja isto inesena. Mislim na ova 3.
Na kraju se mouze indeksirati da nema duoplikata a i nemora biti kljuc.

pmiroslav	30.03.2011 12:52
Predmet:Re: Provjera duplog unosa Pa onda joÅ¡ uvijek neznam kako da to najbolje rijeÅ¡im

pmiroslav

30.03.2011 12:52

Predmet:Re: Provjera duplog unosa

Pa onda joÅ¡ uvijek neznam kako da to najbolje rijeÅ¡im

zxz	30.03.2011 13:26
Predmet:Re: Provjera duplog unosa Zakaci samo ovu tabelu i formu ili opet evo da ponovim. Najbolje je indeksirati po ta 2 polja da nemaju duplikata. Po poljima koja nesmiju imati dupli onuos. Onda ti ostaje da presretnes gresku na eng. ako hoces pa da napises svoj msgbox. Drugi nacin je sa ovom procedurom. Moras je pozvati 2 puta jednom da provjeris dali postoji prvi podatak iz prvog polja te da provjeris dali postoji drugi podatak upisani u drugom polju te ako oba imaju znaci da je duplikat.

zxz

30.03.2011 13:26

Predmet:Re: Provjera duplog unosa

Zakaci samo ovu tabelu i formu ili opet evo da ponovim.
Najbolje je indeksirati po ta 2 polja da nemaju duplikata. Po poljima koja nesmiju imati dupli onuos.
Onda ti ostaje da presretnes gresku na eng. ako hoces pa da napises svoj msgbox.

Drugi nacin je sa ovom procedurom.
Moras je pozvati 2 puta jednom da provjeris dali postoji prvi podatak iz prvog polja te da provjeris dali postoji drugi podatak upisani u drugom polju te ako oba imaju znaci da je duplikat.

pmiroslav	30.03.2011 13:46
Predmet:Re: Provjera duplog unosa Evo primjer
Prilozi: ProvjeraUnosa.rar (Velicina datoteke:33.97 KB)

pmiroslav

30.03.2011 13:46

Predmet:Re: Provjera duplog unosa

Evo primjer

Prilozi:
ProvjeraUnosa.rar (Velicina datoteke:33.97 KB)

zxz	30.03.2011 14:26
Predmet:Re: Provjera duplog unosa Jel hoces bez obziora na status da broj dokumenta nemoze biti isti. Ako to hoces stavi u tabeli na to polje da nema duplikata tj. Indexed: no duplicates Onu gore proceduru kopiraj u modul neki. na on exit polja broj dokumenta postavi ovo: PreuzmiIzvorni kôd (Visual Basic): Private Sub BrDokumenta_Exit(Cancel As Integer) Dim Podatak As String Podatak = Me.BrDokumenta If NadjiVrijednost("tblTransakcije", "BrDokumenta", Podatak) = True Then MsgBox "broj dokumenta ve postoji" Cancel = True End If End Sub

zxz

30.03.2011 14:26

Predmet:Re: Provjera duplog unosa

Jel hoces bez obziora na status da broj dokumenta nemoze biti isti.
Ako to hoces stavi u tabeli na to polje da nema duplikata tj.
Indexed: no duplicates

Onu gore proceduru kopiraj u modul neki.

na on exit polja broj dokumenta postavi ovo:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub BrDokumenta_Exit(Cancel As Integer)
Dim Podatak As String
Podatak = Me.BrDokumenta
If NadjiVrijednost("tblTransakcije", "BrDokumenta", Podatak) = True Then
MsgBox "broj dokumenta ve postoji"
Cancel = True
End If
End Sub