Article View: pl.comp.bazy-danych.msaccess
Article #192Re: y2k w Access2.0 - proba rozwiazania
From: Marek Kalmarczyk
Date: Tue, 17 Nov 1998 01:08
Date: Tue, 17 Nov 1998 01:08
15 lines
1248 bytes
1248 bytes
Witam wszystkich
W swoich aplikacjach problem y2k rozwiazalem w ponizszy sposob:
Sub a_AfterUpdate ()
If Year(Me!a) = 1900 Then
Me!a = DateAdd("yyyy", 100, Me!a)
End If
End Sub
Oczywiscie rozwiazanie dotyczy pola daty w formacie krotkim,
przy roku wprowadzanym czterocyfrowo problem nieistnieje.
PoZdro
Marek
Technical Details
Message-ID:
<72qjdk$ruu$1@korweta.task.gda.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!news.icm.edu.pl!orion.cst.tpsa.pl!news.task.gda.pl!not-for-mailReferences:
<3650265F.144FD210@pertus.com.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!news.icm.edu.pl!orion.cst.tpsa.pl!news.task.gda.pl!not-for-mail From: "Marek Kalmarczyk" <kalmarek@iname.com> Newsgroups: pl.comp.bazy-danych.msaccess,pl.comp.bazy-danych Subject: Re: y2k w Access2.0 - proba rozwiazania Date: Tue, 17 Nov 1998 02:08:47 +0100 Organization: CI TASK http://news.task.gda.pl/ Lines: 18 Message-ID: <72qjdk$ruu$1@korweta.task.gda.pl> References: <3650265F.144FD210@pertus.com.pl> NNTP-Posting-Host: ppp183a.gdansk.tpnet.pl X-Trace: korweta.task.gda.pl 911266036 28638 195.205.247.183 (17 Nov 1998 01:27:16 GMT) X-Complaints-To: abuse@task.gda.pl NNTP-Posting-Date: 17 Nov 1998 01:27:16 GMT X-Newsreader: Microsoft Outlook Express 4.72.2106.4 X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit