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

• #307 Gh0sT addikt sszever #306

  Új Válasz 2006-05-22 16:41:49 #307

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

  Egy formon a következő képpen tudod használni:
  
  1. Szükség lesz egy TextBox-ra, amiben bekéred a keresendő azonosító egy részletét, vagy akár az egész stringet. (KERESO_MEZO)
  2. Szükség lesz magára az AZONOSITO-ra szintén egy TextBox formájában.
  3. Szükség lesz egy találati mezőre is. Mivel nem ismerem a példát, ezért ez legyen egyelőre a TERMÉK mező Textbox formájában. Ezzel igazából sok dolgod nem lesz, csak beszúrod a formra és automatikusan megjelennek benne a találatok. Ha szeretnél még egyéb mezőket hozzáadni, akkor hasonlóan kell eljárnod.
  4. Beraksz még a formra egy Command buttont, aminek a Click eseményéhez hozzárendeled az alábbi kódot:
  
  Private Sub Parancsgomb1_Click()
  AZONOSITO.SetFocus
  DoCmd.FindRecord KERESO_MEZO.Value, acAnywhere, False, acSearchAll, , acCurrent, True
  End Sub
  
  Ez akár kód töredékre is keresni fog és az első találatot jeleníti meg. Én szoktam még mellé egy másik Command buttont is beszúrni ''Következő'' felirattal, így végig tudok menni az egész adatbázison, ha esetleg több találat lenne.
  Ennek a kódja:
  
  Private Sub Parancsgomb2_Click()
  On Error GoTo Err_Parancsgomb2_Click
  Screen.PreviousControl.SetFocus
  DoCmd.FindNext
  Parancsgomb2.SetFocus
  
  Exit_Parancsgomb2_Click:
  Exit Sub
  
  Err_Parancsgomb2_Click:
  MsgBox Err.Description
  Resume Exit_Parancsgomb2_Click
  
  End Sub
  
  
  

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