Bosanec 30.03.2011 13: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 13: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 14: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):
  1. Private Sub BrDokumenta_Exit(Cancel As Integer)
  2. Dim Podatak As String
  3.  
  4. Podatak = Me.BrDokumenta
  5.  
  6. If NadjiVrijednost("tblTransakcije", "BrDokumenta", Podatak) = True Then
  7.    If NadjiVrijednost("tblTransakcije", "BrDokumenta", Me.Status) = True Then
  8.      MsgBox "broj dokumenta ve postoji"
  9.      Cancel = True
  10.    End If
  11. End If
  12. End Sub

pmiroslav 31.03.2011 11: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 19: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 06: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):
  1. SELECT tblProdaja.OrderID, tblProdaja.PartnerID, tblProdaja.Skladiste, tblProdajaStavke.Sifra, tblProdajaStavke.Kolicina
  2. FROM tblProdaja INNER JOIN tblProdajaStavke ON tblProdaja.OrderID = tblProdajaStavke.OrderID;

i Q_Izlaz:
PreuzmiIzvorni kôd (Visual Basic):
  1. 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
  2. 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 18:10
Predmet:Re: Provjera duplog unosa

PreuzmiIzvorni kôd (Visual Basic):
  1. Function UnosStavki(TransakcijaID As Integer, Order As Integer)
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim SQL As String
  6.  
  7.  
  8. If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj
  9. Set Db = CurrentDb()
  10. SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order
  11. Set Rs1 = Db.OpenRecordset(SQL)
  12. Set Rs2 = Db.OpenRecordset("TblUlazIzlaz")
  13.  
  14. Do While Not Rs1.EOF
  15. Rs2.AddNew
  16. Rs2!IDTransakcije = TransakcijaID
  17. Rs2!Sifra = Rs1!Sifra
  18. Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order)
  19. Rs2!Status = -1
  20. Rs2!Izlaz = Rs1!Kolicina
  21. Rs2.Update
  22. Rs1.MoveNext
  23. Loop
  24. Rs1.Close
  25. Rs2.Close
  26. Set Db = Nothing
  27. Izlaz:
  28. Exit Function
  29. Kraj:
  30. MsgBox "Niste popunili sve podatke"
  31. End Function

Ovu proceduru kopirja u neki modul.
Na formi izlaz napravi komandni taster i na njega ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Uvoz_Click()
  2. Me.frmIzlazSub.SetFocus
  3. UnosStavki Me.IDTransakcije, Me.BrDokumenta
  4. Me.frmIzlazSub.Requery
  5. End Sub

pmiroslav 03.04.2011 16: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 17: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 17:42
Predmet:Re: Provjera duplog unosa

Evo ispravio sam i opet isto
Prilozi:
Knjizenje_31.rar (Velicina datoteke:36.17 KB)