+- 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ığı: Visual basicte bir yordamı diğer formda kullanmak (/konu-visual-basicte-bir-yordami-diger-formda-kullanmak.html)
Sayfalar:
1
2
Re: Visual Basicte Bir Yordamı Diğer Formda Kullanmak - mgunes - 12/04/2020
Modül içinde form kapatma yordamı tanımlayıp
Kod:
Public Function KptmYrdm()
If Form.Dirty Then
If MsgBox("Forma veri girdiniz ve Kaydet butonuna basmadan formu kapatmak istiyorsunuz. Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "FrmErisim"
Else
Me.Undo
DoCmd.Close
DoCmd.OpenForm "FrmErisim"
End If
Else
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "FrmErisim"
End If
End FunctionModule1.KptmYrdm
şeklinde çağırdığımda hata alıyorum: Variable not defined. Bu algoritmayı farklı formların kapatma butonlarında bu haliyle kullanamaz mıyız?
RE: Visual basicte bir yordamı diğer formda kullanmak - feraz - 12/04/2020
Eğer modülden yapacaksanız modül içindeki kodlarda Formadı felan yazılmalı gibi.Bu haliyle ekleyin dosyayı bakalım.
RE: Visual basicte bir yordamı diğer formda kullanmak - mgunes - 13/04/2020
Dosyayı ekledim. Sağolun vakit ayırdığınız için.
RE: Visual basicte bir yordamı diğer formda kullanmak - feraz - 13/04/2020
Merhaba.
Public olan kodu modüle ekleyin.Çağırmak için ise private içindeki kod ile çağırınız.Gördüğüm kadarıyla form kapatma kodları hep aynı.
Dosya indirme için kota konduğu için dosyayı ekleyemedim.
Kod:
Private Sub PmfKptA1_Click()
Call KapatForm(Me, "FrmErisim")
End SubKod:
Public Sub KapatForm(ByVal AnaForm As Access.Form, ByVal AcilacakForm As String)
If AnaForm.Dirty Then
If MsgBox("Forma veri girdiniz ve Kaydet butonuna basmadan formu kapatmak istiyorsunuz. Deðiþiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, AnaForm.Name
DoCmd.OpenForm AcilacakForm
Else
AnaForm.Undo
DoCmd.Close
DoCmd.OpenForm "AcilacakForm"
End If
Else
DoCmd.Close acForm, AnaForm.Name
DoCmd.OpenForm AcilacakForm
End If
End SubRE: Visual basicte bir yordamı diğer formda kullanmak - mgunes - 13/04/2020
Kodlarınız uygulanmış, sonuç alınmıştır. Bilgilerinizi cömertçe paylaştığınız için teşekkürlerimi iletiyorum.
RE: Visual basicte bir yordamı diğer formda kullanmak - feraz - 13/04/2020
Rica ederiz,bilgi paylaştıkça çoğalır
