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

• #324 Gh0sT addikt sszever #321

  Új Válasz 2006-05-23 11:34:20 #324

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

  Még egy kis apróság, ami nálad hátrány lehet. Jelenleg a keresés nem jól működik, egy kis kozmetikázás után így szebb lesz:
  
  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
  
  Ezzel nem fogsz visszakapni rossz találatokat, erről az acEntire tulajdonság gondoskodik.

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