İf ve Else Kullanımı
Tarih
27/03/2014 03:21
Konu Sahibi
akdemir1
Yorumlar
5
Okunma
1512
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
13/10/2016,21:30
Çözüldü 
Sponsor Reklam
Merhaba Arkadaşlar aşağıdaki kodda if - elseif ve else komutlarının kullanımı doğrumudur sizce.? veya düzeltmem gereken bir yer varmıdır.?

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Komut24_Click()
If IsNull(Me.Açılan_Kutu2) Or IsNull(Açılan_Kutu4) Or IsNull(Metin8) Or IsNull(Metin10) Then

    If MsgBox("Alanların Tamamı Veya Bir Kısmı Boş..." & vbCr & "Herhangi Bir Kayıt Yapılmadan Kapatılsın mı.?", vbInformation + vbYesNo, "ERZURUM OTOMASYON") = vbYes Then

[u]' cevap evet ise alttaki denetimi yap çık, değilse formda kal
[/u]
        Me.Undo
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("DELETE ID_CIKIS, ID_URUN, ID_KULLANIM, CIKIS_TARIHI, CIKIS_MIKTARI FROM T_CIKIS WHERE (((ID_URUN) Is Null)) OR (((ID_KULLANIM) Is Null)) OR (((ID_CIKIS) Is Null)) OR (((CIKIS_TARIHI) Is Null)) OR (((CIKIS_MIKTARI) Is Null));")
        DoCmd.SetWarnings True
        ShrinkMe (Me.Name)
        DoCmd.Close
        DoCmd.OpenForm "F_BIRIM", acNormal
   End If
  
[u]' alanların hepsi doluysa alttaki msgbox u sor, cevap hayırsa değişiklikleri geri al çık,
[/u]
ElseIf MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "ERZURUM OTOMASYON") = vbNo Then
            Me.Undo
            ShrinkMe (Me.Name)
            DoCmd.Close
            DoCmd.OpenForm "F_BIRIM", acNormal

[u]'cevap evet ise alttaki stok kontrol işlemini yap, stok işleminde sorun varsa formda kal
[/u]
Else
If Me.Metin10 > Me.Metin44 Then
MsgBox "Ürüne Ait Güncel Stok Miktarı { " & Metin44 & " } Çıkış Yapmak İstediğiniz Rakam Stok Miktarını Eksiye Düşüreceğinden Bu işlemi Gerçekleştiremezsiniz...", vbCritical, "ERZURUM OTOMASYON"
Me.Metin10 = ""
Me.Metin10.SetFocus
       
[u]' stok işleminde sorun yoksa kaydet çık[/u]
Else
        
           
            DoCmd.Save
            MsgBox Metin10 & " BİRİM { " & Metin54 & " } STOK ÇIKIŞI GERÇEKLEŞTİ, KALAN STOK MİKTARI " & ([Metin44] - [Metin10]) & "", vbOKOnly, "ERZURUM OTOMASYON"
            ShrinkMe (Me.Name)
            DoCmd.Close
            DoCmd.OpenForm "F_BIRIM", acNormal
            
   
End If
End If

End Sub


Cevaplarınız için şimdiden teşekkür ederim

Saygılarımla..

HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,15:40
Çözüldü 
"Görünüş" itibariyle sorun yok gibi, uygulama üzerinde tüm altarnatifleri denemek lazım. Malum, kod işi "Görünüş"e bakmaz.
Cevapla

akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
13/10/2016,21:30
Çözüldü 
Sponsor Reklam
Haklısınız hocam,
Uygulama üzerinde sorun yok gibi, her kod görevini yapıyor.
Uygulamayı tamamladıktan sonra sorun çıkarmaması açısından sormak istedim,

Teşekkür ederim

Saygılarımla..
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

direnist
Aktif Üye
Kullanici Avatari
Aktif Üye
D.... S....
328
05/11/2008
118
İstanbul
Ofis 2010 64 Bit
Dün,13:08
Çözüldü 
Merhaba;
Kodlarda yer alan "Shrink(Me.Name)" ne yapıyor?
Teşekkürler.
Cevapla

akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
13/10/2016,21:30
Çözüldü 
Sponsor Reklam
Merhaba,

Sayın direnist kodlarda yer alan
"Shrink(Me.Name)" kodu formların efektli olarak kapanmasını sağlayan module başvuruyor.
formun işlevselliği açısından herhangi birşey ifade etmiyor.

Saygılarımla..
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

direnist
Aktif Üye
Kullanici Avatari
Aktif Üye
D.... S....
328
05/11/2008
118
İstanbul
Ofis 2010 64 Bit
Dün,13:08
Çözüldü 
Açıklama için teşekkür ederim.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Buton ile rapor açarken kriterde like kullanımı nightashes 2 83 06/01/2017, 22:41 nightashes
  Access Aşırı CPU Kullanımı siyahca 17 536 02/12/2016, 17:11 siyahca
Brick Microsoft Access Yüklü Olmayan Bilgisayarlarda Access Kullanımı (Runtime) OFA 4 435 20/06/2016, 14:47 OFA
  iç içe if kullanımı Kardeşpayı 7 486 24/05/2016, 14:56 Kardeşpayı
  sorgu içinde koşul içeren ifade kullanımı uguruygar 4 364 20/05/2016, 00:09 ozanakkaya


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