24/05/2011, 22:40 #13 Aktif Üye hyuga84 Bul Aktif Üye Adı Soyadı: Konum: Ankara Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/02/2012,13:46 Yorumları: 28 Konuları: 11 Kayıt Tarihi: 19/05/2011 Teşekkür Puanı: 0 @blackeagle boş bir ekran geliyor . Sizden rica etsem bunu kodları incelemeden değinseniz. Cevapla Cevapla
25/05/2011, 17:01 #14 sledgeab ozanakkaya Bul Kurucu Adı Soyadı: Oz.... Ak.... Konum: Denizli Ofis Versiyonu: Ofis 2016 64 Bit Son Oturumu: 10/03/2025,22:50 Yorumları: 13.543 Konuları: 499 Kayıt Tarihi: 29/01/2008 Teşekkür Puanı: 3.139 Mesleğiniz: Memur Form1'i tasarım görünümünde açtıktan sonra alt+f11'i e basacaksınız. Vba sayfasında aşağıdaki kodlar görünecektir. 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 Kodu SeçKodu Kopyala Ayrıca lütfen sorularınızı özel mesaj ile sormayınız. Cevapla Cevapla