Skip to main content

AccessTr.neT


Visual basicte bir yordamı diğer formda kullanmak

Visual basicte bir yordamı diğer formda kullanmak

Çözüldü #1
Merhabalar.
Visual Basic’te kod yığınlarını kısaltma için aşağıdaki kod satırlarında olduğu gibi, ifadeleri tanımladığım değişkene atayıp sonra bunu alt yordamlardan çağırıyorum, istediğim bunu mevcut form dışında diğer formlardan da çağrılabilmesidir. Bu işlem ayrı bir modül içinden ya da bir başka formdan nasıl düzenlenebilir?  Public  Sub ile çeşitli denemeler yaptım ya çalışmadı ya da hata verdi. (Visual Basic ile ilgili araştırmalar yapıyor, konu ile ilgili örnekleri inceliyorum). Basit bir örnek ektedir.

Konuya zaman ayıran Access severlere teşekkürler. 
Kod:
Sub AraKodBlogu()
KydGtr = "[TblKisiKayit]![KimlikNo]=[Forms]![FrmErisim]![ISMEGOREARAMA]&[Forms]![FrmErisim]![KimlikNoileArama]"
End Sub

Private Sub Kyt_Ara_Rdmf_Click()
AraKodBlogu
If Me.MynSecR = "2020" Then
DoCmd.OpenForm "SbFrmRdysyn6", , , KydGtr
DoCmd.Close acForm, Me.Name

ElseIf Me.MynSecR = "2019" Then DoCmd.OpenForm "SbFrmRdysyn5", , , KydGtr
DoCmd.Close acForm, Me.Name

End If
End Sub

Modül ifadesi;
Kod:
Option Compare Database

Public MynSec, KydGtr, MynSecR As String

.rar Ornek_AltyordamiCagirma.rar (Dosya Boyutu: 19,53 KB | İndirme Sayısı: 1)
Cevapla
#2
Merhaba.
Alttaki gibi deneyiniz.


PHP Kod:
Private Sub Komut0_Click()
Form_frmDiger.AltYrdm
End Sub 
Cevapla
#3
Teşekkür ederim çalıştı, peki bunu ayrı bir modül üzerinden yapmak istersek nasıl bir yol izlenir? Birçok formun olduğu bir Access dosyası için modüle bir kez yazarak yordamı çağırmak için.
Cevapla
#4
Rica ederim.
Bir modül ekleyin.
Alttaki gibi yaparsanız her taraftan mesaj verdirebilirsiniz.
Kısaca modül içine ekleyiniz.

Tam nasıl istiorsanız örnek dosada gösterirseniz daha faydalı olur.

Kod:
public sub mesajVer()
msgbox "Mesaj"
end sub


Yada

Alttaki gibi apabilirsiniz kodları kafadan yazdım test edemedim.
Kod:
public function Test()
Test=10
end function

Cevapla
#5
Tamamdır, çok teşekkürler.
Modülden örneğin Module1.AltYrdm yazarak çağırdım, çalıştı.
Son Düzenleme: 12/04/2020, 22:47, Düzenleyen: mgunes. (Sebep: Çözüldü)
Cevapla
#6
Rica ederim.Kısaca

AltYrdm yada call AltYrdm olarakta çağrılır modül adı yazamadan.

Yani modül içine subun başında public olacak her yerden çağırmak için public yazılmazsa sizinki gibi Modüle1.AltYrdm olabilir denememiştim hiç.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da