kaydet butonu kayıttan sonra yeni kayıt açsın
Tarih
15/01/2014 01:34
Konu Sahibi
miCRoBe`
Yorumlar
4
Okunma
2167
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.846
02/04/2010
İzmir
Ofis 2003
Bugün,00:55
Çözüldü 

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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,01:03
Çözüldü 
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
  Liste kutusu çift tıklama ile yeni form açmak nightashes 18 235 02/12/2016, 20:04 nightashes
  Mükerrer Kayıt Hk. Serkan Çevik 2 72 01/12/2016, 22:37 Serkan Çevik
  Form Açıldığında Yeni Kayda Gitme Problemi ferhatozge 6 200 30/11/2016, 15:53 ferhatozge
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 224 29/11/2016, 13:49 Mesut Kaytan
  Aynı Ürün Koduna ait kaydın son alanındaki değeri,yeni kayıtta ilk alanına yazdırmak yenginoglu 2 63 23/11/2016, 08:49 yenginoglu


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