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

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

  Új Válasz 2013-02-16 17:32:18 #16761

  Ú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

  Kibővítettem arra az esetre, ha a felhasználó össze-vissza kattintgat. Megeshet, hogy először rákattint a nincskutyára – ezzel felszabadítja a macsekos részt –, utána rájön, hogy tegnap kapott egy ebet. Ekkor újra le kell tiltani a macskákat. A "Figy" egy címke, ide jön a figyelmeztetés.

  A start marad, ahogy volt.

  Private Sub Vankutya_AfterUpdate()
  If VanKutya = True And DbKutya = "" Then
  DbKutya.Enabled = True
  VanM.Enabled = False
  NincsM.Enabled = False
  DbM.Enabled = False
  Figy = "Írd be a darabszámot!"
  Else
  DbKutya.Enabled = False
  Figy = ""
  End If
  End Sub
  
  Private Sub NincsKutya_AfterUpdate()
  If NincsKutya = True Then
  DbKutya.Enabled = False
  VanM.Enabled = True
  NincsM.Enabled = True
  DbM.Enabled = True
  Figy = ""
  Else
  DbKutya.Enabled = True
  Figy = "Írd be a darabszámot!"
  End If
  End Sub
  
  Private Sub DbKutya_AfterUpdate()
  If DbKutya > "" Then
  VanM.Enabled = True
  NincsM.Enabled = True
  DbM.Enabled = True
  Figy = ""
  Else
  VanM.Enabled = False
  NincsM.Enabled = False
  DbM.Enabled = False
  Figy = "Írd be a darabszámot!"
  End If
  End Sub

• #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