aşağıda ki örnekde activex listview ile yapılmış forma bir arama kutusu nasıl yapılır
teşekürler
teşekürler
Ekli dosyalar
-
44.3 KB Görüntüleme: 22
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Maalesef bende Access 2007 yok.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
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
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
Global must_id As Integer