Skip to main content

AccessTr.neT


Alt Formun Aktif İşlemesi

Alt Formun Aktif İşlemesi

Çözüldü #1
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.

.rar ARİF.rar (Dosya Boyutu: 3,05 MB | İndirme Sayısı: 0)
Cevapla
Çözüldü #2
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..
.rar ARİF_ERC_2010-03-21.rar (Dosya Boyutu: 3,06 MB | İndirme Sayısı: 43)
Cevapla
Çözüldü #3
İ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?
Cevapla
Çözüldü #4
Mesaj 2'deki örneği değiştirdim. Tekrar İndirerek inceleyiniz. Ayrıca Kategori ile ilgili bölümde çalışıyor. Kolay Gelsin
Cevapla
Çözüldü #5
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
.rar deneme.rar (Dosya Boyutu: 3,08 MB | İndirme Sayısı: 10)
Son Düzenleme: 22/03/2010, 14:27, Düzenleyen: arif1971.
Cevapla
Çözüldü #6
dediğinizi yaptım sanırım ,buyrun kontrol edin
.rar deneme_celoyce.rar (Dosya Boyutu: 35,48 KB | İndirme Sayısı: 26)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da