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

pmiroslav	15.02.2011 19:08
Predmet:Kopiranje u viÅ¡e tablica odjednom KnjiÅ¾enje u skladiÅ¡tu napravio sam na slijedeći način: Imam tablice Temp_Transakcije i Temp_Izlaz u koje kroe napunim formu frmIzlaz Ispod dugmeta â€žKnjiÅ¾enejâ€œ koji mi podatke iz ovih privremenit tablica kopira u tablice tblTransakcijeIzlaz i Izlaz Kod je slijedeči: PreuzmiIzvorni kôd (vbnet): Private Sub Command_Knjizenje_Click() On Error GoTo Err_Command_Knjizenje_Click Dim Baza As Database Dim Sl_Transakcije As Recordset Dim Sl_TransakcijeUpis As Recordset Dim Sl_Upis As Recordset Dim Sl_Ulaz As Recordset Dim rs As Recordset 'novo Dim mySQL As String 'novo Set Baza = CurrentDb() ' Setovanje Set Sl_Transakcije = Baza.OpenRecordset("tblTransakcijeIzlaz", dbOpenDynaset) ' Tablica U koju se prebacuje Set Sl_TransakcijeUpis = Baza.OpenRecordset("Temp_tblTransakcije", dbOpenDynaset) 'Tablica iz koje se prebacuje Set Sl_Ulaz = Baza.OpenRecordset("Izlaz", dbOpenDynaset) ' Tablica U koju se prebacuje Set Sl_Upis = Baza.OpenRecordset("Temp_Izlaz", dbOpenDynaset) 'Tablica iz koje se prebacuje If Sl_TransakcijeUpis.RecordCount > 0 Then Sl_TransakcijeUpis.MoveFirst While Not Sl_TransakcijeUpis.EOF With Sl_Transakcije .AddNew ![IDTransakcije] = Sl_TransakcijeUpis![IDTransakcije] ![Datum] = Sl_TransakcijeUpis![Datum] ![IDdokumenta] = Sl_TransakcijeUpis![IDdokumenta] ![BrDokumenta] = Sl_TransakcijeUpis![BrDokumenta] ![IDKlijenta] = Sl_TransakcijeUpis![IDDobavljaca] ![RadniNalog] = Sl_TransakcijeUpis![RadniNalog] .Update End With Sl_TransakcijeUpis.MoveNext Wend End If If Sl_Upis.RecordCount > 0 Then Sl_Upis.MoveFirst 'otidi na prvi slog tablice UlazUpis While Not Sl_Upis.EOF ' vrti petlju za sve slogove With Sl_Ulaz .AddNew ![IDTransakcije] = Sl_Upis![IDTransakcije] ![SIFRA] = Sl_Upis![SIFRA] ![Skl] = Sl_Upis![Skl] ![Kolicina] = Sl_Upis![Kolicina] .Update End With mySQL = "SELECT * FROM tblOtpremniceStavke WHERE Sifra =" & SIFRA 'Novo Do While Not rs.EOF 'Novo rs.Edit rs!Proknjizeno = 1 rs.Update rs.MoveNext Loop rs.Close Sl_Upis.MoveNext Wend Else MsgBox "Nema podataka za knjiÅ¾enje", vbInformation, "Upozorenje" GoTo Kraj End If CurrentDb.Execute "DELETEFROM [Temp_tblTransakcije]" CurrentDb.Execute "DELETEFROM [Temp_izlaz]" DoCmd.Requery MsgBox "KNJIÅ½ENJE JE ZAVRÅ ENO, KARTICE SU AÅ½URIRANE", , "Obavijest" Kraj: Set Baza = Nothing Exit_Command_Knjizenje_Click: Exit Sub Err_Command_Knjizenje_Click: Select Case err.Number Case 3201 MsgBox "Niste upisali podatak" Cancel = True Case 3167 MsgBox "Podatak je obrisan", , "PokuÅ¡aj ponovno" Case Else MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji knjizenje()" End Select Resume Exit_Command_Knjizenje_Click End Sub Sada imam problem kako dodati i dio koji će mi joÅ¡ i u tablici tblOtpremnicaStavke u polju ProkljiÅ¾eno 0 promjeniti u 1, kako bi i tu bilo obiljeÅ¾eno da je stavka proknjiÅ¾ene, a ujedno i dodati ID operatora koji je izvrÅ¡io promjene.

pmiroslav

15.02.2011 19:08

Predmet:Kopiranje u viÅ¡e tablica odjednom

KnjiÅ¾enje u skladiÅ¡tu napravio sam na slijedeći način:

Imam tablice
Temp_Transakcije i Temp_Izlaz u koje kroe napunim formu frmIzlaz

Ispod dugmeta â€žKnjiÅ¾enejâ€œ koji mi podatke iz ovih privremenit tablica kopira u tablice
tblTransakcijeIzlaz
i
Izlaz

Kod je slijedeči:

PreuzmiIzvorni kôd (vbnet):

Private Sub Command_Knjizenje_Click()
On Error GoTo Err_Command_Knjizenje_Click
Dim Baza As Database
Dim Sl_Transakcije As Recordset
Dim Sl_TransakcijeUpis As Recordset
Dim Sl_Upis As Recordset
Dim Sl_Ulaz As Recordset
Dim rs As Recordset 'novo
Dim mySQL As String 'novo
Set Baza = CurrentDb() ' Setovanje
Set Sl_Transakcije = Baza.OpenRecordset("tblTransakcijeIzlaz", dbOpenDynaset) ' Tablica U koju se prebacuje
Set Sl_TransakcijeUpis = Baza.OpenRecordset("Temp_tblTransakcije", dbOpenDynaset) 'Tablica iz koje se prebacuje
Set Sl_Ulaz = Baza.OpenRecordset("Izlaz", dbOpenDynaset) ' Tablica U koju se prebacuje
Set Sl_Upis = Baza.OpenRecordset("Temp_Izlaz", dbOpenDynaset) 'Tablica iz koje se prebacuje
If Sl_TransakcijeUpis.RecordCount > 0 Then
Sl_TransakcijeUpis.MoveFirst
While Not Sl_TransakcijeUpis.EOF
With Sl_Transakcije
.AddNew
![IDTransakcije] = Sl_TransakcijeUpis![IDTransakcije]
![Datum] = Sl_TransakcijeUpis![Datum]
![IDdokumenta] = Sl_TransakcijeUpis![IDdokumenta]
![BrDokumenta] = Sl_TransakcijeUpis![BrDokumenta]
![IDKlijenta] = Sl_TransakcijeUpis![IDDobavljaca]
![RadniNalog] = Sl_TransakcijeUpis![RadniNalog]
.Update
End With
Sl_TransakcijeUpis.MoveNext
Wend
End If
If Sl_Upis.RecordCount > 0 Then
Sl_Upis.MoveFirst 'otidi na prvi slog tablice UlazUpis
While Not Sl_Upis.EOF ' vrti petlju za sve slogove
With Sl_Ulaz
.AddNew
![IDTransakcije] = Sl_Upis![IDTransakcije]
![SIFRA] = Sl_Upis![SIFRA]
![Skl] = Sl_Upis![Skl]
![Kolicina] = Sl_Upis![Kolicina]
.Update
End With
mySQL = "SELECT * FROM tblOtpremniceStavke WHERE Sifra =" & SIFRA 'Novo
Do While Not rs.EOF 'Novo
rs.Edit
rs!Proknjizeno = 1
rs.Update
rs.MoveNext
Loop
rs.Close
Sl_Upis.MoveNext
Wend
Else
MsgBox "Nema podataka za knjiÅ¾enje", vbInformation, "Upozorenje"
GoTo Kraj
End If
CurrentDb.Execute "DELETE*FROM [Temp_tblTransakcije]"
CurrentDb.Execute "DELETE*FROM [Temp_izlaz]"
DoCmd.Requery
MsgBox "KNJIÅ½ENJE JE ZAVRÅ ENO, KARTICE SU AÅ½URIRANE", , "Obavijest"
Kraj:
Set Baza = Nothing
Exit_Command_Knjizenje_Click:
Exit Sub
Err_Command_Knjizenje_Click:
Select Case err.Number
Case 3201
MsgBox "Niste upisali podatak"
Cancel = True
Case 3167
MsgBox "Podatak je obrisan", , "PokuÅ¡aj ponovno"
Case Else
MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji knjizenje()"
End Select
Resume Exit_Command_Knjizenje_Click
End Sub

Sada imam problem kako dodati i dio koji će mi joÅ¡ i u tablici tblOtpremnicaStavke u polju ProkljiÅ¾eno 0 promjeniti u 1, kako bi i tu bilo obiljeÅ¾eno da je stavka proknjiÅ¾ene, a ujedno i dodati ID operatora koji je izvrÅ¡io promjene.

zxz	16.02.2011 00:00
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Opet radis istu stvar prepisujes podatke iz tabele u tabelu: To za bazu nije nikad dobro. Zar nisi mogao napraviti u tabeli opciono polje. Ako ti nije ono dovoljno mogao si dodati polje datum ulaza datum izlaza. Da pretpostavim ti vjerovatno imas ulaz po nekoj prijemnici ili racunu odredjenu kolicinu robe e sad desi ti se da tu svu robu po istom papiru pravis izlaz. Onda da nebi unosio stavku po stavku ti sve kopiras u novu tabelu. Ovo samo nagadjem ali cisto sunjam da ti treba to prebacivanje a da te ne pitam kako ces vratiti ako izvrsis pogresnu transakciju. mySQL = "SELECT * FROM tblOtpremniceStavke WHERE Sifra =" & SIFRA 'Novo set rs=baza(Openrecordset(SQL) Do While Not rs.EOF 'Novo rs.Edit rs!Proknjizeno = 1 Rs!Operator=Forms![frm_Ulaz]![Korisnik] rs.Update rs.MoveNext Loop rs.Close

zxz

16.02.2011 00:00

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

Opet radis istu stvar prepisujes podatke iz tabele u tabelu: To za bazu nije nikad dobro. Zar nisi mogao napraviti u tabeli opciono polje.
Ako ti nije ono dovoljno mogao si dodati polje datum ulaza datum izlaza.
Da pretpostavim ti vjerovatno imas ulaz po nekoj prijemnici ili racunu odredjenu kolicinu robe e sad desi ti se da tu svu robu po istom papiru pravis izlaz. Onda da nebi unosio stavku po stavku ti sve kopiras u novu tabelu.
Ovo samo nagadjem ali cisto sunjam da ti treba to prebacivanje a da te ne pitam kako ces vratiti ako izvrsis pogresnu transakciju.

mySQL = "SELECT * FROM tblOtpremniceStavke WHERE Sifra =" & SIFRA 'Novo
set rs=baza(Openrecordset(SQL)
Do While Not rs.EOF 'Novo
rs.Edit
rs!Proknjizeno = 1
Rs!Operator=Forms![frm_Ulaz]![Korisnik]
rs.Update
rs.MoveNext
Loop
rs.Close

pmiroslav	16.02.2011 21:51
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom PosluÅ¡ao sam savjet i preradio bazu, tako da sada imam jednu tablicu za transakcije i jednu tablicu za ulaz i izlaz. Stvarno je tako bolje. Također i sada iz formi za ulaz i izlaz upisujem direktno u tablicu tako da nema kopiranja iz privremene tablice kao Å¡to sam prije dao u primjeru. Jedino joÅ¡ uvjek neznam rijeÅ¡iti kako da kada popunim formu frmIzlaz i njenu subformu da mi se u tablici tblProdajaStavke polje ProknjiÅ¾eno, datum i operID popune za Å¡ifre koje sam upisao.
Prilozi: Prodaja_2.rar (Velicina datoteke:150.74 KB)

pmiroslav

16.02.2011 21:51

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

PosluÅ¡ao sam savjet i preradio bazu, tako da sada imam jednu tablicu za transakcije i jednu tablicu za ulaz i izlaz. Stvarno je tako bolje.
Također i sada iz formi za ulaz i izlaz upisujem direktno u tablicu tako da nema kopiranja iz privremene tablice kao Å¡to sam prije dao u primjeru.
Jedino joÅ¡ uvjek neznam rijeÅ¡iti kako da kada popunim formu frmIzlaz i njenu subformu da mi se u tablici tblProdajaStavke polje ProknjiÅ¾eno, datum i operID popune za Å¡ifre koje sam upisao.

Prilozi:
Prodaja_2.rar (Velicina datoteke:150.74 KB)

zxz	16.02.2011 21:58
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Evo ja cu ti dati jedan prost primjer. Da ti dam bazu na papiru odnosno spisak. Sta bi uradio. nebi prepisivao garan. Vjerovatno bi samo olovkom cekirao proknjizene. U bazi svaka transakcija podataka kodom steti bazi jer to je ogroman broj podataka koji se pise i brise. Ako stvarno imam potrebu za tim onda pravim kodom privremenu mdb te u njoj smijestam podatke. Nakon svake nove transakcije brism mdb i pravim novu. Obino joj dam ime temp.tpr ovo cu pogledati pa ti javim.

zxz

16.02.2011 21:58

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

Evo ja cu ti dati jedan prost primjer.
Da ti dam bazu na papiru odnosno spisak. Sta bi uradio. nebi prepisivao garan.
Vjerovatno bi samo olovkom cekirao proknjizene. U bazi svaka transakcija podataka kodom steti bazi jer to je ogroman broj podataka koji se pise i brise. Ako stvarno imam potrebu za tim onda pravim kodom privremenu mdb te u njoj smijestam podatke. Nakon svake nove transakcije brism mdb i pravim novu.
Obino joj dam ime temp.tpr
ovo cu pogledati pa ti javim.

zxz	17.02.2011 00:37
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Ti imas ovdje dvije zasebne cjeline i tako trebas gledati. To su: Skladista Prodaja Za skladista sam ti napravio tabele. Vjerovatno jos ponesto treba ali srz je tu. Ostavi sada ovaj drugi dio. Cak ga mozes raditi kada ovaj zavrsis. Za prodaju trebas imati objekat u objektu isto imas magacin robe i tu robu prodajes. Moguce da prodajes direktno iz ovih magacina ali opet to ostavi za sada lakse ces raditi. Jos da te pitam ovo: Imas tabelu vrste transakcije i u njoj: Dokument Inventura Primka Predatnica Povratnica Izdatnica Otpremnica Storno e sad mene interesuje kakva je razlika izmedju ovoga dvoga: Izdatnica Otpremnica
Prilozi: magaza.zip (Velicina datoteke:59.59 KB)

zxz

17.02.2011 00:37

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

Ti imas ovdje dvije zasebne cjeline i tako trebas gledati.
To su:
Skladista
Prodaja

Za skladista sam ti napravio tabele. Vjerovatno jos ponesto treba ali srz je tu.
Ostavi sada ovaj drugi dio.
Cak ga mozes raditi kada ovaj zavrsis.
Za prodaju trebas imati objekat u objektu isto imas magacin robe i tu robu prodajes.
Moguce da prodajes direktno iz ovih magacina ali opet to ostavi za sada lakse ces raditi.
Jos da te pitam ovo:
Imas tabelu vrste transakcije i u njoj:
Dokument
Inventura
Primka
Predatnica
Povratnica
Izdatnica
Otpremnica
Storno

e sad mene interesuje kakva je razlika izmedju ovoga dvoga:
Izdatnica
Otpremnica

Prilozi:
magaza.zip (Velicina datoteke:59.59 KB)

pmiroslav	17.02.2011 07:15
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Citiraj zxz: Jos da te pitam ovo: Imas tabelu vrste transakcije i u njoj: Dokument Inventura Primka Predatnica Povratnica Izdatnica Otpremnica Storno e sad mene interesuje kakva je razlika izmedju ovoga dvoga: Izdatnica Otpremnica Imam tablicu koja se zove tblTransakcijeVrsta i ima je i u primjeru koji sam dao. Izdatnica je trebovnica, zanči dokunet kojim se izdaje materijak u peizvodni pogon, a otpremnica je u biti Račun.

pmiroslav

17.02.2011 07:15

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

Citiraj zxz:

Jos da te pitam ovo:
Imas tabelu vrste transakcije i u njoj:
Dokument
Inventura
Primka
Predatnica
Povratnica
Izdatnica
Otpremnica
Storno

e sad mene interesuje kakva je razlika izmedju ovoga dvoga:
Izdatnica
Otpremnica

Imam tablicu koja se zove tblTransakcijeVrsta i ima je i u primjeru koji sam dao.

Izdatnica je trebovnica, zanči dokunet kojim se izdaje materijak u peizvodni pogon, a otpremnica je u biti Račun.

Kiro	17.02.2011 09:47
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Citat: Izdatnica je trebovnica Vjerujem da si se pogreÅ¡no izrazio ali nije tačno gore citirano, to su dva dijametralno suprotna pojma. Trebovnica (trebovanje) = interna narudÅ¾ba. Dokument kojim jedan poslovna jedinica traÅ¾i-trebuje-naručuje neÅ¡to od druge poslovne jedinice. Izdatnica = interna otpremnica također interni dokument kojim jedna poslovna jedinica izdaje-otprema neÅ¡to drugoj poslovnoj jedinici. Ima joÅ¡ naziva za internu dokumentacije ali nije sad bitno. To se zove kolanje poslove dokumentacije. RjeÅ¡enje bi se čini mi se samo nametnulo kada bi se nacrtao dijagram poslovnog procesa, odnosno Kolanja poslovne dokumentacije, imao sam negdje jedan zgodan primjer sa faksa pa ako ga nađem kačim. Na taj način sam nekad prije i sam rjeÅ¡avao svoje probleme. Eto samo mala sugestija jer mi se čini da se vas dvojica ne razumijete baÅ¡ najbolje. Link ka dijagramima poslovnih procesa

Kiro

17.02.2011 09:47

Predmet:Re: Kopiranje u viÅ¡e tablica odjednom

Citat:

Izdatnica je trebovnica

Vjerujem da si se pogreÅ¡no izrazio ali nije tačno gore citirano, to su dva dijametralno suprotna pojma.
Trebovnica (trebovanje) = interna narudÅ¾ba. Dokument kojim jedan poslovna jedinica traÅ¾i-trebuje-naručuje neÅ¡to od druge poslovne jedinice.
Izdatnica = interna otpremnica također interni dokument kojim jedna poslovna jedinica izdaje-otprema neÅ¡to drugoj poslovnoj jedinici.
Ima joÅ¡ naziva za internu dokumentacije ali nije sad bitno.
To se zove kolanje poslove dokumentacije.
RjeÅ¡enje bi se čini mi se samo nametnulo kada bi se nacrtao dijagram poslovnog procesa, odnosno Kolanja poslovne dokumentacije, imao sam negdje jedan zgodan primjer sa faksa pa ako ga nađem kačim.
Na taj način sam nekad prije i sam rjeÅ¡avao svoje probleme.
Eto samo mala sugestija jer mi se čini da se vas dvojica ne razumijete baÅ¡ najbolje.

Link ka dijagramima poslovnih procesa

pmiroslav	17.02.2011 10:28
Predmet:Re: Kopiranje u viÅ¡e tablica odjednom Kod mene u firmi Trebovnicu zaovemo Izdatnica, neznam dali je to ispravno ali tako je. Imamo dvije vrste Izdatnica (Trebovnica). Jedna je za reÅ¾ijski (kancelarijski) materijal na koju se moÅ¾e pisati viÅ¡e stavki, a druga je za sirovine u proizvodnji, na kojoj je samo jedna stavka,
Prilozi: IzdatnicaRM.jpg (Velicina datoteke:137.04 KB) IzdatnicaSirovina.jpg (Velicina datoteke:198.16 KB)