AccessTr.neT

Sayfalar: 1 2

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

Merhaba.
Alttaki gibi deneyiniz.

PHP Kod:
Private Sub Komut0_Click()
Form_frmDiger.AltYrdm
End Sub 

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.

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

Tamamdır, çok teşekkürler.
Modülden örneğin Module1.AltYrdm yazarak çağırdım, çalıştı.

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

Sayfalar: 1 2

mgunes

feraz

mgunes

feraz

mgunes

feraz