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

• #420 sszever őstag Gh0sT #419

  Új Válasz 2006-05-26 09:50:16 #420

  Ú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

  

  sszever

  őstag

  válasz Gh0sT #419 üzenetére

  Tuti.
  
  Felbuzdulv a dolgon próbáltam én is betenni egy piros feliratú mezőt, mely szerint írja ki, ha már ki lett vételezve a termék. Mondanom sem kell, nem jött össze
  
  Option Compare Database
  
  Private Sub Form_Load()
  DoCmd.GoToRecord , , acNewRec
  Címke23.Visible = False
  End Sub
  
  
  Private Sub Parancsgomb16_Click()
  DoCmd.Close acForm, ''Vágat kivételezés'', acSaveYes
  End Sub
  
  Private Sub Parancsgomb19_Click()
  If kiadva.Value = False Then
  kiadva.Value = True
  Parancsgomb19.Caption = ''A termék kiadva''
  Else
  kiadva.Value = False
  Parancsgomb19.Caption = ''Termék kiadása''
  End If
  DoCmd.Close acForm, ''Vágat kivételezés'', acSaveYes
  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
  Címke23.Visible = True
  Parancsgomb19.Caption = ''Termék kiadása''
  Parancsgomb19.Enabled = False
  Else
  Címke23.Visible = False
  If kiadva.Value = True Then
  Címke27.Visible = True
  Parancsgomb19.Caption = ''A termék kiadva''
  Parancsgomb19.Enabled = False
  Else
  Címke27.Visible = False
  Parancsgomb19.Caption = ''Termék kiadása''
  Parancsgomb19.Enabled = True
  End If
  End If
  End If
  End Sub
  
  
  Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)
  
  End Sub
  Private Sub Parancsgomb18_Click()
  On Error GoTo Err_Parancsgomb18_Click
  
  
  Screen.PreviousControl.SetFocus
  DoCmd.FindNext
  
  Exit_Parancsgomb18_Click:
  Exit Sub
  
  Err_Parancsgomb18_Click:
  MsgBox Err.Description
  Resume Exit_Parancsgomb18_Click
  
  End Sub
  

  Csak egy ember hiányzik, és máris üres a világ!

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