AccessTr.neT

Tam Versiyon: İf ve Else Kullanımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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..
"Görünüş" itibariyle sorun yok gibi, uygulama üzerinde tüm altarnatifleri denemek lazım. Malum, kod işi "Görünüş"e bakmaz.
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..
Merhaba;
Kodlarda yer alan "Shrink(Me.Name)" ne yapıyor?
Teşekkürler.
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..
Açıklama için teşekkür ederim.
Sayfalar: 1 2