Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/11/2012 17:53
Konu Sahibi
fascioğlu
Yorumlar
6
Okunma
2006
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

fascioğlu

Aktif Üye*
24774
Fa.... Aş....
 64
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 30/01/2019,00:37
Çözüldü 
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.



ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Dün,09:46
Çözüldü 
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.

Visual Basic Code
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


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
bu ne hiz ozguryasin kardeşim
cevabı sorudan önce yazacakmışsın neredeyse


@benbendedeilem

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Dün,09:46
Çözüldü 
Lol geç bile yazmışım 6 dakika çok uzun bir zaman. sitede dolaşıyordum baktım bir soru dolaşırken cevaplayayım dedim.


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

fascioğlu

Aktif Üye*
24774
Fa.... Aş....
 64
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 30/01/2019,00:37
Çözüldü 
Ö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



ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Dün,09:46
Çözüldü 

Visual Basic Code
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

Visual Basic Code
If IsNull(Me.odano) Or Me.odano = 0 Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 41 1 saat önce
Son Yorum: haziran4
Çözüldü Açılır kutudan kayıt girişi yapmak yuppi23 4 1.718 24/04/2019, 15:57
Son Yorum: Aşkın Güngör
Çözüldü Araç Takip kayıt sorunu IceMan7 11 1.879 13/04/2019, 00:23
Son Yorum: Cüneyt Beyazsu
Çözüldü Alt Formun Kayıt Kaynağını Kod İle Ayarlamak programmer67 35 822 09/04/2019, 13:00
Son Yorum: haliliyas
Çözüldü Seçeneğe bağlı yan yana yazdırma dioxi 6 379 19/03/2019, 22:33
Son Yorum: dioxi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.