AccessTr.neT

Tam Versiyon: Alt Formun Aktif İşlemesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Form'da "Şirket Adı" girdikten sonra başka bir hücreye geçerken alt formda o şirkete ait bilgilerin gözükmesini istiyorum.
Örnek "Arif" isminde bir şirketi girdiğimde bana "Ar" ile başlayan tüm şirketlerin alt formda görünmesini istiyorum ve alt formda görünen şirkete basdığımda o şirketin bilgilerine ulaşmak istiyorum.
Teşekkürler sevgi ve saygılarımla.

Ekteki örneği inceleyiniz.. Geliştirilebilir, en basit haliyle isteğinize uyarlandı. Alt Formdaki Firma Adı alanına çift tıkladığınızda ilgili form açılmakta..
İlginizden dolayı çok teşekkür ederim fakat daha önceki formda benim örnek gösterdiğim formda "Kategori Adını" altında yazan bölümleri tıkladığımda aşağıda boş kutuda çıkıyordu şimdi hata veriyor sorun nerde olabilir. Birde firma ismini listede butonuna basmadan kayıt esnasında "Tab" tuşunu kullnırken diğer hücreye geçtiğimde sorgulama yapbilirmi?
Mesaj 2'deki örneği değiştirdim. Tekrar İndirerek inceleyiniz. Ayrıca Kategori ile ilgili bölümde çalışıyor. Kolay Gelsin
Yaptığınız çalışmayı bilgisyarıma indridim fakan bana """Projede ‘1OWC11.DLL’ sürüm 1.1. dosyasına eksik veya hatalı başvuru içeriyor.""" diye bir ifade çıkarıyor ve program açıldıktan sonra kategori seçtiğimde hata uyarısı veriyor.
Çok teşekür ederim Sevgi ve Saygılarımla
Size tekrar örneğini gönderiyorun ilginizde dolayı çok teşekkür ederim.
bu son gönderdiğim örnekte bu uyarı yazısı çıkmıyor ("Projede ‘1OWC11.DLL’ sürüm 1.1. dosyasına eksik veya hatalı başvuru içeriyor.") fakat formda benim örnek gösterdiğim formda "Kategori Adını" altında yazan bölümleri tıkladığımda aşağıda boş kutuda çıkıyordu şimdi hata veriyor sorun nerde olabilir.Direk olarak aşağıdaki Visul Basic arızası veriyor
--------------------------------------------------
Private Sub KategoriAdı_Click()
Dim liste As String
Dim sayi As Variant

If Me.KategoriAdı.ItemsSelected.Count = 0 Then
liste = ""
Else
For Each sayi In Me.KategoriAdı.ItemsSelected
liste = liste & Me.KategoriAdı.Column(1, sayi) & "+"
Next sayi
liste = Left(liste, Len(liste) - 1)
End If
Me.Metin36 = liste

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
dediğinizi yaptım sanırım ,buyrun kontrol edin
Sayfalar: 1 2