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


Predmet:Re: Baza za proizvodnju
Na combo19 after update stavi ovaj kod:
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.   Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "PCena"
  7.   Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "PCena"
  8.   ElseIf P = 2 Then
  9.   Forms![F_Artikli]![K_ArtikliSub].Form![Label12].Caption = "NCena"
  10.   Forms![F_Artikli]![K_ArtikliSub].Form![Text13].ControlSource = "NCena"
  11.   End If
  12. End If
  13. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.