İf ve Else Kullanımı
Tarih
27/03/2014 03:21
Konu Sahibi
akdemir1
Yorumlar
5
Okunma
1476
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ü 
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.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:45
Çö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ü 
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,18:50
Çö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ü 
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,18:50
Çö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
  Access Aşırı CPU Kullanımı siyahca 17 349 02/12/2016, 17:11 siyahca
Brick Microsoft Access Yüklü Olmayan Bilgisayarlarda Access Kullanımı (Runtime) OFA 4 356 20/06/2016, 14:47 OFA
  iç içe if kullanımı Kardeşpayı 7 429 24/05/2016, 14:56 Kardeşpayı
  sorgu içinde koşul içeren ifade kullanımı uguruygar 4 292 20/05/2016, 00:09 ozanakkaya
  Sorguda DLookUp Kullanımı ! İfadelerle Üretilen Alandan Ardışık satır Verisi Çağırma Celalettin Uçar 10 533 11/05/2016, 16:43 atoz112


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