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.

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

bu ne hiz ozguryasin kardeşim
cevabı sorudan önce yazacakmışsın neredeyse

geç bile yazmışım 6 dakika çok uzun bir zaman. sitede dolaşıyordum baktım bir soru dolaşırken cevaplayayım dedim.

Ö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

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