Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/03/2014 03:21
Konu Sahibi
akdemir1
Yorumlar
5
Okunma
1825
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
26/01/2017,21:08
Çö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.871
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,22:23
Çö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
26/01/2017,21:08
Çö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

Uzman
Kullanici Avatari
Uzman
D.... S....
365
05/11/2008
124
İstanbul
Ofis 2010 64 Bit
Çö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
26/01/2017,21:08
Çö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

Uzman
Kullanici Avatari
Uzman
D.... S....
365
05/11/2008
124
İstanbul
Ofis 2010 64 Bit
Çö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
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 302 05/10/2017, 14:38 anno
Çözüldü 4000 satırlık veri ve combobox kullanımı? pelitt 21 1.256 22/04/2017, 19:51 atoz112
Çözüldü tek formda butonla 2 altform kullanımı U.ALTUN 7 560 25/03/2017, 15:22 U.ALTUN
Çözüldü Msgbox Kullanımı hknct 2 214 13/03/2017, 21:56 hknct
Çözüldü Buton ile rapor açarken kriterde like kullanımı nightashes 2 329 06/01/2017, 22:41 nightashes

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