Prikazi cijelu temu 29.04.2011 08:15
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Baza za proizvodnju
Evo jedna od mogućnosti:

Napravio sam Q_Transakvije koji izdvaja trenurni nalog:
PreuzmiIzvorni kôd (vbnet):
  1. SELECT T_Transakcije.*
  2. FROM T_Transakcije
  3. WHERE (((T_Transakcije.Sifra_Transakcije)=[Forms]![F_IzlazRobe]![Izlaz_Broj]));


A u F_TransakcijeSub na combu SifraArtikla - Before Update dodao sak kod

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub SifraArtikla_BeforeUpdate(Cancel As Integer)
  2.  
  3.  Dim UPIS As String
  4.  
  5.     Dim stLinkCriteria As String
  6.     Dim rsc As DAO.Recordset
  7.  
  8.     Set rsc = Me.RecordsetClone
  9.  
  10.     UPIS = Me.SifraArtikla.Value
  11.    
  12.     stLinkCriteria = "[SifraArtikla]=" & "'" & UPIS & "'"
  13.  
  14.     If DCount("SifraArtikla", "Q_Transakcije", _
  15.               stLinkCriteria) > 0 Then
  16.        
  17.         Me.Undo
  18.        
  19.         MsgBox "Pažnja arikl sa Å¡ifrom " _
  20.              & UPIS & " ve je upisan." _
  21.              & vbCr & vbCr & "Kursor e se prebaciti na taj podatak.", _
  22.                vbInformation, "PogreÅ¡an unos!"
  23.            rsc.FindFirst stLinkCriteria
  24.         Me.Bookmark = rsc.Bookmark
  25.     End If
  26.  
  27.     Set rsc = Nothing
  28. End Sub


Prilozi:
prozivodnjaPM.rar
Preuzimanja:186
Velicina datoteke:71.25 KB

Pozdrav