Eksikler Var Yardım Edermisiniz Acaba

Eksikler Var Yardım Edermisiniz Acaba - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Eksikler Var Yardım Edermisiniz Acaba (/konu-eksikler-var-yardim-edermisiniz-acaba.html)

Sayfalar: 1 2

Eksikler Var Yardım Edermisiniz Acaba - kadirnet - 19/08/2025

örnekte düzenlemey calıstım ama bazı eksiklikler var örneğin elektirik doğalgaz-su -internet bunun gibi ekler yapacagım ve ödendi / ödenmedi diye tik koyup ödeme gününü hatırlatıcı bi lgi koymak lazım nasıl yaparım acaba

RE: Eksikler Var Yardım Edermisiniz Acaba - onur_can - 20/08/2025

Boş veri tabanına mı işlem yapılacak? Herhangi bir çalışma yapmamışsınız!

RE: Eksikler Var Yardım Edermisiniz Acaba - kadirnet - 20/08/2025

(20/08/2025, 14:00)onur_can yazdı: Boş veri tabanına mı işlem yapılacak? Herhangi bir çalışma yapmamışsınız!

pardon ustad 2 dosya vardı boşu yollamısım güncelledim

RE: Eksikler Var Yardım Edermisiniz Acaba - onur_can - 21/08/2025

Merhaba,
Veritabanınızı inceledim. Şu şekilde bir yol izlerseniz çözüm elde edersiniz.
Öncelikle Tbl_Sayac tablonuza odemedurumu adında Evet/Hayır alanı ekleyin, kaydedip kapatın
Daha sonra Frm_Sayac adlı formunuzu tasarım modunda açıp tabloya eklemiş olduğunuz odemedurumu alanını sonodemetarihi alanının altına yerleştirin. Daha sonra odemedurumu alanının altına bir label yerleştirin adını lblUyar olarak ayarlayın ve bunun Görünür özelliğini Hayır olarak ayarlayın. Şimdi geçelim kodlara;
Öncelikle şunu söyleyeyim, bunuda bir alışkanlık haline getirin. Vba penceresine geçtikten sonra en başta Option Compare Database deyiminin altına
Option Explicit deyimini yerleştirin. Bu değişken tanımlarken size yardımcı olur.
Formunuzun Current Olayına;

Dim fark As Integer

If Me.odemedurumu.Value = False Then

    fark = DateDiff("d", Date, Me.sonodemetarihi)

If fark = 0 Then

        Me.lblUyar.Visible = True

        Me.lblUyar.Caption = "Son Ödeme Tarihi Bugün!"



ElseIf fark = 1 Then

    Me.lblUyar.Visible = True

    Me.lblUyar.Caption = "Son Ödeme Tarihi Yarın!"



ElseIf fark = -1 Then

        Me.lblUyar.Visible = True

        Me.lblUyar.Caption = "Son Ödeme Tarihi Geçmiş!"

Else

Me.lblUyar.Visible = False

End If

Else

Me.lblUyar.Visible = False

End If

odemedurumu alanının AfterUpdate olayınada;

If Me.odemedurumu Then

Me.lblOdemeDurumu.Caption = "Ödendi"

Me.lblUyar.Visible = False

Else

Me.lblOdemeDurumu.Caption = "Ödenmedi"

Me.lblUyar.Visible = True

End If

kodlarını yazın.

Re: Eksikler Var Yardım Edermisiniz Acaba - kadirnet - 21/08/2025

(21/08/2025, 11:21)onur_can yazdı: Merhaba,
Veritabanınızı inceledim. Şu şekilde bir yol izlerseniz çözüm elde edersiniz.
Öncelikle Tbl_Sayac tablonuza odemedurumu adında Evet/Hayır alanı ekleyin, kaydedip kapatın
Daha sonra Frm_Sayac adlı formunuzu tasarım modunda açıp tabloya eklemiş olduğunuz odemedurumu alanını sonodemetarihi alanının altına yerleştirin. Daha sonra odemedurumu alanının altına bir label yerleştirin adını lblUyar olarak ayarlayın ve bunun Görünür özelliğini Hayır olarak ayarlayın. Şimdi geçelim kodlara;
Öncelikle şunu söyleyeyim, bunuda bir alışkanlık haline getirin. Vba penceresine geçtikten sonra en başta Option Compare Database deyiminin altına
Option Explicit deyimini yerleştirin. Bu değişken tanımlarken size yardımcı olur.
Formunuzun Current Olayına;
Dim fark As Integer

If Me.odemedurumu.Value = False Then

    fark = DateDiff("d", Date, Me.sonodemetarihi)

If fark = 0 Then

        Me.lblUyar.Visible = True

        Me.lblUyar.Caption = "Son Ödeme Tarihi Bugün!"



ElseIf fark = 1 Then

    Me.lblUyar.Visible = True

    Me.lblUyar.Caption = "Son Ödeme Tarihi Yarın!"



ElseIf fark = -1 Then

        Me.lblUyar.Visible = True

        Me.lblUyar.Caption = "Son Ödeme Tarihi Geçmiş!"

Else

Me.lblUyar.Visible = False

End If

Else

Me.lblUyar.Visible = False

End If
odemedurumu alanının AfterUpdate olayınada;
If Me.odemedurumu Then

Me.lblOdemeDurumu.Caption = "Ödendi"

Me.lblUyar.Visible = False

Else

Me.lblOdemeDurumu.Caption = "Ödenmedi"

Me.lblUyar.Visible = True

End If
kodlarını yazın.

Dediklerinizi yaptım incelermisiniz acaba
Sagolun ustad bu sadece su için bunu elektrik int vs nasıl ekleye bilirim

RE: Eksikler Var Yardım Edermisiniz Acaba - onur_can - 21/08/2025

birşey yapmamışsınız vt boş!...