ACC2000: kredi kartı sona erme tarihini hesaplamak için nasıl

Makale çevirileri Makale çevirileri
Makale numarası: 210534 - Bu makalenin geçerli olduğu ürünleri görün.
Orta: temel makro, kodlama ve birlikte çalışabilirlik becerileri gerektirir.

Bu makale yalnızca Microsoft Access veritabanına (.mdb) için geçerlidir.

Hepsini aç | Hepsini kapa

Özet

Tarih/saat kredi kartı son kullanma tarihi (ay/yıl) yazarsanız, Microsoft Access 2000, formda alan varsayar kartın üzerinde sona erecek ayın ilk günü. Bu makalede, bir işlevin nasıl gösterir doğru olarak ayın son günü sona erme tarihini hesaplamak için.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla veya zımni garanti sağlar. Bu içerir, ancak, satılabilirlik veya belirli bir amaca uygunluk zımni garantileri sınırlı değildir. Bu makale, gösterilen programlama dilini ve oluşturmak ve yordamlar hata ayıklamak için kullanılan araçlar ile bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak işlevsellik sağlamak veya belirli gereksinimlerinizi karşılamak için bir yordam oluşturmak için bu örnekleri değiştirmeyecektir. Kredi kartı sona erme tarihini girilen ayın son günü yapmak için şu adımları izleyin:
  1. Microsoft Access'i başlatın ve yeni bir veritabanı açın.
  2. Yeni bir tablo oluşturun ve aşağıdaki alanları ekleyin:
    Alan adı: CardNumber
    Veri türü: metin

    Alan adı: zaman aşımı
    Veri türü: Tarih/saat

    Alan adı: ad
    Veri türü: metin
    Kartları olarak tabloyu kaydedin ve kapatın.

  3. Aşağıdaki işlevi ile yeni bir modül oluşturun:
    Option Explicit
    Function ExpirationDay (MyDate as Control)
    
       Dim NextMonth
       If IsNull(MyDate) Then Exit Function
       NextMonth = DateAdd("m", 1, MyDate)
       MyDate = NextMonth - DatePart("d", NextMonth)
    
    End Function
    					
  4. Kartlarını kullanarak tabloyu temel alan yeni bir form oluşturma Otomatik Form: sütunlu seçenek. Üzerinde Görünüm menüsünde,'ı tıklatın Tasarım görünümü.
  5. ' I tıklatın Süre sonu metin kutusu ve set kendi AfterUpdate özellik için aşağıdaki deyim:
    =ExpirationDay([Expiration])
  6. Üzerinde Görünüm menüsünde,'ı tıklatın Form görünümü. Türü 04/2000 içinde Süre sonu metin kutusu ve SEKME tuşuna basın.
Tarihi "30-Nis-00 ile" son günü dördüncü ayın 2000 yılının değiştiğine dikkat edin. ExpirationDay() işlevi aşağıdaki türevi bir sorguda hesaplanan alanları da kullanabilirsiniz:
Function ExpirationDay (MyDate)
    Dim NextMonth
    If IsNull(MyDate) Then Exit Function
    NextMonth = DateAdd("m", 1, MyDate)
    ExpirationDay = NextMonth - DatePart("d", NextMonth)
End Function
				

Özellikler

Makale numarası: 210534 - Last Review: 23 Aralık 2012 Pazar - Gözden geçirme: 5.0
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 2000 Standard Edition
Anahtar Kelimeler: 
kbhowto kbinfo kbprogramming kbmt KB210534 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir: 210534

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com