Új hozzászólás Aktív témák

• #16759 Delila_1 veterán m.zmrzlina #16758

  Új Válasz 2013-02-16 17:07:22 #16759

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz m.zmrzlina #16758 üzenetére

  Remélem, a nevekből kitalálod, melyik mit takar.
  A form indításánál a második blokk tagjainak az elérését letiltom, és csak akkor szabadítom fel, ha vagy nincs kutya, vagy van, és a darabszámot megadtad.

  Sub start()
  UserForm1.VanM.Enabled = False
  UserForm1.NincsM.Enabled = False
  UserForm1.DbM.Enabled = False
  
  UserForm1.Show False
  End Sub

  Private Sub Vankutya_AfterUpdate()
  If VanKutya = True Then
  DbKutya.Enabled = True
  Else
  DbKutya.Enabled = False
  End If
  End Sub
  
  Private Sub NincsKutya_AfterUpdate()
  If NincsKutya = True Then
  DbKutya.Enabled = False
  VanM.Enabled = True
  NincsM.Enabled = True
  DbM.Enabled = True
  Else
  DbKutya.Enabled = True
  End If
  End Sub
  
  Private Sub DbKutya_AfterUpdate()
  VanM.Enabled = True
  NincsM.Enabled = True
  DbM.Enabled = True
  End Sub

Új hozzászólás Aktív témák