activex listview de arama kutusu

[hedefkaya]

aşağıda ki örnekde activex listview ile yapılmış forma bir arama kutusu nasıl yapılır
teşekürler

 

[modalı]

Sayın hedefkaya,

Bakalım beğenecekmisiniz?


İyi çalışmalar

 

[hedefkaya]

Sayın modalı galiba yanlış sorunun ceabını yazdın
yinede teşekürler

 

[modalı]

Sayın hedefkaya,

Yanlış dosya eklemişim. Kusura bakmayın.

Önceki mesajımdaki dosyayı değiştirdim.

İyi çalışmalar

 

[livadi53]

sayın mofalı uygulamayı denemek için açtığımda fpdtc.dll hatası verdi bu örneği incelemk ve uygulamak istiyorum bu hatayı nasıl düzeltebilirim ?

 

[modalı]

Sayın livadi53,

Önce formu tasarım görünümünde açın, sonra kod yazma penceresindeki menü den Tools References... tıklıyorsunuz. Açılan pencereden sağdan Browse... tıklıyorsunuz,

C:\Program Files\Microsoft Office\Office11\fpdtc.dll i seçiyorsunuz Aç ı tıklıyorsunuz böylece yeni referansı eklemiş oluyorsunuz.

İyi çalışmalar

 

[livadi53]

Teşekkürler üstad benım için güzel bir kaynak sağolun
iyi çalışmalar

 

[livadi53]

listview de seçilen değeri başka forma atama

iyi akşamlar üstad
ekdeki çalışmamda ki hareketler formunda hareket girişinde mstID ye odaklanma sonrasında açılan form1 deki Listview den seçilen kişiye tıkladığımda o kişiye ait ID numarasının harekerler formundaki yere vermesini nasıl sağlarım
yardımlarınızı beklerim.iyi çalışmalar

 

[modalı]

iyi akşamlar üstad
ekdeki çalışmamda ki hareketler formunda hareket girişinde mstID ye odaklanma sonrasında açılan form1 deki Listview den seçilen kişiye tıkladığımda o kişiye ait ID numarasının harekerler formundaki yere vermesini nasıl sağlarım
yardımlarınızı beklerim.iyi çalışmalar

Maalesef bende Access 2007 yok.

 

[livadi53]

üsdat 2003 şeklinde yükledim.
size zahmet bir incelermisiniz

 

[modalı]

Alt forma:

Private Sub Form_Load()
If must_id <> 0 Then
DoCmd.GoToRecord , , acNewRec
Me.th_id = Me.Parent.tup_hareket_id
Me.m_id = must_id
must_id = 0
Me.Requery
End If
End Sub

Private Sub m_id_GotFocus()
On Error GoTo Err_cmdStokBul_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName = "FORM1"
    DoCmd.OpenForm stDocName
    
Exit_cmdStokBul_Click:
    Exit Sub

Err_cmdStokBul_Click:
    MsgBox Err.Description
    Resume Exit_cmdStokBul_Click
End Sub

Form1 e

Private Sub ListView4_DblClick()
Dim BulNo As Variant
Dim frm As Form
    On Error GoTo Gozardi
For Each frm In Forms
    If frm.Name = "Hareketler" Then
        GoTo cikis
    End If
Next frm

cikis:
    BulNo = Val(Me.ListView4.SelectedItem)
    'frm.RecordsetClone.FindFirst "[MST_ID]=" & Str(BulNo)
    'frm.Bookmark = frm.RecordsetClone.Bookmark
    must_id = Str(BulNo)
    DoCmd.OpenForm "Hareketler", , acNormal
    DoCmd.Close acForm, "FORM1"
    
Exit Sub

Gozardi:
    DoCmd.Close acForm, "FORM1"


End Sub

Bir boş modüle de:

Global must_id As Integer

Neden tarihleri büyükten küçüğe göre sıralıyorsunuz? Onu değiştirin.

İyi çalışmalar