Çözüldü Excel Userform işlem aktarma ve Uyarı Ekranı

vvebtasarim' Alıntı:

Merhaba ;
Hayırlı Akşamlar ..
2 adet problemim mevcut.
1.si Giriş işlemi ve Çıkış İşlemi Formlarında İşlem yapılacak Kasa bölümüne kayıt yaptığım isimler gelmekte. ama kayıt olmayan isim girdiğimde de işleme devam etmekte. Bunu engellemek istiyorum. Yani Kişi adı yoksa Kasa Yönetimi Sayfasında işleme devam etmesin.
UYARI : Böyle bir kayıt yok lütfen kayıt açınız ! Şeklinde bir mesaj versin.
2.si ise FrmUyarı Formu bu form Çıkış işlemi yaparken eğer ki kişinin bakiyesinden fazla çıkış yapılıyorsa bu ekran gelecek ve kişinin kalan bakiyelerini gösterecek.
Örnek : Alinin 2000 TL si var ve Çıkış işlemine geldik 3000 TL çıkış yapalım dedik bize kasa bakiyeler kısmındaki kişinin son bakiyesini FrmUyarı Formunda gösterecek. Diğer işlemlerde karşımıza çıkmayacak sadece fazla ödeme yapıldığında.
İlgilenecek arkadaşlara şimdiden tşk ederim.
Dosya Ektedir.

Genişletmek için tıklayın ...

MESKO' Alıntı:

1.Sorunuz için

FrmKasaCikis modulüne kopyalayınız.
FrmKasaGiriş içinde gerekli değişiklikleri aynı mantıkta siz yaparsınız.


Private Sub cbislemkasa_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

frmmesaj.lblmesaj.Caption = "Lütfen Listeden Seçim yapınız." & vbCrLf & "İşleme Devam Edemezsiniz."
frmhesaphareketleri.hesaplarilistele
frmmesaj.Show

'MsgBox "Lütfen Listeden Seçim yapınız."

cbislemkasa = ""
End Sub

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Merhaba.

FrmUyarı Formu isimli userformun hiçbir işlevini göremiyorum.
Çıkış formunda, üç tane TextBoxta para birimlerine ait bakiye görüntülenebilir veya
para birimi seçildiğinde içi doldurulacak ve sadece seçilen para birimine ait bakiye bir tane TextBoxta gösterilebilir.

Bakiye yetersiz ise çıkış işlemini kesmek/uyarı verdirmek mesele değil elbette.

Herneyse;
-- Çıkış formunun kod bölümündeki btnkaydet kodunun baş kısmını aşağıdaki birinci kod blokundaki gibi değiştirin.
-- FrmUyarı Formu isimli userforma ait kod blokuna da aşağıdaki ikinci kod blokunu ekleyin.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(28 satır)

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)

.

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Mesajlarınızı tümü büyük harf olarak yazmayınız
Bu hususu daha evvel de yazdığımı hatırlıyor gibiyim.

Kaldı ki; mesajların tümü büyük harf olarak yazılmasıyla ilgili olarak,
üye olurken okuduğunuz/okuduğunuz varsayılan
Forum Kuralları'nın 6/3 bölümünde açıklama mevcut. İlgili bölümü okuyunuz >>> Forum Kuralları

Eklediğiniz son belgeye bakmadım. Denemeden cevap yazma alışkanlığım yok.
Yaptığım değişikliklerin tümünü mesaj içeriğine yazmamış olmalıyım.
Çıkış Formundaki bakiye kontrolü sonrası İşleme Devam düğmesi kullanılacaksa bakiye neden kontrol edilir onu anlamadım.
Ancak yine de İşleme Devam düğmesine ve Vazgeç düğmesine ekleme yaptım.

En iyisi bendeki belgeyi ileteyim. Ben bir sorun görmüyorum.

Aynı kodları Giriş Formu için de istemenizi anlamadım.
Çıkış için sınır kontrolü var idi bu tamam da girişte bakiye neden kontrol edilsin ki? Ya da hangi durumda engelleme yapılacak?
.

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

9 numaralı cevap ekindeki belgeyi yeniledim.
Sayfayı yenileyerek, yeni belgeyi indirip deneyin.

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Denemelerimi, Kasa Hareketleri sayfası aktifken yaptığım için, hatayı fark etmemişim.

-- Çıkış formunda Private Sub btnkaydet_Click() kod blokunda yeşil işaretlediğim kısımları ekleyin.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

--Benzer eksiklik aynı şekilde FrmUyarı Formunun Initalize bölümünde de var.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

.

Genişletmek için tıklayın ...