Dugme "Trazi" na formi knjige/baza biblioteka
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
 |  |
 |
