ADVAR om fødselsdage

lytter med 8-]

240 P er alt jeg har tilbage (og en tåbelig database, som ikke spytter fødselsdage ud, uden en regulær søgning)

Du starter/åbner en form sammen med databasen (via Tools/StartUp, den kan evt lukkes efter checket er udført)
I formens On_Load kører du et check på hvorvidt der er fødselsdage i sigte via en query. Hvis der er, poppes der op/skrives der en mail.
Hvis du vil nærmere målet vil jeg gerne kigge på din db.

vil du KUN bruge databasen eller er det meningen det skal køre over en hjemmeside?

Jeg skal ikke have den på nettet.
Jeg har felterne \"navn\", \"adresse\", \"postnr\", \"by\", \"fødselsdag\" og \"tlfnr\", i en base \"Venner\". Fødselsdagen er i det førviste format 24-07-1963 (dd-mm-yyyy). Som privaten skriver, når basen startes, skal en forespørgsel køre og hvis der er (f.eks.) 14 dage til en fødselsdag vil jeg have besked. Det være sig enten med en popop´r eller/og via e-mail-afsendelse.

*øeh* 2 tabeller venner og postnr. (egentlig urelevant) relateret via postnr, med by som opslagsfelt til [postnr]![bynavn]
og en forespørgsel : findvenner, som indeholder samtlige data minus id-nøglefelter.
Eks. Hans er født d. 12-12-1969
POPPE !!! Hans har føs´dag !!!

Jeg har desværre ikke flere point en de 240, jeg ville gerne give mere.

Sub test()
    Dim db As Database
    Dim rs As Recordset
    Dim sSQL As String
    sSQL = \"Select * from Venner\"
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sSQL)
    rs.MoveFirst
    While Not rs.EOF
        If DateDiff(\"d\", Mid(Now, 1, 5), Mid(rs(\"fødselsdag\"), 1, 5)) < 15 Then
            MsgBox rs(\"navn\") + \" har snart fødselsdag\"
        End If
        rs.MoveNext
    Wend


End Sub

Jeg går ud fra at det er tabellen der hedder venner?!

nå for den da.. Privaten :> Jeg bøffede lige en base afsted via mail..*hmm* Jeg checker lige det sidste ud, som du har tilføjet.

jow \"venner\"

on_load må være ??
vedindlæsning
eller
vedåbning

hvordan er det nu ?? Når kodegeneratoren ikke kender \"database\" og \"recordset\" skal det ind via (med skeer for mit vedkommende *hehe*) referencer eller ??

OK !.. det var refs, som sku´ha´noget mere på.

Set rs = db.OpenRecordset(sSQL) giver runtime error 13, type mismatch

What ???

nu går jeg hjem og fyrer op for nettet..

Virker fint her!

db fremsendt...

Sådan ! Tak for det.