Şarta Bağlı Kayıt - 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ığı: Şarta Bağlı Kayıt (/konu-sarta-bagli-kayit.html) Sayfalar:
1
2
|
Şarta Bağlı Kayıt - fascioğlu - 28/11/2012 Sayın hocalarım benim şöyle bir sorum var,yardımcı olabilirseniz sevinirim. Anaformda,Kişi sayısı diye bir alanım var bu alana kişi sayısını yazdığımda 1 ise Bir kişilik,2 ise İki kişilik 3 ise üç kişilik Kimlik bilgileri formları açılmaktadır,bu formların kayıt kaynağı tb_musteri dir,üç ayrı frm_müster,frm_musteri1 ve frm_müsteri2 diye üç adette form oluşturdum ve kişi sayısına görede bu formlar Ana form üzerinde açılıyor.Burada yapmak istediğim kişi sayısına göre açılan formlara veri girilmediği takdirde kayıt yapmaması ve uyarı vermesi ve kayıt girilmesinin şart olduğunu göstermesi.Saygılarımla. Örnek ektedir. Cvp: Şarta Bağlı Kayıt - ozguryasin - 28/11/2012 TC Kimlik Numarasına kontrolü ben koydum diğerlerini aynı şekilde tekrar ediniz. kaydetme işleminden önce alttaki kodu uyarlayıp yazınız. alanı boş gördüğü zaman kod tetiklendiğinde mesaj veri sizi o alana götürecek.
Cvp: Şarta Bağlı Kayıt - accessman - 28/11/2012 bu ne hiz ozguryasin kardeşim cevabı sorudan önce yazacakmışsın neredeyse Cvp: Şarta Bağlı Kayıt - ozguryasin - 28/11/2012 geç bile yazmışım 6 dakika çok uzun bir zaman. sitede dolaşıyordum baktım bir soru dolaşırken cevaplayayım dedim. Cvp: Şarta Bağlı Kayıt - fascioğlu - 28/11/2012 Özgür kardeşim eline ve emeğine sağlık kendi projeme Oda no olarak uyguladım,ancak oda no 0 olduğu zaman "0 numaralı odanın kaydı tamamlanmıştır" diye bilgi msj. veriyor oysa 0 olduğunda "Kayıt işlemi tamamlanamamıştır,Lütfen Oda no giriniz"şeklinde olması gerekiyor.Kodlar eklidir,saygılarımla. Private Sub Komut33_Click() If IsNull(Me.odano) Or Me.odano = "" Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub On Error GoTo Err_Komut33_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 GoTo 111 Exit_Komut33_Click: Exit Sub Err_Komut33_Click: MsgBox Err.Description Resume Exit_Komut33_Click 111 MsgBox "" & Me.odano & " " & "Numaralı Odanın Rezervasyon Kaydı Tamamlanmıştır.", , "Bilgi" End Sub Cvp: Şarta Bağlı Kayıt - ozguryasin - 29/11/2012
satırındaki me.odano ="" olan bölümü me.odano= 0 olarak değiştiriniz.yani kod bu şekilde olacak
|