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

zxz	17.12.2010 23:46
Predmet:Re: Autonumber se ponavlja Stavio si pogresnu proceduru na on current. Ona ti je samo za jednokratnu upotrebu da upises posojece rekorde a na on current sam ti dao gore proceduru koju trebas staviti.

pmiroslav	18.12.2010 16:17
Predmet:Re: Autonumber se ponavlja Uspjelo je. Upisao sam nove Å¡ifre u originalnu tablicu POCES i za sada sve radi dobro. Međutim strah me kako tu novu Å¡ifru ubaciti u sve tablice koje su povezane relacijama. Ova moja baza je dosta velika i u njoj ima i puno Querya u kojima su većinom relacije na taj sadaÅ¡nji ID
Prilozi: Queryes.jpg (Velicina datoteke:268.91 KB) Relationships.jpg (Velicina datoteke:217.09 KB)

pmiroslav

18.12.2010 16:17

Predmet:Re: Autonumber se ponavlja

Uspjelo je. Upisao sam nove Å¡ifre u originalnu tablicu POCES i za sada sve radi dobro. Međutim strah me kako tu novu Å¡ifru ubaciti u sve tablice koje su povezane relacijama. Ova moja baza je dosta velika i u njoj ima i puno Querya u kojima su većinom relacije na taj sadaÅ¡nji ID

Prilozi:
Queryes.jpg (Velicina datoteke:268.91 KB)
Relationships.jpg (Velicina datoteke:217.09 KB)

zxz	18.12.2010 16:29
Predmet:Re: Autonumber se ponavlja Nema te sta biti strah. Kao prvo to neces raditi sa orginlom nego kopijom. I kad sve uradis opet orginal ne brises nego samo promijenis imena. Tako ces uraditi i sa ovim poljem. Dat ces mu ime kao staro sto je bilo a staro pobrises. Sta dalje? Sada ces ovo polje ubaciti u sve tabele koje su relacijski vezane pa cemo napraviti kod da prebaci i sifre.

zxz

18.12.2010 16:29

Predmet:Re: Autonumber se ponavlja

Nema te sta biti strah.
Kao prvo to neces raditi sa orginlom nego kopijom.
I kad sve uradis opet orginal ne brises nego samo promijenis imena.
Tako ces uraditi i sa ovim poljem. Dat ces mu ime kao staro sto je bilo a staro pobrises.

Sta dalje?
Sada ces ovo polje ubaciti u sve tabele koje su relacijski vezane pa cemo napraviti kod da prebaci i sifre.

pmiroslav	18.12.2010 17:08
Predmet:Re: Autonumber se ponavlja Napravio sam nova polja u svim tablicama koje su relacijski vezane ta tablicu PROCES. Ostavio sam isto ime polja samo sam dodao _N npr ID = ID_N
Prilozi: Relationships_N.jpg (Velicina datoteke:190.77 KB)

pmiroslav

18.12.2010 17:08

Predmet:Re: Autonumber se ponavlja

Napravio sam nova polja u svim tablicama koje su relacijski vezane ta tablicu PROCES. Ostavio sam isto ime polja samo sam dodao _N

npr ID = ID_N

Prilozi:
Relationships_N.jpg (Velicina datoteke:190.77 KB)

zxz	18.12.2010 17:47
Predmet:Re: Autonumber se ponavlja Ok. Sad mi dolaze gosti ali veceras cu najvjerovatnije ti uraditi kod.

zxz

18.12.2010 17:47

Predmet:Re: Autonumber se ponavlja

Ok. Sad mi dolaze gosti ali veceras cu najvjerovatnije ti uraditi kod.

zxz	19.12.2010 00:24
Predmet:Re: Autonumber se ponavlja Evo ti. Nisam istestirao jer nemam tabele. Probaj pa javi. PreuzmiIzvorni kôd (Visual Basic): Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String) Dim DB As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL1 As String Dim SQL2 As String Dim StariKljuc As Integer Dim NoviKljuc As String Set DB = CurrentDb SQL1 = "SELECT ID, ID_String FROM Proces" Set Rs1 = DB.OpenRecordset(SQL1) Do While Not Rs1.EOF StariKljuc = ID NoviKljuc = ID_String SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & Imetabela & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc Do While Not Rs2.EOF Rs2.Edit Rs2.Fields(0) = NoviKljuc Rs2.MoveNext Loop Rs2.Close Rs1.MoveNext Loop End Function

zxz

19.12.2010 00:24

Predmet:Re: Autonumber se ponavlja

Evo ti.
Nisam istestirao jer nemam tabele. Probaj pa javi.

PreuzmiIzvorni kôd (Visual Basic):

Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String)
Dim DB As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2 As String
Dim StariKljuc As Integer
Dim NoviKljuc As String
Set DB = CurrentDb
SQL1 = "SELECT ID, ID_String FROM Proces"
Set Rs1 = DB.OpenRecordset(SQL1)
Do While Not Rs1.EOF
StariKljuc = ID
NoviKljuc = ID_String
SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & Imetabela & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc
Do While Not Rs2.EOF
Rs2.Edit
Rs2.Fields(0) = NoviKljuc
Rs2.MoveNext
Loop
Rs2.Close
Rs1.MoveNext
Loop
End Function

pmiroslav	19.12.2010 10:10
Predmet:Re: Autonumber se ponavlja Isprobao sam ali na Å¾alost ne radi. Kada na pravim Debug funkcije, stane na redu "StariKljuc = ID" i javi se poruka Compile error: Variable Not Definet" Evo Å¡aljem i primjer sa tri tablice
Prilozi: Proces_be.rar (Velicina datoteke:29.14 KB)

pmiroslav

19.12.2010 10:10

Predmet:Re: Autonumber se ponavlja

Isprobao sam ali na Å¾alost ne radi.
Kada na pravim Debug funkcije, stane na redu "StariKljuc = ID" i javi se poruka

Compile error: Variable Not Definet"

Evo Å¡aljem i primjer sa tri tablice

Prilozi:
Proces_be.rar (Velicina datoteke:29.14 KB)

zxz	19.12.2010 12:32
Predmet:Re: Autonumber se ponavlja Evo ti procedura. Na ovim poljima u field size upisi 8. Evo primjera poziva za tabelu Stroj. ?PrebaciKljuc("Stroj","IDStroja","IDstroja_N") PreuzmiIzvorni kôd (Visual Basic): Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String) Dim Db As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL1 As String Dim SQL2 As String Dim StariKljuc As Integer Dim NoviKljuc As String Set Db = CurrentDb SQL1 = "SELECT ID, ID_N FROM Proces" Set Rs1 = Db.OpenRecordset(SQL1) Do While Not Rs1.EOF StariKljuc = Rs1!ID NoviKljuc = Rs1!ID_N SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & ImeTabele & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc Set Rs2 = Db.OpenRecordset(SQL2) Do While Not Rs2.EOF Rs2.Edit Rs2.Fields(0) = NoviKljuc Rs2.Update Rs2.MoveNext Loop Rs2.Close Rs1.MoveNext Loop End Function

zxz

19.12.2010 12:32

Predmet:Re: Autonumber se ponavlja

Evo ti procedura.
Na ovim poljima u field size upisi 8.
Evo primjera poziva za tabelu Stroj.
?PrebaciKljuc("Stroj","IDStroja","IDstroja_N")

PreuzmiIzvorni kôd (Visual Basic):

Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2 As String
Dim StariKljuc As Integer
Dim NoviKljuc As String
Set Db = CurrentDb
SQL1 = "SELECT ID, ID_N FROM Proces"
Set Rs1 = Db.OpenRecordset(SQL1)
Do While Not Rs1.EOF
StariKljuc = Rs1!ID
NoviKljuc = Rs1!ID_N
SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & ImeTabele & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc
Set Rs2 = Db.OpenRecordset(SQL2)
Do While Not Rs2.EOF
Rs2.Edit
Rs2.Fields(0) = NoviKljuc
Rs2.Update
Rs2.MoveNext
Loop
Rs2.Close
Rs1.MoveNext
Loop
End Function

pmiroslav	19.12.2010 13:20
Predmet:Re: Autonumber se ponavlja Isprobao sam i sada radi. Puno ti havla na trudu. Sutra ću na poslu isprobati sve na kopiji originalne baze.

pmiroslav

19.12.2010 13:20

Predmet:Re: Autonumber se ponavlja

Isprobao sam i sada radi.
Puno ti havla na trudu. Sutra ću na poslu isprobati sve na kopiji originalne baze.

pmiroslav	20.12.2010 12:51
Predmet:Re: Autonumber se ponavlja Prepravljam upravo ovu moju bazu i sada imam problem u jednoj funkciji, najvjerovatnije to Å¡to je prije ID bio Broj a sada je string kada pokrenem funkciju dobijem poruku: "Data type mismatch in criteria expression" PreuzmiIzvorni kôd (vbnet): Function Slozi() Dim Baza As Database Dim Sl_Table1 As Recordset Dim Sl_Table2 As Recordset Dim Usl_Poz As String Dim Sl_Poz As Recordset Dim Stroj As String Dim Sklop As String Dim Podsklop As String Dim Cvor As String Dim tekuciStroj As String Dim tekuciSklop As String Dim tekuciPodsklop As String Dim tekuciCvor As String Dim stDocName As String [color=#FF0033] 'problem je neÅ¡to u ovome ?[/color] Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr = " & Stroj _ & "And IDSkl = " & Sklop _ & "And IDPskl = " & Podsklop _ & "And IDv = " & Cvor Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset) [color=#FF0033] ' Procedura stane na ovome [/color] If Sl_Poz.RecordCount > 0 Then Sl_Poz.MoveFirst While Not Sl_Poz.EOF ' dodaje slogove za Pozicije''' With Sl_Table2 If Not IsNull(Sl_Table1![IDPoz]) Then .AddNew ![IDStroja] = Sl_Table1![IDKombinacija] ![Nivo] = 4 ![KomStr] = Sl_Table1![KomStr] ![Index] = Sl_Table1![IndexPoz] ![IDdijela] = Sl_Poz![IDPoz] ![BrKomada] = Sl_Poz![KomPoz] ![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![Komv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr] .Update End If End With Sl_Poz.MoveNext Wend

pmiroslav

20.12.2010 12:51

Predmet:Re: Autonumber se ponavlja

Prepravljam upravo ovu moju bazu i sada imam problem u jednoj funkciji, najvjerovatnije to Å¡to je prije ID bio Broj a sada je string

kada pokrenem funkciju dobijem poruku:
"Data type mismatch in criteria expression"

PreuzmiIzvorni kôd (vbnet):

Function Slozi()
Dim Baza As Database
Dim Sl_Table1 As Recordset
Dim Sl_Table2 As Recordset
Dim Usl_Poz As String
Dim Sl_Poz As Recordset
Dim Stroj As String
Dim Sklop As String
Dim Podsklop As String
Dim Cvor As String
Dim tekuciStroj As String
Dim tekuciSklop As String
Dim tekuciPodsklop As String
Dim tekuciCvor As String
Dim stDocName As String
[color=#FF0033] 'problem je neÅ¡to u ovome ?[/color]
Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr = " & Stroj _
& "And IDSkl = " & Sklop _
& "And IDPskl = " & Podsklop _
& "And IDv = " & Cvor
Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset) [color=#FF0033] ' Procedura stane na ovome
[/color]
If Sl_Poz.RecordCount > 0 Then
Sl_Poz.MoveFirst
While Not Sl_Poz.EOF ' dodaje slogove za Pozicije'''
With Sl_Table2
If Not IsNull(Sl_Table1![IDPoz]) Then
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 4
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexPoz]
![IDdijela] = Sl_Poz![IDPoz]
![BrKomada] = Sl_Poz![KomPoz]
![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![Komv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
.Update
End If
End With
Sl_Poz.MoveNext
Wend