kaydet butonu kayıttan sonra yeni kayıt açsın
Tarih
15/01/2014 01:34
Konu Sahibi
miCRoBe`
Yorumlar
4
Okunma
2263
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
merhaba. forumda ve nette bulamadım bir örneğini;

kaydet butonu tıklandıktan sonra, formdaki tüm alanlar boş olmadığında veriyi kaydetsin kaydedildi uyarısı versin ve
aynı form tekrar yeni kayıt açsın. bu mümkün mü?

mümkünse eklemem gerekenler nelerdir. teşekkürler.

kaydet butonu tıklandığındaki kodlar;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
If IsNull(Me.alistarihi) Then
    MsgBox ("Alış Tarihi alanı boş bırakılamaz")
    Me.alistarihi.SetFocus
ElseIf IsNull(imeino) Then
    MsgBox ("imei no alanı boş bırakılamaz")
    Me.imeino.SetFocus
ElseIf IsNull(markaadi) Then
    MsgBox ("marka adı alanı boş bırakılamaz")
    Me.markaadi.SetFocus
ElseIf IsNull(modeladi) Then
    MsgBox ("model adı alanı boş bırakılamaz")
    Me.modeladi.SetFocus
ElseIf IsNull(tedarikturu) Then
    MsgBox ("Tedarik Türü alanı boş bırakılamaz")
    Me.tedarikturu.SetFocus
ElseIf IsNull(alisfiyati) Then
    MsgBox ("Alış Fiyatı alanı boş bırakılamaz")
    Me.alisfiyati.SetFocus
ElseIf IsNull(satisilkfiyati) Then
    MsgBox ("Satış Fiyatı alanı boş bırakılamaz")
    Me.satisilkfiyati.SetFocus
Else
    Me.Gmarka = ""
    Me.GModel = ""
    MarkaModelGuncelle
    DoCmd.RunCommand acCmdSaveRecord
End If




Ek Dosyalar
.rar   telefon.rar (Dosya Boyutu: 55,75 KB / İndirme Sayısı: 19)
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Bugün,20:36
Çözüldü 
Sponsor Reklam

Visual Basic Code
 DoCmd.RunCommand acCmdSaveRecord
 DoCmd.GoToRecord , , acNewRec


yazınız...

Please return your positive or negative ...
Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
sayın power teşekkür ederim.
bu kodu mevcut olan kodlardan sonra ekledim -end if- den sonra.. ve çalıştı..
kod konusunda bir bilgim yok, doğru şekilde mi ekledim? bu eklediğim şekilde çalışması normal midir?

Visual Basic Code
MsgBox "Kaydedildi..", vbInformation
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec


Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.321
29/01/2008
Denizli
Ofis 2010 32 Bit
Bugün,22:43
Çözüldü 
Sponsor Reklam
kodun tamamı aşağıdaki gibi olmalı

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
If IsNull(Me.alistarihi) Then
    MsgBox ("Alış Tarihi alanı boş bırakılamaz!")
    Me.alistarihi.SetFocus
ElseIf IsNull(imeino) Then
    MsgBox ("Imei No alanı boş bırakılamaz!")
    Me.imeino.SetFocus
ElseIf IsNull(markaadi) Then
    MsgBox ("Marka Adı alanı boş bırakılamaz!")
    Me.markaadi.SetFocus
ElseIf IsNull(modeladi) Then
    MsgBox ("Model Adı alanı boş bırakılamaz!")
    Me.modeladi.SetFocus
ElseIf IsNull(tedarikturu) Then
    MsgBox ("Tedarik Türü alanı boş bırakılamaz!")
    Me.tedarikturu.SetFocus
ElseIf IsNull(alisfiyati) Then
    MsgBox ("Alış Fiyatı alanı boş bırakılamaz!")
    Me.alisfiyati.SetFocus
ElseIf IsNull(satisilkfiyati) Then
    MsgBox ("Satış Fiyatı alanı boş bırakılamaz!")
    Me.satisilkfiyati.SetFocus
Else
    Me.Gmarka = ""
    Me.GModel = ""
    MarkaModelGuncelle
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "Kaydedildi..", vbInformation, "Kaydedildi"
    DoCmd.GoToRecord , , acNewRec
End If


Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
teşekkür ederim. sağolun.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Altformda Yeni Kayıt-Kaydet Vb İşlemler koruyucu 2 72 16/02/2017, 20:00 koruyucu
  Kayıt Kontrol Eksik Verileri Bulma Ve Hesaplama hknct 10 122 11/02/2017, 18:11 hknct
  Gelir Giriş formunda Yeni Kayıt dediğimde Açılır Kutudaki Teknik otomatik Gelmesi haziran4 2 44 09/02/2017, 17:53 haziran4
  Kasa Hareketleri Formunda Listede kayıt sayısını göstermek haziran4 2 48 09/02/2017, 17:28 haziran4
  Tablolara Tek Formdan Kayıt Girmek Ve Kayıtları Görmek ozer1971 5 60 09/02/2017, 13:32 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya