Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Form açmak ve kaydetmek

fascioğlu
fascioğlu
Access Cevaplanmış Soruları
2
1870

Form açmak ve kaydetmek

Çözüldü #1
fascioğlu
(yunusotel)
fascioğlu
Bul
Aktif Üye*
Adı Soyadı: Fa.... Aş....
Yaşı: 69
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 18/05/2022,17:45
Yorumları: 1.016
Konuları: 203
Kayıt Tarihi: 18/09/2010
Teşekkür Puanı: 176
Mesleğiniz: Emekli_Turizm
Değerli hocalarım ve Access ailesi,
Üzerinde çalıştığım projemde Odabilgileri ve müşteri formu adında 2 adet form bulunmaktadır,Odabilgilerindeki bilgiler girildikten sonra müşteri formunu açarak kimlik bilgilerinin girilmesi ve bundan sonra kayıt yapılması,kimlik bilgileri girilmeden Kayıt yapmaması ve uyarı vermesi,
2-Odabilgilerindeki Oda No ya göre müşteri formunu açması ve buna göre kimlik bilgisinin girilmesini nasıl sğlayabilirim
Saygılarımla.
.rar Otel Yönetim Deneme.rar (Dosya Boyutu: 1,12 MB | İndirme Sayısı: 17)
Cevapla
Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,22:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Mükerrer olayı için:
🔍Mükerrer satışı engelleme
🔍Mükerrer kayıt engelleme hakkında
🔍Mükerrer Kayıtlar
🔍mükerrer kayıt
🔍Mükerrer Kayıtların Engellenmesi

2. soru izin yeni konu açmanız gerekiyor, ancak cevaplamaya çalışayım

Yeni bir modül oluşturun ve 
Global GeciciOdaNo As String
kodu ekleyin.

oda bilgileri formundaki konaklama süresi metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Konaklamasuresi_AfterUpdate()
GeciciOdaNo = Me.odano
Me.Cıkıstarihi = Me.CT
Me.Odatipi = Me.Oda_tipi
Me.Odafiyati = Me.Oda_fiyati
Me.KONTOP = Me.Oda_fiyati * Me.Konaklamasuresi
Me.Yetiskinsayısı = Me.Yetiskinsayısı + Me.Kisisayisi
Me.CS = Me.CS + Me.Cocuksayisi
Me.Bosoda = Me.Bosoda - 1
Me.Doluoda = Me.Doluoda + 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "frm_musteri", , , , acFormAdd
Call ODADURUM
Call ODARENK
End Sub

Müşteri formunun YÜKLENDİĞİNDE olayına aşağıdaki kodu ekle

Private Sub Form_Load()
If IsNull(Me.odano) Then
Me.odano = GeciciOdaNo
End If
End Sub
Cevapla
Çözüldü #3
fascioğlu
(yunusotel)
fascioğlu
Bul
Aktif Üye*
Adı Soyadı: Fa.... Aş....
Yaşı: 69
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 18/05/2022,17:45
Yorumları: 1.016
Konuları: 203
Kayıt Tarihi: 18/09/2010
Teşekkür Puanı: 176
Mesleğiniz: Emekli_Turizm
Hocam elinize sağlık,çok teşekkür ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task