Ö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.
Orta: temel makro, kodlama ve birlikte çalışabilirlik becerileri gerektirir.
Bu makale yalnızca Microsoft Access veritabanına (.mdb) için geçerlidir.
Özet
Tarih/saat kredi kartı son kullanma tarihi (ay/yıl) yazarsanız,Microsoft Access 2000, formda alan varsayar kartın üzerinde sona erecekayın ilk günü. Bu makalede, bir işlevin nasıl gösterirdoğ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:
Microsoft Access'i başlatın ve yeni bir veritabanı açın.
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.
Aşağıdaki işlevi ile yeni bir modül oluşturun:
Option ExplicitFunction ExpirationDay (MyDate as Control) Dim NextMonth If IsNull(MyDate) Then Exit Function NextMonth = DateAdd("m", 1, MyDate) MyDate = NextMonth - DatePart("d", NextMonth)End Function
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ü.
' I tıklatın Süre sonu metin kutusu ve set kendi AfterUpdate özellik için aşağıdaki deyim:
=ExpirationDay([Expiration])
Ü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
Tarih
Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır