Merhaba,
Benim şöyle bir sorunum var.Ekte yollayacağım programda MUSTERIKOD1 adlı formda No'yu seçtiğimde diğer sekmelerin otomatik olarak gelmesini sağlayamıyorum.Bu kod bana her yaptığım programda aksilik çıkarıyor.Yardımlarınızı bekliyorum.
Verilerin Otomatik Olarak Gelmesi
MUSTERIKOD1 adlı formda isteginiz yapılmıştır inceleyiniz
formu oluşturduktan sonra açılan kutu ekleyin açılan kutu sihirbazı size yol gösterecektir
formu oluşturduktan sonra açılan kutu ekleyin açılan kutu sihirbazı size yol gösterecektir
Çok teşekkür ederim bunu ben de böyle yaptım fakat öyle değil üzerinde değişim de yapılabilecek bir şey lazım.Biliyorum karışık ama mesela no dan 1 i seçtiğimde diğerleri de alt alta başka satırda o 1 in karşılığındaki satırların gelmesi gerekiyor ve gerekirse üzerinde değişim yapılması gerekiyor.İşte ben onu beceremiyorum.Yani her sekmenin otomatik olarak gelmesi gerekiyor.
Yardımlarınız için çok teşekkür ederim.
Yardımlarınız için çok teşekkür ederim.
eklediğiniz açılan kutu nun olay yordamında güncelleştirme sonrasına ekteki kodu yazmalısınz
Private Sub Açılan_Kutu11_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NO] = " & Str(Nz(Me![Açılan_Kutu11], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Açılan_Kutu11_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NO] = " & Str(Nz(Me![Açılan_Kutu11], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
bunu no yazdığım yere mi yazacağım acaba?
ekteki resimleri inceleyiniz
Konuyu Okuyanlar: 2 Ziyaretçi