E ovo nije moguce...

E, pa ovo je nemoguce!
Ili sam nedaj boze skrenuo s pameti, ili imam dva zarazena racunara, trece nema:

Otvorim blank bazu (Office 2003), napravim jednu tabelu:
Datum (tip ShortDate)
Naziv (tekst)
Iznos (Curency, Euro)

Unesem tri zapisa:

08-01-2004, kamata, 100Eu
10-01-2004, kamata, 50Eu
17-01-2004, kamata, 120Eu

Pomocu carobnjaka napravim dve iste forme na bazi ove jedine tabele u bazi: Form i Form1.
Otvorim Form1 i opet pomocu carobnjaka dodam cmdDugme "openForm", sa parametrima "datum=datum".

Kliknem na to dugme, form1 se otvori, sve prazno
pomerim na drugi zapis (10-01-2004), kliknem, opet sve prazno
pomerim na treci zapis (17-01-2004), kliknem, sve u redu!!

Isprobam sledece datume:
01-01-2004 ne radi
02-01-2004 ne radi
..........
.......... sve do
17-01-2004 RADI!
28-01-2004 ne radi!

17-01-2005 ne radi!

opet se vratim na 17-01-2004 RADI!

akam se od jutros sa ovim problemom i mojom bazom toliko da sam na kraju napravio novu, blank bazu, kako je gore opisano, da bu se uverio da nisam lud.
I OPET NE RADI.
Otvorio sam bazu i na drugom kompjuteru, opet ne radi!

Ima li neko predstavu sta bi moglo da bude?

Potpis

Boban (otac šestoro dece).

U međuvremenu sam oktrio uzrok, ali ne znam rešenje.
Na kompjuteru imam XP servicepack2. RegionalSetting mi stoji na SerbianCyrilic, datum sam podesio na dd-mm-yyyy. Kada umesto SerbianCyrilic uzmem English-US, bez obzira koji Date separator uzmem ("\" ili "-"), svi datumi funkcionisu kako treba, tj. forma "Form" poziva formu "Form1" i prikazuje datum na kom sam se nalazio u "Form" kada sam pritisnuo dugme za otvaranje Form1.
Probao sam sada da uzmem neki drugi RegionalSettings, na primer "German-Austrija", za ne poverovati da opet ne radi! Samo datum 17-1-2004 radi uvek, bez obzira sta je podeseno u RegionalSetting-u. Da li jos neko hoce da proba, i da li neko zna uzrok zbog cega je to tako? Zašto 17-01-2004 datum radi, a drugi ne?

Potpis

Boban (otac šestoro dece).

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim Dat
Dim SQL As String

Dat = Me.Datum
Dat = "#" & Month(Dat) & "/" & Day(Dat) & "/" & Year(Dat) & "#" 'ovo ce da radi na bilo kom racunaru
SQL = "SELECT Table1.Datum, * FROM Table1 " _
& "WHERE Datum=" & Dat
'M0že i na drugi način a to je da query1 postaviš na recordsource table2
DoCmd.OpenForm "Table2"
Forms!Table2.RecordSource = SQL

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click

End Sub

Query:::::
SELECT *
FROM Table1
WHERE (((Table1.Datum)=[Forms]![Table1]![Datum]));

Potpis

zxz