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

• #368 sszever őstag Gh0sT #367

  Új Válasz 2006-05-25 14:14:29 #368

  Ú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 #367 üzenetére

  Option Compare Database
  
  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'')
  End If
  End If
  End Sub
  
  Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)
  End Sub
  
  
  Így? Mert nem csinálja

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