AccessTr.neT
Onay kutusuna bağlı işlem yapmak. - 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ığı: Onay kutusuna bağlı işlem yapmak. (/konu-onay-kutusuna-bagli-islem-yapmak.html)



Onay kutusuna bağlı işlem yapmak. - fascioğlu - 05/05/2014

Mrb.arkadaşlar..
Yapmış olduğum bir çalışma ile ilgili bir sorum olacak,
Konu şu form üzerinde "MÜNFERTİT" ve "ACENTA" seçeneklerini gösteren Rezervasyon formunda bir adet onay (EVET/HAYIR)kutusu var.
Münferit seçtiğimde münferite bağlı olarak Adı Soyadı vs.gelmekte,ACENTA yazdığımda ise ACENTA metin kutusu
firma ve acenta adı vs.gelmekte.Buraya kadar bir sorun yok.
Ancak seçeneklerden her hangi birine kayıt yapıyorum ,ancak tekrar o kaydı açtığımda her iki seçenek birlikte açılıyor,
burada yapılmasını istediğim olay hangi seçeneğe göre kayıt girildiyse o kaydın gelmesi.
Ayrıca Rezerve yapılan oda listesinde hangi odanın hangi seçeneğe göre rezerve edildiğinin gösterilmesi.
(Örnek:Münferit ise Münferit,acente ise acente yazması)


Cvp: Onay kutusuna bağlı işlem yapmak. - ozanakkaya - 05/05/2014

Formun vb sayfasında en alta aşağıdaki kodu ekle.

Sub MunferitAcenta()

If Me.Rezyapan.Value = "-1" Then

Me.Metin265 = ""
Me.Metin265.Visible = True
Me.MÜNFERİT.Visible = True
Me.ACENTA.Visible = False
Me.Metin267.Visible = False
Me.Metin265 = "MÜNFERİT"
Me.Tckimlikno.Visible = True
Me.Adisoyadi.Visible = True
Me.Tel2.Visible = True
Me.sehir1.Visible = True
Me.firmaacentaadı.Visible = False
Me.yetkılıkısı.Visible = False
Me.tel.Visible = False
Me.tel1.Visible = False
Me.adresi.Visible = False
Me.sehir.Visible = False
Me.odasayısı.Visible = False
Else

Me.Metin267 = ""
Me.Metin267.Visible = True
Me.MÜNFERİT.Visible = False
Me.ACENTA.Visible = True
Me.Metin265.Visible = False
Me.Metin267 = "ACENTA"
Me.firmaacentaadı.Visible = True
Me.yetkılıkısı.Visible = True
Me.tel.Visible = True
Me.tel1.Visible = True
Me.adresi.Visible = True
Me.sehir.Visible = True
Me.odasayısı.Visible = True
Me.Tckimlikno.Visible = False
Me.Adisoyadi.Visible = False
Me.Tel2.Visible = False
Me.sehir1.Visible = False
End If
End Sub

Onay Kutusunun güncelleştirme sonrasında olayına yazılan tüm kodu sil, yerine

call MunferitAcenta
kodu ekle,

formun geçerli olduğunda olayınada aşağıdaki kodu ekle

call MunferitAcenta



Cvp: Onay kutusuna bağlı işlem yapmak. - fascioğlu - 05/05/2014

Hocam emeğinize sağlık Ekledim yalnız eksik bir durum var hocam,kayıt yoksa seçeneklerina çılmaması gerekmezmi
birde Rezerve yapılan odaları gösteren Liste 278 de Rezyapan alana Evet Hayır yerine Münferitmi Acentamı olduğunun gösterilmesi.


Cvp: Onay kutusuna bağlı işlem yapmak. - ozanakkaya - 06/05/2014

Sadece Tablo ve Formu ekliyorum. Kendi uygulamanızdaki tablo ve formu silip dış veri al ile veritabanına aktarırsın.


Cvp: Onay kutusuna bağlı işlem yapmak. - fascioğlu - 06/05/2014

Hocam çok tşk.ederim,emeğinize sağlık.Sorum çözülmüştür.