Új hozzászólás Aktív témák
-
Gh0sT
addikt
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 SubSoha nem késő, hogy azzá válj, aki lehettél volna.