Opret aftale i Outlook - Type mismatch på dato

Udtrykket Now() indeholder jo både dato, måned, år, time, minut og sekunder. Så du gentager jo datoen. Prøv f.eks med nedenstående (ikke afprøvet):

.Start = Format(Me![ReminderDato], "dd/mm/yyyy//hh/nn/ss")

Det ændrer ikke på det output debuggeren giver. Datoformatet vil tilsyneladende ikke ændres korrekt. Får stadig f.eks. 16-09-2007 13:00:00

Hej daniel, mugs er inde på det rigtige now indeholder jo hele baduljen, Nedestående giver dig datoen, og efterfølgende tidspunkt lige nu

.Start = Format(Me![Reminderdato], "dd/mm/yyyy") & " " & Time

Fantastisk Anders... Nu kører det.
Takker :)

Smid et svar

Eller hvad med blot:

.Start = Now()

Selv tak, og hermed et svar, hvordan sikre du at der er den nødvendige reff. til Outlook objeket i din vba editor, dette kan automatiseret når DB starter op. Sig til hvis du vil ha' et eks. :o)

Jeg har kun oprettet referencen til outlook, jeg har ikke sikret den på nogen måde. Hvordan kan man det?

Du har vel ikke også et hurtigt svar på hvorfor min Me!Id fejler. Det er noget med at den ikke pakker "" omkring mit Id ligesom Me!Fornavn f.eks. gør det.

.Subject = "Sag: " + Me![Id] + Me![Fornavn] + Me![Efternavn]

Til mugs-> Jeg kan ikke bruge Now() alene idet påmindelsen jo kan være til om 14 dage. Så skal jeg ud i noget datediff og bruge now() + dage, men det virker jo nu :)

Det sidste spørgsmål fandt jeg selv ud af. Skulle bare konvertere til string med Str(Me![Id])

Helt OK

ok :o)

Så længe du afvikler din DB på den samme maskine er det jo ikke noget problem med reff. Men skal du afvilke DB på andre maskiner feks. også af andre brugere på andre maskiner følger reff. ikke med, men skal sættes manuelt. Dette kan jo give fejl, men som sagt kan det gøres automatisk.

Man anvender noget kode i et modul, samt en autoexecmakro (som access altid kikker efter når DB åbner).

1. Opret et modul, og skriv nedenståendekode:

Function StartUP()
'Kode start'
On Error Resume Next
References.AddFromFile "Sti til reff. fil" 'du kan se henvisningen til filen i VBA editoren'
On Error GoTo 0
End Function
'Kode slut'

2. Opret en markro. og navngiv den Autoexec

3. I design på din makro vælger du handling "Afspil kode"

4. Nederst skiver du så navnet på funktionen i modulet på flg. måde:

=StartUP()

Nu tilføjes den reff. i din vba editor automatisk som svare til henvisningen/filnavnet.

og mange tak for points :o)

Hilsen Anders

Bare det virker :o), men du kunne også prøve nednestående:

.Subject = "Sag:" & " " & Me!ID & " " & Me!Fornavn & " " & Me!Efternavn

Men kan den makro ikke stadig fejle. Hos mig er stien til min outlook reference f.eks. c:\Program Files\Microsoft Office\Office12\MSOUTL.OLB
Men den kunne vel lige så vel være
c:\Programmer\Microsoft Office\Office12\MSOUTL.OLB
Og hvad hvis folk ikke har nyeste version, hvilket egentligt ikke har indflydelse på kørslen af min formular, så dur stien heller ikke...

Er den så værd at have med, dette tjek?

hmm, måske ikke, det kan du have ret i, men man kan også lave en kopi af den relevante fil, og lægge den i samme mappe som DB, og så reff. til denne sti i stedet, jeg anvender feks. MCCOMCTL.OCX på denne måde, og det virker fint, men helt rigtigt, det kan selvfølgelig give problemer hvis reff. til filen skifter alt efter officeversion

God ide... lægger en kopi af filen i mappen med databasen.
Tak for hjælpen

Selv tak, og forsat god arbejdslyst med projektet

Jeg har lidt problemer med opstart af makroen... den vil ikke starte. Hvilket navn skal jeg give makroen?

Jeg har tilføjet en makro, valgt afspil kode og i argumenter skrevet =StartUP()
Jeg har oprettet et modul med koden:

Function StartUP()
    On Error Resume Next
    References.AddFromFile CurrentProject.Path & "\MSOUTL.OLB" 'Henvisning til Outlook'
    References.AddFromFile CurrentProject.Path & "\MSCAL.OCX" 'Henvisning til Outlook'
    References.AddFromFile CurrentProject.Path & "\MSWORD.OLB" 'Henvisning til Word'
    On Error GoTo 0
End Function

Og navngivet modulet Autoexec, men har også prøvet med StartUP uden held... Kan du se fejlen?

det er makroen der skal hedde autoexec ikke modulet

Hej igen

Du skal ikke navngive modulet Autoexec, men selve makroen skal navngives Autoexec, det ligemenet hvad selve modulet hedder i denne sammnhæng :o)

Jeg får fejlen:
Macronavn: Autoexec
betingelse: Sand
handlingsnavn: afspilkode
argumenter:StartUP() 
Har også prøvet med =StartUP()

Fejlkode: 2950

Men jeg mener der er noget her du skal se på:

On Error Resume Next
References.AddFromFile CurrentProject.Path & "\MSOUTL.OLB" 'Henvisning til Outlook'
References.AddFromFile CurrentProject.Path & "\MSCAL.OCX" 'Henvisning til Outlook'
References.AddFromFile CurrentProject.Path & "\MSWORD.OLB" 'Henvisning til Word'
On Error GoTo 0

Først vil du have at db  ved fejl (On error) skal resume next hvilket jo betyder, at den blot skal fortsætte på næste kodelinie. sidst i koden skal den gå til 0. Det er selvmodsigende.

har ændret navnet på modulet til CheckReferences uden held

mugs-> det kan du have ret i... det lyder lidt selvmodsigende :)

Har du også oprette en makro med navnet Autoexec ?

Anders: Ja det har jeg, Det er i denne makro at jeg har valgt afspilkode med argumentet =StartUP()

hmm, mystisk, jeg har lige testet det af her. på nøjagtig samme, og det virker fint?

Fandt lige denne: http://support.microsoft.com/kb/931407
Åbenbart er min db ikke "trusted" :)

Aha, ja Access 2007 er blevet endnu mere sikker, sorry jeg burde have forspurgt på din version af Access før jeg begyndte på alle de smarte ting

Hvilket får mig til igen at påpege vigtigheden af, at fortælle os hvilken version der benyttes. Der er jo en grund til, at vi efterhånden har flere versioner af office-pakken, og der er forskel mellem dem. Jeg sidder med version 2000, og der er forskel til 2007 ;o)

>>mugs helt ening, jeg sidder med 2003, men har prøvet at arbejde på 2007 versionen, men syntes netop at det lidt vanskeligt med alle disse sikkerhedsting, så jeg er tilbage på 2003 :o)

Men så blev jeg jo så meget klogere... har fået det til at spille nu.

Jeg takker igen for jeres hjælp.

Selv tak, ja MS(dollar), laver mange "smarte ting" :o)

Det var så lidt :o)