Option Compare Database
Dim say(1000)
Dim s
Dim ka


Private Sub aranan_Change()
Me.Komut2.Visible = True
Me.Komut5.Visible = False

End Sub


Private Sub Form_Open(Cancel As Integer)

Me.Komut5.Visible = False

End Sub

Private Sub Komut2_Click()
On Error GoTo Err_Komut2_Click
DoCmd.GoToRecord , , acFirst
If Len(Me.aranan) = 0 Or IsNull(Me.aranan) Then
MsgBox "Aranan kelimeyi Giriniz"
Exit Sub
End If
s = 0
    For i = 1 To Len(kitap_adi)
    If UCase(Me.aranan) = UCase(Mid(kitap_adi, i, Len(Me.aranan))) Then
    s = s + 1
    say(s) = i
    End If
    Next
If s <> 0 Then GoTo 600
On Error GoTo 300
DoCmd.GoToRecord , , acNext
GoTo 400
300
MsgBox ("Bitti")
GoTo 200
400
s = 0
    For i = 1 To Len(kitap_adi)
    If UCase(Me.aranan) = UCase(Mid(kitap_adi, i, Len(Me.aranan))) Then
    s = s + 1
    say(s) = i
    End If
    Next
If s = 0 Then MsgBox "Aranan Kelime Bulunmadı": Exit Sub
ka = 1
If s >= 1 Then
kitap_adi.SetFocus
kitap_adi.SelStart = say(1) - 1
kitap_adi.SelLength = Len(Me.aranan)
End If
If s > 0 Then
Me.Komut2.Visible = False
Me.Komut5.Visible = True
End If
GoTo 200
600
ka = 1
If s >= 1 Then
kitap_adi.SetFocus
kitap_adi.SelStart = say(1) - 1
kitap_adi.SelLength = Len(Me.aranan)
End If
If s > 0 Then
Me.Komut2.Visible = False
Me.Komut5.Visible = True
End If
200
Exit_Komut2_Click:
    Exit Sub

Err_Komut2_Click:
    MsgBox "Başa Dönülüyor."
    DoCmd.GoToRecord , , acFirst
    Resume Exit_Komut2_Click

End Sub
Private Sub Komut5_Click()
DoCmd.GoToRecord , , acFirst
If ka >= s Then GoTo 100
ka = ka + 1
kitap_adi.SetFocus
kitap_adi.SelStart = say(ka) - 1
kitap_adi.SelLength = Len(Me.aranan)
GoTo 200
100
On Error GoTo 300
DoCmd.GoToRecord , , acNext
GoTo 400
300
MsgBox ("Bitti")
GoTo 200
400
s = 0
    For i = 1 To Len(kitap_adi)
    If UCase(Me.aranan) = UCase(Mid(kitap_adi, i, Len(Me.aranan))) Then
    s = s + 1
    say(s) = i
    End If
    Next
If s = 0 Then MsgBox "Aranan Kelime Bulunmadı": Exit Sub
ka = 1
If s >= 1 Then
kitap_adi.SetFocus
kitap_adi.SelStart = say(1) - 1
kitap_adi.SelLength = Len(Me.aranan)
End If
If s > 0 Then
Me.Komut2.Visible = False
Me.Komut5.Visible = True
End If
200

End Sub


Private Sub Açılan_Kutu23_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[kitap_id] = " & Str(Nz(Me![Açılan Kutu23], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Açılan_Kutu25_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[kitap_id] = " & Str(Nz(Me![Açılan Kutu25], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Liste27_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[kitap_id] = " & Str(Nz(Me![Liste27], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Liste29_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[kitap_id] = " & Str(Nz(Me![Liste29], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Komut38_Click()
On Error GoTo Err_Komut38_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "form1_1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut38_Click:
    Exit Sub

Err_Komut38_Click:
    MsgBox Err.Description
    Resume Exit_Komut38_Click
    
End Sub