Arkadaşlar
Access te yeniyim bir kaç gündür kendi uğraşlarım sonucu (epeyce uğraştım) ekteki tabloları oluşturdum . Ama aşağı açılır formdaki bilgiye göre farklı bir form açtırmak istiyorum beceremedim .
İstediklerim
1- Ana_Sayfa formunda seçim türünü seçtiğim zaman seçim tarihleri geliyor .
Ama seçim tarihini seçtiğim zaman O seçim tarihi ile ilgili formlarım var ( Örnek = 03_Kas_02 ) o formun açılmasını istiyorum (Form aslında
Excel tablosu şeklinde kopyala yapıştır ile
Access formuna aldım)
2- Ana_Sayfada Seçim türünü seçtim - Seçim tarihi de geldi - Seçilen seçim tarihine göre formda geldikten sonra o form üzerinden MahSandıkSecimine bağlantı yapmak istiyorum .
sayın aacanakova,
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,
lütfen;
içeriğinde farazi gerçek dışı ve sonuçları görebilmek adına da birkaç veri barındıracak şekilde örnek uygulamanızı konunuza dahil ediniz.
son olarak;
açılan kutu değerleri üzerinden hangi değer seçilirse hangi formun açılmasını da ayrıntılı olarak belirtiniz.
bilginize...iyi çalışmalar,saygılar.
sayın aacanakova,
şüphesizdir ki alternatif yöntemleri de mevcut olmakla birlikte,
ilk etapta bir kodlama örnek kalıbı olması adına,aşağıdaki gibi benzeri bir kod satırlarını açılan kutunun DEĞİŞTİĞİNDE olay yordamına yazdığınız takdirde;istenilen işlemin yerine getirilmesi olasıdır.
elbette bu kodlama,açılan kutunun hangi alan sütununa göre değişmekle birlikte,farklılık arz edebilir.bu da,örneğinizin incelenmesi akabinde düzenlenmeyi gerektirecektir.
Kod:
Select Case acilan_kutunun_adi
'deger1 seçildiğinde
Case "deger1_adi"
'deger1'in seçilmesi neticesinde açılacak olan formun adı
DoCmd.OpenForm "deger1_adina_gore_acilacak_form_adi", acNormal
DoCmd.Close acForm, "aktif_olan_formun_adi"
'deger2 seçildiğinde
Case "deger2_adi"
'deger2'in seçilmesi neticesinde açılacak olan formun adı
DoCmd.OpenForm "deger2_adina_gore_acilacak_form_adi", acNormal
DoCmd.Close acForm, "aktif_olan_formun_adi"
End Select
bilginize...iyi çalışmalar,saygılar.
Sayın atoz112 Form Kurallarını okudum teşekkür ederim uyarınız için
Dikkat edeceğim bundan sonra inşallah
İstemiş olduğunuz örnek yüklemeyi yaptım .
Ana_Sayfa formunda Seçim Türünü seçtikten sonra aşağıdaki açılır kutudaki hangi değer seçilirse aynı isimdeki form açılsın istiyorum . Örnek olarak bir tane form yükledim sadece ( 03_Kas_02 )
İkinci kısımda ise bütün formları aynı şekilde yaptıktan sonra ekleyeceğim 01-Kas-15 diye bir formun üzerinden MahSandıkSecimi formuna bağlantı yapmak istiyorum .
sayın aacanakova,
öncelikle;eklediğiniz uygulama üst sürüm olması nedeni ile inceleme imkanı olmamaktadır.önceki sürüme göre oluşturup ekleme imkanı yaratabilirseniz,bu sürümleri kullananlara dair konunuza katılımlar edinebilirsiniz.
önceki sürüme dönüştürme için aşağıda bağlantısı yazılı konunun 4.mesajında yer alan işlemleri de deneyebilirsiniz.
otel otomasyonu
ayrıca,seçime göre form açma üzerine gerek 3.mesajda örnek kalıp olarak yazıldığı üzere SELECT...CASE Fonksiyonu ile veya gerekse de IF Fonksiyonu yöntemi ile de yapabilirsiniz.
eğer açılan kutudan
03_Kas_02 değeri seçildiyse,03_Kas_02 adlı formun açılmasını sağlamak için
ÖRNEK 1 (SELECT...CASE ile)
Kod:
Select Case acilan_kutunun_adi
Case "03_Kas_02"
DoCmd.OpenForm "03_Kas_02", acNormal
DoCmd.Close acForm, "ana_formun_adi"
End Select
ÖRNEK2 (IF ile)
Kod:
if Me.acilan_kutunun_adi="03_Kas_02" then
DoCmd.OpenForm "03_Kas_02", acNormal
DoCmd.Close acForm, "ana_formun_adi"
end if
Alıntı:...İkinci kısımda ise bütün formları aynı şekilde yaptıktan sonra ekleyeceğim 01-Kas-15 diye bir formun üzerinden MahSandıkSecimi formuna bağlantı yapmak istiyorum ...
ifadenize yönelik olarak da,yine 01-Kas-15 adlı formun üzerinde bağlantıyı eğer bir butona basmak sureti ile sağlamak istiyorsanız;butonun TIKLANDIĞINDA olay yordamına
Kod:
DoCmd.OpenForm "MahSandıkSecimi", acNormal
DoCmd.Close acForm, "01-Kas-15"
yazmanız yeterlidir.bilginize...iyi çalışmalar,saygılar.
Form isminin formatı 03_Kas_02 şeklinde olacaksa, AK6 isimli açılan kutunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle
Dim FormAdi As String
FormAdi = Format(AK6.Column(2), "dd_mmm_yy")
DoCmd.OpenForm FormAdi, acNormal