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

Bosanec	30.03.2011 14:40
Predmet:Re: Provjera duplog unosa evo moje rjeÅ¡enje ako sam dobro skonto pozdrav
Prilozi: ProvjeraUnosa.rar (Velicina datoteke:44.59 KB)

pmiroslav	30.03.2011 14:41
Predmet:Re: Provjera duplog unosa Å½elim da za različiti status moÅ¾e biti isti broj dokumenta. Na primjer imam tzv. "MeđuskladiÅ¡nu otpremnicu", to je dokument sa kojim artikl sa jednog skladiÅ¡ta skidam i premjeÅ¡tam ga u drugo skladiÅ¡te.

pmiroslav

30.03.2011 14:41

Predmet:Re: Provjera duplog unosa

Å½elim da za različiti status moÅ¾e biti isti broj dokumenta.
Na primjer imam tzv. "MeđuskladiÅ¡nu otpremnicu", to je dokument sa kojim artikl sa jednog skladiÅ¡ta skidam i premjeÅ¡tam ga u drugo skladiÅ¡te.

zxz	30.03.2011 15:12
Predmet:Re: Provjera duplog unosa Otvori tabelu transakcije na dizajn. Klikni na ikonicu index (Izgled munje). U polje Index name stavi napr. StatusTrans i Unique stavi na yes. U field name dodaj dva zapisa i to: BrDokumenta StatusTR A na on exit polja brdokumenta onda ide ovako: 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 If NadjiVrijednost("tblTransakcije", "BrDokumenta", Me.Status) = True Then MsgBox "broj dokumenta ve postoji" Cancel = True End If End If End Sub

zxz

30.03.2011 15:12

Predmet:Re: Provjera duplog unosa

Otvori tabelu transakcije na dizajn.
Klikni na ikonicu index (Izgled munje).
U polje
Index name stavi napr. StatusTrans i Unique stavi na yes.
U field name dodaj dva zapisa i to:
BrDokumenta
StatusTR

A na on exit polja brdokumenta onda ide ovako:

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
If NadjiVrijednost("tblTransakcije", "BrDokumenta", Me.Status) = True Then
MsgBox "broj dokumenta ve postoji"
Cancel = True
End If
End If
End Sub

pmiroslav	31.03.2011 12:29
Predmet:Re: Provjera duplog unosa Hvala na pomoći, oba prijedloga su dobr. Sada imam novi problem. U bazi je tablica tblProdaja i tblPtodajaStavke, ove tablice popunjava referent prodaje kada pravi otpremnnicu. Problem je kako da skladiÅ¡tar iz ovih tablica prebaci podatke u tablicu tblUlazIzlaz, a da se to ne mora raditi ručno
Prilozi: Knjizenje.rar (Velicina datoteke:42.74 KB)

pmiroslav

31.03.2011 12:29

Predmet:Re: Provjera duplog unosa

Hvala na pomoći, oba prijedloga su dobr.

Sada imam novi problem.
U bazi je tablica tblProdaja i tblPtodajaStavke, ove tablice popunjava referent prodaje kada pravi otpremnnicu.
Problem je kako da skladiÅ¡tar iz ovih tablica prebaci podatke u tablicu tblUlazIzlaz, a da se to ne mora raditi ručno

Prilozi:
Knjizenje.rar (Velicina datoteke:42.74 KB)

zxz	31.03.2011 20:00
Predmet:Re: Provjera duplog unosa Evo sad sam htio to odraditi ali bi mi trebalo mnogo vremena da desifrujem polja. Trebao bi malo pojasniti da ne trazim sam. Koji je kljucni podatak na osnovu kojega kupim podatke iz tabele tblProdajaSavke i koji podqatak smijestam u koje polje u tabelu tblUlazIzlaz.

zxz

31.03.2011 20:00

Predmet:Re: Provjera duplog unosa

Evo sad sam htio to odraditi ali bi mi trebalo mnogo vremena da desifrujem polja.
Trebao bi malo pojasniti da ne trazim sam.
Koji je kljucni podatak na osnovu kojega kupim podatke iz tabele tblProdajaSavke i koji podqatak smijestam u koje polje u tabelu tblUlazIzlaz.

pmiroslav	01.04.2011 07:21
Predmet:Re: Provjera duplog unosa Malo sam viÅ¡e razmiÅ¡ljao i mislim da bi trebalo zapravo nekako ovako: napraviti prvo dva Querya q_Prodaja: PreuzmiIzvorni kôd (vbnet): SELECT tblProdaja.OrderID, tblProdaja.PartnerID, tblProdaja.Skladiste, tblProdajaStavke.Sifra, tblProdajaStavke.Kolicina FROM tblProdaja INNER JOIN tblProdajaStavke ON tblProdaja.OrderID = tblProdajaStavke.OrderID; i Q_Izlaz: PreuzmiIzvorni kôd (Visual Basic): SELECT tblTransakcije.IDTransakcije, tblTransakcije.Datum, tblTransakcije.IDdokumenta, tblTransakcije.BrDokumenta, tblTransakcije.PartnerID, tblTransakcije.RadniNalog, tblTransakcije.OperID, tblTransakcije.StatusTR, tblUlazIzlaz.Sifra, tblUlazIzlaz.Skl, tblUlazIzlaz.Izlaz, tblUlazIzlaz.Status FROM tblTransakcije INNER JOIN tblUlazIzlaz ON tblTransakcije.IDTransakcije = tblUlazIzlaz.IDtransakcije; I zati puniti Q_Izlaz_ IDTransakcije - Autonumber Datum - Now() IDdokumenta = DefaultValuje = "Otpremnica" BrDokumenta - Q_Prodaja.OrderID PartnerID - Q_prodaja.Partner.ID RadniNalog - "n/a" OperID - logiraniOperator StatusTR - 2 (izlaz) Sifra - Q_Prodaja.Sifra Skl - Q_Prodaja.Skladiste Izlaz - Q_Prodaja.Kolicina Status - 1
Prilozi: Knjizenje_2.rar (Velicina datoteke:54.39 KB)

pmiroslav

01.04.2011 07:21

Predmet:Re: Provjera duplog unosa

Malo sam viÅ¡e razmiÅ¡ljao i mislim da bi trebalo zapravo nekako ovako:
napraviti prvo dva Querya
q_Prodaja:

PreuzmiIzvorni kôd (vbnet):

SELECT tblProdaja.OrderID, tblProdaja.PartnerID, tblProdaja.Skladiste, tblProdajaStavke.Sifra, tblProdajaStavke.Kolicina
FROM tblProdaja INNER JOIN tblProdajaStavke ON tblProdaja.OrderID = tblProdajaStavke.OrderID;

i Q_Izlaz:

PreuzmiIzvorni kôd (Visual Basic):

SELECT tblTransakcije.IDTransakcije, tblTransakcije.Datum, tblTransakcije.IDdokumenta, tblTransakcije.BrDokumenta, tblTransakcije.PartnerID, tblTransakcije.RadniNalog, tblTransakcije.OperID, tblTransakcije.StatusTR, tblUlazIzlaz.Sifra, tblUlazIzlaz.Skl, tblUlazIzlaz.Izlaz, tblUlazIzlaz.Status
FROM tblTransakcije INNER JOIN tblUlazIzlaz ON tblTransakcije.IDTransakcije = tblUlazIzlaz.IDtransakcije;

I zati puniti Q_Izlaz_

IDTransakcije - Autonumber
Datum - Now()
IDdokumenta = DefaultValuje = "Otpremnica"
BrDokumenta - Q_Prodaja.OrderID
PartnerID - Q_prodaja.Partner.ID
RadniNalog - "n/a"
OperID - logiraniOperator
StatusTR - 2 (izlaz)
Sifra - Q_Prodaja.Sifra
Skl - Q_Prodaja.Skladiste
Izlaz - Q_Prodaja.Kolicina
Status - 1

Prilozi:
Knjizenje_2.rar (Velicina datoteke:54.39 KB)

zxz	01.04.2011 19:10
Predmet:Re: Provjera duplog unosa PreuzmiIzvorni kôd (Visual Basic): Function UnosStavki(TransakcijaID As Integer, Order As Integer) Dim Db As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL As String If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj Set Db = CurrentDb() SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order Set Rs1 = Db.OpenRecordset(SQL) Set Rs2 = Db.OpenRecordset("TblUlazIzlaz") Do While Not Rs1.EOF Rs2.AddNew Rs2!IDTransakcije = TransakcijaID Rs2!Sifra = Rs1!Sifra Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order) Rs2!Status = -1 Rs2!Izlaz = Rs1!Kolicina Rs2.Update Rs1.MoveNext Loop Rs1.Close Rs2.Close Set Db = Nothing Izlaz: Exit Function Kraj: MsgBox "Niste popunili sve podatke" End Function Ovu proceduru kopirja u neki modul. Na formi izlaz napravi komandni taster i na njega ovaj kod. PreuzmiIzvorni kôd (Visual Basic): Private Sub Uvoz_Click() Me.frmIzlazSub.SetFocus UnosStavki Me.IDTransakcije, Me.BrDokumenta Me.frmIzlazSub.Requery End Sub

zxz

01.04.2011 19:10

Predmet:Re: Provjera duplog unosa

PreuzmiIzvorni kôd (Visual Basic):

Function UnosStavki(TransakcijaID As Integer, Order As Integer)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL As String
If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj
Set Db = CurrentDb()
SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order
Set Rs1 = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset("TblUlazIzlaz")
Do While Not Rs1.EOF
Rs2.AddNew
Rs2!IDTransakcije = TransakcijaID
Rs2!Sifra = Rs1!Sifra
Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order)
Rs2!Status = -1
Rs2!Izlaz = Rs1!Kolicina
Rs2.Update
Rs1.MoveNext
Loop
Rs1.Close
Rs2.Close
Set Db = Nothing
Izlaz:
Exit Function
Kraj:
MsgBox "Niste popunili sve podatke"
End Function

Ovu proceduru kopirja u neki modul.
Na formi izlaz napravi komandni taster i na njega ovaj kod.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Uvoz_Click()
Me.frmIzlazSub.SetFocus
UnosStavki Me.IDTransakcije, Me.BrDokumenta
Me.frmIzlazSub.Requery
End Sub

pmiroslav	03.04.2011 17:56
Predmet:Re: Provjera duplog unosa Evo muči me ovo već dva dana i nikako da nađem rijeÅ¡enje. napravio sam formu frmKnjizenje čiji je recordsource Q_Prodaja i sada bi iz nje htio napuniti Q_Izlaz koji je kombinacija tablica tblProdaja i tblProdajastavke. Malo sam prepravio tvoj Kod međutim kada ga pokrenem javlja mi greÅ¡ku Field cannot be updated. Neznam u ćemu je problem Hvala unaprijed.
Prilozi: Knjizenje_3.rar (Velicina datoteke:33.58 KB)

pmiroslav

03.04.2011 17:56

Predmet:Re: Provjera duplog unosa

Evo muči me ovo već dva dana i nikako da nađem rijeÅ¡enje.
napravio sam formu frmKnjizenje čiji je recordsource Q_Prodaja i sada bi iz nje htio napuniti Q_Izlaz koji je kombinacija tablica tblProdaja i tblProdajastavke.

Malo sam prepravio tvoj Kod međutim kada ga pokrenem javlja mi greÅ¡ku Field cannot be updated.
Neznam u ćemu je problem
Hvala unaprijed.

Prilozi:
Knjizenje_3.rar (Velicina datoteke:33.58 KB)

zxz	03.04.2011 18:32
Predmet:Re: Provjera duplog unosa U tabeli tblProdaja stavke u polju sifra nemas lukap tabele artikala pa mozes upisati artikal kojeg i nema. Dok u tabeli tblUlazIzlaz to imas. To je greska koju sad pokazuje e sad dali ima jos ti vidi pa javi. Prvo ovo popravi. Trebao si odma pitati.

zxz

03.04.2011 18:32

Predmet:Re: Provjera duplog unosa

U tabeli tblProdaja stavke u polju sifra nemas lukap tabele artikala pa mozes upisati artikal kojeg i nema.
Dok u tabeli tblUlazIzlaz to imas.
To je greska koju sad pokazuje e sad dali ima jos ti vidi pa javi.
Prvo ovo popravi.
Trebao si odma pitati.

pmiroslav	03.04.2011 18:42
Predmet:Re: Provjera duplog unosa Evo ispravio sam i opet isto
Prilozi: Knjizenje_31.rar (Velicina datoteke:36.17 KB)