AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Kod İle Form Yada Rapor Açma

1 2
02/02/2020, 17:17

adnnfrm

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.
02/02/2020, 18:55

mehmetdemiral

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
02/02/2020, 21:32

adnnfrm

(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.
02/02/2020, 23:38

mehmetdemiral

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?
02/02/2020, 23:52

adnnfrm

(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.
03/02/2020, 00:20

berduş

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
1 2