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
Ayrıca lütfen sorularınızı özel mesaj ile sormayınız.
