Kod İle Form Yada Rapor Açma

Kod İle Form Yada Rapor Açma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kod İle Form Yada Rapor Açma (/konu-kod-ile-form-yada-rapor-acma.html)

Sayfalar: 1 2

Kod İle Form Yada Rapor Açma - adnnfrm - 02/02/2020

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.

Cvp: Kod İle Form Yada Rapor Açma - mehmetdemiral - 02/02/2020

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

Cvp: Kod İle Form Yada Rapor Açma - adnnfrm - 02/02/2020

(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.

Cvp: Kod İle Form Yada Rapor Açma - mehmetdemiral - 02/02/2020

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?

Cvp: Kod İle Form Yada Rapor Açma - adnnfrm - 02/02/2020

(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.

Cvp: Kod İle Form Yada Rapor Açma - berduş - 03/02/2020

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