Skip to main content

AccessTr.neT


İf ve Else Kullanımı

İf ve Else Kullanımı

Çözüldü #1
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.?

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

' cevap evet ise alttaki denetimi yap çık, değilse formda kal

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

' alanların hepsi doluysa alttaki msgbox u sor, cevap hayırsa değişiklikleri geri al çık,

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

'cevap evet ise alttaki stok kontrol işlemini yap, stok işleminde sorun varsa formda kal

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

' stok işleminde sorun yoksa kaydet çık
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
Çözüldü #2
"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
Çözüldü #3
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
Çözüldü #4
Merhaba;
Kodlarda yer alan "Shrink(Me.Name)" ne yapıyor?
Teşekkürler.
Cevapla
Çözüldü #5
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
Çözüldü #6
Açıklama için teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da