AccessTr.neT

ö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

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

(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

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.

(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

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