[ smal @ 19.02.2010. 10:31 ] @
Znam da je problem malo nenormalan, ali molim za pomoć.

Uz poruku je nestruktuirana, ili kako bih je već nazvao, tabela u kojoj se nalazi samo tekst.

Sedmi red uvek glasi kao fraza "Razduzenje za dd.mm.yy",
Meni bi trebalo da datum iz tog stringa nekako uporedim sa današnjim datumom, odnosno napravim potrebni IF izraz za dalje događaje u aplikaciji...

Da pojasnim, tabela iz primera se kreira u nekom starom Clipper programu. Moj je zadatak da njen sadržaj kao izveštaj pošaljem na određeni e-mail, što nije bilo teško, linkovanjem DBF tabele i kreiranjem odgovarajućeg Reporta u Accessu. Ali, sad mi nedostaje provera pre slanja, da li je izveštaj kreiran za pravi datum, jer se u praksi dešava da korisnik zaboravi da odradi sve potrebne korake, pa pošalje mail sa jučerašnjim datumom i sl...

[ 3way @ 19.02.2010. 10:37 ] @
Ako ti je taj string uvek isti, onda izvadi datum iz njega sa MID() i sa DiffDate ga uporedi sa danasnjim...
[ smal @ 19.02.2010. 10:49 ] @
String jeste uvek isti, što se tiče broja karaktera, ali se datum nalazi u sedmom redu tabele koja nema PK i tako to...
Vidi primer, pošto je teško rečima objasniti situaciju :)


[Ovu poruku je menjao smal dana 19.02.2010. u 12:07 GMT+1]
[ 3way @ 19.02.2010. 11:15 ] @
Onda uz pomoc recordseta...ovako...

Code:

    Dim qdf As QueryDef
    Dim rst As Recordset
    Dim dbs As Database
    Dim asd As String
    
    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef("tmpQ", "SELECT * FROM TXT_01")
    Set qdf = dbs.QueryDefs("tmpQ")
    Set rst = qdf.OpenRecordset(dbOpenDynaset)
    
    rst.MoveFirst
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    asd = rst!TEKST
    Debug.Print asd
    
    dbs.QueryDefs.Delete "tmpQ"


I dobijas taj string...

Samo, umesto onih 50 MoveNext, trebalo bi da stavis nekakvu petlju koja ce ga pomeriti neki broj puta...
[ Zoran.Eremija @ 19.02.2010. 13:33 ] @
Evo probajte i ovo resenje...
[ smal @ 19.02.2010. 14:00 ] @
Nisam stigao da probam rešenje koje je dao 3way, jer mi je trenutno pri ruci samo mde verzija aplikacije, ali ono što je poslao Zoran.Eremija radi, i baš mi se sviđa :) Jednostavno je i efikasno.
Samo sam promenio format datuma zbog različitih regionalnih settingsa, i sve fercera.

Hvala Vam puno obojici!