tutar fiatı aştınız diye mesaj verebilirmi ?

[yasemincik]

merhaba arkadaşlar
ekte sundugum örnek dosyada tutar hanesindeki deger 90 ı geçerse uyarı mesajı verdirmek için ne yapmalı geçmesse vermesin ilginize teşekkür ederim
sayın modalı ben basit olsun diye dosyamın bir örnegini yapıp göndermiştim ama alan adları lle bagdaştıramadım ve yapamadım dosyanın asıl örnegini gönderiyorum gine bu forum içinden aldıgım programı kendime göre düzenlemiştim buradaki sorunlar şunlar
1-izin hakkı işçi ilk işe giriş tarihini baz alıp belirliyor aralıklarla aldıgı izin toplamı 30 günü gecerse uyarı mesajı vermesini istiyorum (2 yıllık işçinin izin hakkı 14 10 yıllık işçini izin hakkı 24 20 yıllık işçinin izin hakkı 30)
2- sendika izin hakkı 6 gün tüm işçiler izin süresini iki tarih arasından aldıgı için en az 1 yazıyor yarım gün izin alma hakkı var sabahtan öglene kadar izin alırsa aynı tarihi yazdıgında tabiki 0 yazıyor bunu nasıl yarım yazdıra biliriz (ben altına not düşerek halletim tabiki saglıklı degil ) bu problemleri aşabilirmiyiz ilginize teşekkür eder saygılar sunarım ayrıca akd arkadaşa da teşekkürler

 

[modalı]

Sayın yasemincik,

Bir kontrol edin olmuş mu?

İyi çalışmalar

 

[akd]

Sayın yasemincik,
bir şeyler yaptım inşallah işinize yarar,
Dosyayı ekleyemedim kodu gönderiyorum
FİAT metin kutusuna güncellendikten sonraya yazdım kodu,
İyi çalışmalar...

Private Sub FİAT_AfterUpdate()
On Error Resume Next
If Me.TUTAR > 100 Then
Me.Metin15 = "FİYATI AŞTINIZ"
Me.Metin15.BackColor = 541111
Else
Me.Metin15 = "FİYATI AŞMADINIZ"
Me.Metin15.BackColor = 321111
End If
End Sub

 

[akd]

Afedersiniz sayın modalı sizin mesaj yazdığınızı farketmedim.
İyi akşamlar

 

[yasemincik]

30 günü gecerse uyarı mesajı versin

asıl dosyayı gönderdim açıklamalı olarak ilk soruma ilginize teşekkür ederim sayın modalı

 

[modalı]

Sayın yasemincik,

İstediğiniz değişiklikleri yapmaya çalıştım.

İyi çalışmalar:hey:

 

[yasemincik]

teşekkür ederim

teşekkür ederim ellerinize saglık tam istediğim gibi olmuş forumdaki arkadaşlarada kullanır yardımlarınıza elinize emeginize saglık çok teşekkür ederim sagolun

 

[yasemincik]

teşekkürler

elinize saglık tam istediğim gibi olmuş eklediklerini aşagıya cıkardım onlar bana örnek olur formdaki arkadaşlarda kullanırlar programı ve örnek alırlar ilginize teşekkür ederim
izin süresi=IIf([Onay10]=-1;0,5;[sDönüş Tarihi]-[sBaşlama Tarihi])
izin süresi alt toplam=DLookUp(" [Toplasİzin Süresi]";"sqlToplamSizin";"[Adı soyadı] ='" & [Adı soyadı] & "'")

mesaj verdiren kod bunu yapamamıştım çok sagolun
Private Sub Satır_Alt_Toplamı_AfterUpdate()
If Me![Satır Alt Toplamı] = Me.Metin183 Then
Me.Etiket250.Caption = "Yıllık İzin Süresi Dolmuştur!"
Else
If Me![Satır Alt Toplamı] > Me.Metin183 Then
Me.Etiket250.Caption = "Yıllk İzin Süresini Aşmıştır!"
Else
Me.Etiket250.Caption = ""
End If
End If
End Sub

 

[modalı]

Sayın yasemincik,

İki tane de sorgu ekledim. Birisi tablo yerine alt formla ilişkili, diğeri ise toplam izin süresini hesaplıyor.

İyi çalışmalar

 

[hızır]

Acaba ileti verirken aralıklarla yanıp sönen bir ileti mümkün mü? Yukardaki örnekteki "FİYATI AŞTINIZ." iletisi yanıp sönsün. Ne dersiniz. Bir paket programda görmüştüm. :hey:

 

[modalı]

Yazinin yanip sönebilmesi için kodları şu şekilde değiştirin:

Private Sub Form_Timer()
Me.Etiket250.Visible = Not Me.Etiket250.Visible
End Sub

If Me![Satır Alt Toplamı] = Me.Metin183 Then
        Me.Etiket250.Caption = "İzin Süresi Dolmuştur!"
        Me.TimerInterval = 500
Else
                If Me![Satır Alt Toplamı] > Me.Metin183 Then
                    Me.Etiket250.Caption = "İzin Süresini Aşmıştır!"
                    Me.TimerInterval = 500
                Else
                    Me.Etiket250.Caption = ""
                    Me.TimerInterval = 0
                End If
    End If

İyi çalışmalar

 

[hızır]

Sayın Modalı, elinize sağlık. Uyguladım oldu. Sorulmaya değerdi gerçekten. :hey:

 

[assenucler]

Bir Rica

Sn. Yasemincik ve Modalı

Sn. modalının dosyasını indirdikten sonra, hızır arkadaşın "Yanan sönen ileti" önerisi üzerine üstadın yazdığı kodları nereye kaydedeceğimi bir türlü tespit edemedim.

"işçi izin takibi" dosyasının en son halini rica etsem, siteye yüklemeniz mümkün mü? İlginiz için teşekkürler.

 

[simendifer]

işçi izin son hali

işçi izin son hali eklenmiştir

 

[assenucler]

Teşekkür

Sn. simendifer

Sağolasın, dostum.