Dugme "Trazi" na formi knjige/baza biblioteka

[ Wellness @ 16.09.2009. 10:01 ] @

Kako da kada postavim dugme trazi na formu i u maloj formi po kriterijumu recimo naziv knjige on meni na formi prikaze iz tabele sve o toj knjizi po text boxovim i combo boxovima na formi.Tacnije nadje tu knjigu u tabeli.
Ovo je kod koji imam za tu formu nadji ali nece da radi:

Private Sub Nadji_Click()
On Error GoTo Err_Nadji_Click
Dim Trazi As Control
Dim Gde As Control
Dim Kako As Control
Dim KojaPolja As Integer
Dim KojiDeo As Integer

KojaPolja = acCurrent

Set Trazi = Forms!TraziKnjigu!rec
Set Gde = Forms!TraziKnjigu!polje
Set Kako = Forms!TraziKnjigu!nacin
Forms!Knjiga.SetFocus
Select Case Gde
Case "Naziv knjige"
Forms!Knjiga!ProductNameTxt.SetFocus
End Select

Select Case Kako
Case "Pocetak reci"
KojiDeo = acStart
Case "Bilo koji deo reci"
KojiDeo = acAnywhere
End Select

DoCmd.FindRecord Trazi, KojiDeo, , acSearchAll, True, KojaPolja

Exit_Nadji_Click:
Exit Sub
Err_Nadji_Click:
MsgBox "Unesite odgovarajuce parametre"
Resume Exit_Nadji_Click

End Sub