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

• #375 Gh0sT addikt sszever #374

  Új Válasz 2006-05-25 15:06:49 #375

  Ú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

  

  Gh0sT

  addikt

  válasz sszever #374 üzenetére

  Nem, nem gond.
  
  Módosítod a kódot:
  
  Private Sub Form_Load()
  DoCmd.GoToRecord , , acNewRec
  End Sub
  Private Sub Parancsgomb2_Click()
  DoCmd.GoToRecord , , acNewRec
  If IsNull(Szöveg0.Value) Then
  MsgBox (''Keresés előtt kötelező a mező kitöltése'')
  Szöveg0.SetFocus
  Szöveg0.BackColor = 11053311
  Else
  vagatkod.SetFocus
  DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
  Szöveg0.BackColor = 16777215
  If foglalas.Value = False Then
  MsgBox (''Az temék még nem lett lefoglalva'')
  Ide kell beírni egy olyan kódot, ami letiltja a kivételezést. Ha ezt a kivételezés kapcsolóval csinálod, akkor csak ennyi:
  kiadva.Enabled = False
  
  End If
  End If
  End Sub
  
  
  Szerk.: esetleg
  kiadva.Visible = False
  
  Bár szerintem elegánsabb egy olyan megoldás, hogy rejted a kapcsolót és beraksz a helyére egy parancsgombot (Parancsgombx) Kiadás felirattal.
  Ennek a click eseményéhez hozzárendeled az alábbit:
  If kiadva.Value = False then
  kiadva.Value = True
  Parancsgombx.Caption = ''A termék kiadva''
  else
  kiadva.Value = False
  Parancsgombx.Caption = ''Termék kiadása''
  End If
  
  Fentebb pedig a Parancsgombx.Enabled tulajdonságát engedélyezed, vagy tiltod.
  
  [Szerkesztve]

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