Başka bir alt formdaki seçime bağlı olarak bir alt formdaki bir Kaydı açma

Question

Bu benim ilk gönderiim, ancak sık sık bu sorunu gidermek için bu siteyi görüntülüyor. Maalesef şu andaki gelişimim için bir çözüm üretemedim. Farklı bir kurulum türü ile bir Görev listesinde çalışıyorum. Ana form, birden fazla kullanıcı için bir tek duraktır. Kimliği (AUTONUM) - - Ad (metin) - Soyad (metin) - (Hesaplanmış) Tam adı

Görevler -ID (AUTONUM

iki tablo

Takım vardır) - Görev (kısa metin) - tarih (kısa tarih başlat) - - vb (Ek alanlar)

- Tam Adı (Arama) Atanan (Uzun metin) Açıklama

MainMenu (ana form), Ekip tablosuna bağlı olarak ayarlanır. Bir ekip üyesi seçmek için bir açılır alan. Formun iki alt formu vardır (CurrentTaskSub ve NewTaskSub). Her iki Alt Form da Görevlere bağlanır. CurrentTaskSub, görevlerin tamamlanmadığı ve başlangıç ​​tarihini geçmeyen bir Görev sorgusundan oluşturulur. NewTaskSub görev tablosunun doğrudan bir şeklidir.

Bir ad seçildiğinde, CurrentTaskSub'u o takım üyesine atanan görevlere filtrelemek için bir üst/alt ilişki kullanır. Bu bölüm çalışıyor.

Olmak istediğim şey, CurrentTaskSub öğelerinden birini seçtiğinizde, görevdeki tüm bilgileri görüntülemek ve değiştirmek veya güncellemek için NewTaskSub'a yerleştirilir. Sonra, bir görevi tamamlayıp bitirmediği, yeni bir görev oluşturup oluşturmadığı, NewTaskSub'da bir değişiklik kaydedildiğinde Alt Formlar yenilenir. İşte

Ben çalıştılar budur: Ben görev alanını seçmek ve ayarlamak CurrentTaskSub alt forma On

bu konuda o VBA kodunu çalıştırır tıklayın.

denedim birçok güncel kodudur:

Formlar MainMenu [NewTaskSub] .Form.Filter = "[Görev] =" & Me.Task Formlar MainMenu [NewTaskSub] .form!!! .FilterOn = Doğru

ve bu kayıt karşı FindFirst çalıştırmak 'Forms (NewTaskSub) .Recordset ile'

'NewTaskSub.FindFirst "[Görev] =" & Me.Task ' eğer öğe bulunamadı konu uyarısı'NewTaskSub.NoMatch Then MsgBox Me.Task & "bulunamadı" Eğer '

End With Her iki hataları ayıklamak üretirler. Sanırım doğru yolda olduğumu düşünüyorum ama umduğum çözümü bulabilirim. Herhangi bir yardım veya tavsiye takdir edilmektedir. Teşekkür ederim.

Answer 1

Tamam Devam eden testlerden sonra sorunu çözdüm.

Küçük bir problemdi ve denediğim şeylere pek gerek yoktu.

Benzer sorunları olan başkaları için bunu bırakıyorum.Bu örneği için kod şuna benzer şekilde

Filtreyi alıp bir Requery eklemek zorunda:

Me.Parent.Form.NewTaskSub.Form.Filter = "[ID]= " & Me.ID 
Me.Parent.Form.NewTaskSub.Form.FilterOn = True 
Me.Parent.Controls!NewTaskSub.Form.Requery