Prikazi cijelu temu 07.01.2012 18:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za proizvodnju
Formu F_artikiSub Preimenuj u F_ArtiklisubS.
Ovo formu sada kopiraj i daj joj ime F_ArtikliSubP

Znaci sad ces imati dvije forme:
F_ArtiklisubS
F_ArtikliSubP

U formi F_arikliSubS postavi polja koja ti trebaju za sirovine a u drugoj za proizvode.
U combo10 after update postavi ovaj kod umjesto predhodnog koji sam ti dao ili prepravi:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Combo10_AfterUpdate()
  2. Dim P
  3. P = Me.Combo10
  4. If P <> "" Then
  5.   If P = 1 Then
  6.   Me.K_ArtikliSub.SourceObject = "F_ArtiklisubP"
  7.   Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "PCena"
  8.   Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "PCena"
  9.   ElseIf P = 2 Then
  10.   Me.K_ArtikliSub.SourceObject = "F_Artiklisubs"
  11.   Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "NCena"
  12.   Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "NCena"
  13.  
  14.   End If
  15. End If
  16. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.