AccessTr.neT
Ş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.
If IsNull(alanadı) or me.alanadı ="" Then: msgbox "Alan Adı bölümünü boş bırakmayınız", , "Bilgi":me.alanadı.setfocus: Exit Sub



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

Lol 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

If IsNull(Me.odano) Or Me.odano = "" Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub
satırındaki me.odano ="" olan bölümü me.odano= 0 olarak değiştiriniz.
yani kod bu şekilde olacak
If IsNull(Me.odano) Or Me.odano = 0 Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub