Kalender objekt 10.0

..Nu er mit problem, hvorledes jeg aktivere dette kalender ojekt så jeg ved et enkelt klik for indsat dato fra kalendren i datofeltet..

Forstår ikke, kan du forklare lidt nærmere?

Jep.. Jeg har som beskrevet datoid, dato, dag og beskrivelse. For hver enkelt dato er der selvfølgelig en dag, men også en beskrivelse. Nu vil jeg gerne lave en hændelse som gør, at ved at trykke på feks. den. 25-02-03 i kalenderen springer den direkte til denne dato med dertilhørende dag og beskrivelse.. Der findes således kun en post med hver enkelt dato..

Pt er kalendren sådan at hvis jeg tryker på en dag i kalenderen og derfeter stiller mig i feltet dato opdatere den..

Du har tidligere fået denne kode:

Me.start = Me.Calendar4

Som tildeler et datofelt (start) kalenderens dato

Tilføj denne linie:

DoCmd.GoToControl "start"

Det får markøren til at gå til feltet start når du har trykket på kalenderen. Udskift "start" med navnet på det korrekte kontrolelement (felt).

Hmm jeg tror ikke jeg har fået den før, men jeg prøver lige;-)

Det er muligt, at jeg husker forkert. Jeg lavede den i hvert fald, men måske sendte jeg den ikke, da jeg følte du gik en anden vej. Men jeg har den stadigvæk og sender den, hvis du lægger din e-mail.

Bisgaard_munkholm@mail.com

Hvis du kun skal bruge dit kalenderobjekt, når du opretter en ny post, kan du angivegive kalenderens egenskab Synlig til Nej. Sæt derefter flg. kode i formularens VedAktuel (OnCurrent) event:

If Me.NewRecord Then
Me.Calendar.Visible = True
Else
Me.Calendar.Visible = False
End If

(Koden er ikke afprøvet, men burde fungere).

Sendt

Mugs koderne virker fint!! Men den springer ikke i posterne nå jeg feks. har skrevet i felt den. 03-04-2002.Og står i felt 14-04-2003 vil den ikke gå til den aktuelle post ved klik på kalendren - Den indsætter i stedet en ny dato?? Er der noget jeg kan gøre?? Jeg har brugt følgende Private Sub Calendar3_Click()
Me.Dato = Me.Calendar3
  DoCmd.GoToControl "Dato"

End Sub

OK så forstår jeg, du mangler en form for søgning. Når du skriver i feltet opretter du jo en ny post i tabellen. Vender lige tilbage.

Nemlig.. JEg skal jo faktisk ind og søge fetr den pågældende dato..Tak for hjælpen indtil videre..

Koden til søgning kom til at se sådan ud:

a = InputBox(Prompt:="Søg efter post, indtast dato f.eks 2003-04-07:", Title:="Søgefunktion:", Default:=Date)
Forms!form3!start.SetFocus
DoCmd.FindRecord a

Sidste problem koden virker! Men giver følgende fejl: DEn kan ikke finde form 3 - Min formular hedder bare "3".. Du skal vist til at have flere point for dette svar;-)

Sorry mig der er dum.. Virker fint 1000 tak for hjælpen..

Læs det bagfra

Forms!form3!start.SetFocus

SetFocus er kommandoen
start er navnet på kontrolelementet
form3 er navnte på objektet i samlingen
Forms er den objektsamling du arbejder i, altså formularer

Fejlen æigger sandsynligvis navnet på formularen som jo ikke er form3 med blot 3. Prøv denne:

a = InputBox(Prompt:="Søg efter post, indtast dato f.eks 2003-04-07:", Title:="Søgefunktion:", Default:=Date)
Forms!3!start.SetFocus
DoCmd.FindRecord a

o:)

DEt virker fint, men lukker folk ned på krydset( i meddelsesboksen) når meldingen kommer debuger den!!

Det virker fint
Men fejler så
lukker folk ned
Hvilken fejl får du?

Hvad mener du? Kan du ect. sende db til mugs@mail.dk

Jep sender den lige..