kayıt bul

[86126]

Arkadaşlar kolya gelsin sizlerden bir yardım talebim olacak yardımlarınızı bekliyorum.
Elimde şöyle bir formül var ancak benim işimi görmüyor.

Private Sub ARACINPLAKASI_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "ana bilgiler"

stLinkCriteria = "[ARACINPLAKASI]=" & "'" & Me![ARACINPLAKASI] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Sebebi ise ana bilgiler formundaki ARAÇBİLGİLERİ alt formunda arama yapıp o kaydı bulması gerekiyor.
yani ana bilgiler formunu açıp bu bilgiye ulaşmasını istiyorum. Yukarıdaki formülü yazdığımda parametre değerini gir şeklinde ifade çıkıyor.
Herkese iyi çalışmalar.

 

[modalı]

Ana bilgiler formuyla alt bilgiler formu doğru ilişkilendirilmiş mi?

Kriter cümleniz doğru gönderiliyor mu? Onun için

Private Sub ARACINPLAKASI_DblClick(Cancel As Integer)
 Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "ana bilgiler"
    
    stLinkCriteria = "[ARACINPLAKASI]=" & "'" & Me![ARACINPLAKASI] & "'"
    MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Değişikliğini yapıp cümleyi kontrol edin.

ARACINPLAKASI da tekrar edilmiyor olması gerekir. Yani ilgili alanda plaka uniq olmalı.

İyi çalışmalar

 

[adnanyurdakul]

Sayın 86126
Sanırım siz form üzerindeki herhangi bir kontrol ile ALTFORMDAKİ araçplakası alanın süzmek istiyorsunuz. Bu komut bu durumda
stLinkCriteria = "[ARACINPLAKASI]=" & "'" & Me![ARACINPLAKASI] & "'"
yerine
stLinkCriteria = "[ARACINPLAKASI]=" & "'" &[xxxxalt formu].[Form]![ARACINPLAKASI]& "'"
şekli ile yazmalısın
iyi çalışmalar

 

[86126]

Arkadaşlar ilginize teşekkürler. sayın Adnan bey sizin söylediğinizi uyguladım ancak resimdeki gibi uyarı veriyor. dosyayı bulamadığını söylüyor.

 

[adnanyurdakul]

Aracın plakası diye adlandırıdğımız alanın ya adı değişik yada yok onu kontrol edin

 

[86126]

Adnan bey alan doğru var ancak şundan kaynaklanıyor olabilirmi. ARAÇ BİLGİLERİ ALTFORMU ana bilgiler formunun ARAÇ BİLGİLERİ sayfa sekmesinde. ana bilgiler formum sayfa sekmeli.

 

[adnanyurdakul]

dosyayı ekleyin anlatmak ta anlaşmakta daha kolay olur

 

[86126]

Adnan bey dosyayı eklemeye çalıştım ama 5mb üstünde gönderemedim. göndermeye çalışıyorum. Sıkıştırdığım halde.

 

[86126]

office 2007 olarak yüklesem olurmu. o şekildede gönderemedim

 

[modalı]

Sayın 86126,

Yapmak istediğinizi resimden anladım, tuttuğunuz yol yanlış.

Alt formunuz sanırım bir tablo, onun veri kısmına girin ve tablo üstüne bir soargu ekleyin. Tüm alanlarınızı ekleyin, plakaların yazılı olduğu alanın ölçüt kısmına:

[Formlar]![ÜstFormAdı]![Açılan Kutu Adı]

Yazın. Üst formun kod sayfasına da açılan kutunun güncelleme sonrası olayına ise:

Private Sub Açılan_Kutu0_AfterUpdate()
[alt form adı].Requery
End Sub

İyi çalışmalar