Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Kod İle Form Yada Rapor Açma

adnnfrm
adnnfrm
Access Cevaplanmış Soruları
8
1368

Kod İle Form Yada Rapor Açma

Çözüldü #1
adnnfrm
Üye
adnnfrm
Bul
Üye
Adı Soyadı: Ad....
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 21/12/2023,04:32
Yorumları: 6
Konuları: 2
Kayıt Tarihi: 31/01/2020
Teşekkür Puanı: 0
Mesleğiniz: Satın Alma Uzmanı
Herkese Merhaba,

Bir projemde kullanacağım bir özelliğe ihtiyacım var. Kod ile form yada rapor açma. 
Ekte konuyu en basit şekilde anlatacağım bir Access dosyası paylaşıyorum. Formun ismine göre değil benim belirlediğim kodlara göre istenilen formları yada raporları çalıştıracak bir çalışmaya ihtiyacım var.

Örneğin form adı: "Form1" olsun ben bu formu çalıştırmak için bir başka formda bir metin alanına "FR01" yazıp enter a bastığımda ilgili form çalışsın.

Şimdiden teşekkür ederim.
.rar Database.rar (Dosya Boyutu: 15,89 KB | İndirme Sayısı: 3)
Cevapla
#2
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 01/04/2024,18:42
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Kod penceresine şu kodları yapıştırın

Kod:
Private Sub Metin4_AfterUpdate()
If Me.Metin4 = "FR01" Then DoCmd.OpenForm "form1"
If Me.Metin4 = "FR02" Then DoCmd.OpenForm "form2"
If Me.Metin4 = "FR03" Then DoCmd.OpenForm "form3"

End Sub
Cevapla
#3
adnnfrm
Üye
adnnfrm
Bul
Üye
Adı Soyadı: Ad....
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 21/12/2023,04:32
Yorumları: 6
Konuları: 2
Kayıt Tarihi: 31/01/2020
Teşekkür Puanı: 0
Mesleğiniz: Satın Alma Uzmanı
(02/02/2020, 18:55)mehmetdemiral yazdı: Kod penceresine şu kodları yapıştırın

Kod:
Private Sub Metin4_AfterUpdate()
If Me.Metin4 = "FR01" Then DoCmd.OpenForm "form1"
If Me.Metin4 = "FR02" Then DoCmd.OpenForm "form2"
If Me.Metin4 = "FR03" Then DoCmd.OpenForm "form3"

End Sub
Mehmet Hocam,
Peki bu lriterleri bir tablo üzerinde nasıl yönetebiliriz. Yani bir tablo oluştursam 2 tane alan olsa bir tanesi "kod" diğeri "form ismi" şeklinde. Fromları oraya bakarak açsa!!

Şimdiden teşekkürler.
Cevapla
#4
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 01/04/2024,18:42
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Form üzerinde bir metin kutusuna yazmak yerine açılan kutudan seçmek daha mantıklı değil mi. Böylece hatalı bir formadı yazma ihtimali ortadan kalkar. Neden yazarak açıyorsunuz?
Cevapla
#5
adnnfrm
Üye
adnnfrm
Bul
Üye
Adı Soyadı: Ad....
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 21/12/2023,04:32
Yorumları: 6
Konuları: 2
Kayıt Tarihi: 31/01/2020
Teşekkür Puanı: 0
Mesleğiniz: Satın Alma Uzmanı
(02/02/2020, 23:38)mehmetdemiral yazdı: Form üzerinde bir metin kutusuna yazmak yerine açılan kutudan seçmek daha mantıklı değil mi. Böylece hatalı bir formadı yazma ihtimali ortadan kalkar. Neden yazarak açıyorsunuz?
önemli olan kodların bilinmesini sağlamak Mehmet hocam.
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,20:57
Yorumları: 8.396
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034
Tablodan alacaksa Dlookup fonksiyonu ise yarayabilir
Kod:
Private Sub Metin4_AfterUpdate()
Dim frmAdi as String
frmAdi=dlookup("[form ismi]","tabloAdi","[kod]='" & Me.Metin4 & "'")
DoCmd.OpenForm frmAdi

End Sub
giibi.
Not: dosyayi indirip denemedim sadece teorik
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task