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

Derecelendirme: 0/5 - 0 oy

fascioğlu

(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
165
Muğla
Ofis 2003
09/08/2017,02:59
Çö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.


Ek Dosyalar
.rar   Proje.rar (Dosya Boyutu: 1,12 MB / İndirme Sayısı: 7)
Cevapla

ozguryasin

Uzman
Kullanici Avatari
Uzman
Ö.... Y....
864
23/09/2009
568
Bursa
Ofis 2010 32 Bit
Dün,12:58
Çö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


Ek Dosyalar
.rar   ozguryasin_Proje.rar (Dosya Boyutu: 628,12 KB / İndirme Sayısı: 23)
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
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
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
Cevapla

ozguryasin

Uzman
Kullanici Avatari
Uzman
Ö.... Y....
864
23/09/2009
568
Bursa
Ofis 2010 32 Bit
Dün,12:58
Çö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
Cevapla

fascioğlu

(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
165
Muğla
Ofis 2003
09/08/2017,02:59
Çö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


Cevapla

ozguryasin

Uzman
Kullanici Avatari
Uzman
Ö.... Y....
864
23/09/2009
568
Bursa
Ofis 2010 32 Bit
Dün,12:58
Çö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
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kayıt Silme Hatası burhanb 6 175 08/09/2017, 14:01 burhanb
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 332 21/08/2017, 12:04 direnist
Çözüldü Döneme Göre Kayıt Etme haziran4 5 200 17/08/2017, 08:22 haziran4
Çözüldü Kayıt Sayısı metin02 7 255 13/08/2017, 11:05 metin02
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 460 02/08/2017, 01:32 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.