24. februar 2005 - 16:45Der er
4 kommentarer og 1 løsning
Automatisk mail ved ændring af felt
Jeg har tidligere haft indlæg om dette emne og troede det var overstået, men nu har jeg problemer igen. Jeg har i feltet "jubilar til borgmester" efteropdatering fået oplyst følgende kode:
On Error Resume next DoCmd.SendObject acSendNoObject, , , "to brm@hvidovre.dk", , , "Ændringer til jubilæumsdatabasen", Me!Initialer & " har ændret i feltet jubilar til borgmester til: " & vbnewline & Me![Jubilar til borgmester], False If err = 2501 then msgbox "Du valgte at annullere mail'en!" & vbnewline & "Ændringerne er gemt i log-tabellen.",vbexclamation, "Mail annulleret!" docmd.Setwarnings false docmd.RunSQL "Insert Into [din log-tabel] ( Initialer, [jubilar til borgmester], Dato ) Select '" & Me!Initialer & "', '" & Me![jubilar til borgmester] & "', Now()" docmd.Setwarnings true Endif
Jeg har 2 problemer: 1) Msgbox fremkommer ikke hvis man annullerer mail anmodningen 2) Mail anmodningen skal kun fremkomme hvis der er mindre end 30 dage til jubilæumsdatoen fra dags dato, så følgende kode skal ind i: If Me!Jubilæumsdato < Date + 30 Then
Nu er jeg kommet lidt længere: On Error Resume Next If Me!Jubilæumsdato < Date + 30 Then DoCmd.SendObject acSendNoObject, , , "to brm@hvidovre.dk", , , "Ændringer til jubilæumsdatabasen", Me!Initialer & " har ændret i feltet jubilar til borgmester til: " & vbNewLine & Me![Jubilar til borgmester], False If Error = 2293 Then MsgBox "Du valgte at annullere mail'en!" & vbNewLine & "Mailen må kun annulleres hvis det er en fejlindtastning.", vbExclamation, "Mail annulleret!" End If DoCmd.SetWarnings False DoCmd.RunSQL "Insert Into [log] ( Initialer, [cpr nummer], fornavn, efternavn, jubilæumsdato, [jubilar til borgmester], Dato ) Select '" & Me!Initialer & "', '" & Me![Cpr nummer] & "', '" & Me!Fornavn & "', '" & Me!Efternavn & "', '" & Me![Jubilar til borgmester] & "', Now()" DoCmd.SetWarnings True Else DoCmd.SetWarnings False DoCmd.RunSQL "Insert Into [log] ( Initialer, [jubilar til borgmester], Dato ) Select '" & Me!Initialer & "', '" & Me![Jubilar til borgmester] & "', Now()" DoCmd.SetWarnings True End If
Men den kommer og siger teksten i msgbox uanset om man klikker ja eller nej til anmodningen
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
