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

• #366 sszever őstag Gh0sT #364

  Új Válasz 2006-05-25 13:27:58 #366

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

  S melyik részébe kell beszúrni?
  
  
  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
  End If
  
  
  
  
  End Sub
  
  
  Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)
  
  End Sub

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