Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kalender auf Heute
zurück: Excel-Tabelle ind Formular-Textfeld kopieren weiter: Listenfeld mit Bezug aufs "eigene" Formular Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
shadowbat
Access-Newbie/schon älter


Verfasst am:
01. Okt 2010, 22:57
Rufname: Holger
Wohnort: Göttingen

Kalender auf Heute - Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo.
Ich habe in einem Formular ein Textfeld, das bei Anklicken den Kalender von Access 2003 öffnet.
Das habe ich so gelößt:
Code:
Private Sub AnreiseDatum_Click()
'öffnet das Formular "Kalender" bei Click
    Dim strFeld As String

    strFeld = ActiveControl.Name
    DoCmd.OpenForm "Kalender", OpenArgs:=strFeld
End Sub
Nun wird das Datum ausgewählt und mit einem OK-Button übernommen.
Das habe ich so gelößt:
Code:
Option Compare Database
Option Explicit
'Diese Variable wird direkt am Anfang des Moduls deklariert
'so das der Inhalt der Variablen in jeder Prozedur in diesem Klassen-
'modul ausgelesen kann.
Dim strFeld As String

Private Sub OK_Click()
'Beim schliessen des Kalenderformulars wird das aus-
'gewählte Datum in das Feld geschrieben.
    Forms("HotelRechnung").Controls(strFeld) = Me!Calendar0.Value
    DoCmd.Close
End Sub

Private Sub Form_Open(Cancel As Integer)
'Hier wird der Feldname aus dem 1. Formular in
'die Variable geschrieben
    strFeld = Me.OpenArgs
End Sub
Funzt alles Wunderbar, nur will das Sch..Ding nicht beim Öffnen auf das Aktuelle Datum gehen, bez. beim Öffnen das Aktuelle Datum Anzeigen, es hängt immer bei dem Datum, als ich es zum ersten mal Probiert habe.
Ich weiß, das ich das mit
Code:
    Me!Kalender = Date
    Me!Kalender.Today
Bezieht sich auf: eigenartiges Phänomen beim Kalender-Tool
machen könnte, nur weiß ich nicht, wo ich das in meinen Code einfügen muß, sollte, kann. Kann mir jemand einen Tipp geben, wo ich das einbauen muß oder wie ich das gelößt bekomme?

Gruß aus Göttingen, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
jens05
Moderator


Verfasst am:
02. Okt 2010, 08:21
Rufname:
Wohnort: ~~~~~


AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,
in welchem Ereignis hast du den Code hinterlegt?

Kalender Tagesdatum erzeugen

_________________
mfg jens05 Wink
shadowbat
Access-Newbie/schon älter


Verfasst am:
02. Okt 2010, 10:37
Rufname: Holger
Wohnort: Göttingen

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo Jens
In dem Textfeld des Formulars mit "bei Klicken". Dann einfach weiter mit VB-Code

Gruß aus Göttingen, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
jens05
Moderator


Verfasst am:
02. Okt 2010, 10:42
Rufname:
Wohnort: ~~~~~

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,
schau dir mal dieses Beispiel an AW: PopUp-Kalender der ausgewähltes Datum o. Zeitraum liefer und vergleiche, was bei dir anders ist.

_________________
mfg jens05 Wink
shadowbat
Access-Newbie/schon älter


Verfasst am:
02. Okt 2010, 16:27
Rufname: Holger
Wohnort: Göttingen


Re: AW: Kalender auf Heute - Re: AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo Jens.
Ich habe mir das Bsp angeschaut und versucht, deinen ansatz zu übertragen, leider ohne Erfolg. Ich habe mir auch andere Lösungsansätze angeschaut, und zumindest verstanden, was da passiert, leider funzt es nicht bei meinem Projekt. Kann das an diesem Bug liegen, von dem ganz oben die rede ist?
Ich habe eine Form, in dieser Form ein Textfeld, das mittels VB( erster Code) bei Klick eine 2 Form öffnet, die den Kalender (MSCAL.Calendar.7) enthält und eine Variable mitschleppt,(zweiter Code) wo das Datum, das ausgewählt werden muß, hingeschrieben werden soll. Ich habe versucht, es im ersten Code unterzubingen, dann im zweiten Code, bei
Code:
Private Sub Form_Open(Cancel As Integer)
aber das verflixte Ding beharrt weiter dabei, beim Datum der ersten Benutzung zu bleiben.
Nun habe ich Überlegt, es irgendwie (und da brauche ich Hilfe, wenn es anders nicht geht) an den
Code:
    DoCmd.OpenForm "Kalender", OpenArgs:=strFeld
Befehl anzuhängen, da die ja schon eine Sprungmarke "strFeld" besitzt.
Hast du eine Idee, wie ich das da einarbeiten kann?

Gruß aus Göttingen, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
jens05
Moderator


Verfasst am:
02. Okt 2010, 16:45
Rufname:
Wohnort: ~~~~~

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,
kannst du nicht mal dein Bsp online stellen?
Beim OpenArgs kannst du auch 2 Wert mitgeben, im Zielformular kannst du den Wert dann mit z.B. mit Split() trennen.
Beispielhafter Code AW: Formular aus Formular öffnen und auf Werte des 1. zugrei

_________________
mfg jens05 Wink
derArb
getting better


Verfasst am:
02. Okt 2010, 16:46
Rufname: derArb
Wohnort: Berlin

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,

dann meld Dich im Upload an und gib uns mal das Teil ins Forum als Muster DB

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
shadowbat
Access-Newbie/schon älter


Verfasst am:
02. Okt 2010, 17:06
Rufname: Holger
Wohnort: Göttingen

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo Jens, Hallo DerArb.
Ich werde mal mein ganzes Projekt hochladen, da ich nicht weiß, ob ich vielleicht woanders Mist gebaut habe. Es handelt sich um die Anreise und Abreise Daten im Form Hotelrechnung.
Ich habe grade noch was anderes Lustiges entdeckt:

Ich habe den Code oben so geändert:
Code:
Private Sub Form_Open(Cancel As Integer)
'Hier wird der Feldname aus dem 1. Formular in
'die Variable geschrieben
    heute = Date
    'Me!Calendar0.Value = heute
    Me!Calendar0 = Date
    'Me!Calendar0.Value = Date
    Me!Calendar0.Today
    strFeld = Me.OpenArgs
End Sub
Ich bin mal mit F8 durchgegangen und mußte feststellen,
das sowohl Me!Calendar0 als auch Me!Calendar0.Value sich nach durchlauf bis End Sub so verhalten,
das Date zwar das heutige Datum ist, aber die beiden Me!`s weiter das alte Datum haben
Na gut, ich lade mal das P hoch.
Gruß aus Göttingen, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.



Projekt.zip
 Beschreibung:

Download
 Dateiname:  Projekt.zip
 Dateigröße:  1.29 MB
 Heruntergeladen:  31 mal

jens05
Moderator


Verfasst am:
02. Okt 2010, 17:41
Rufname:
Wohnort: ~~~~~

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,
nutze wie bereits im gelinkten Beitrag erwähnt, das Ereignis "Beim Laden"
Code:
Private Sub Form_Load()
    Me!Calendar0.Value = Date
End Sub

_________________
mfg jens05 Wink
shadowbat
Access-Newbie/schon älter


Verfasst am:
02. Okt 2010, 22:03
Rufname: Holger
Wohnort: Göttingen

Re: AW: Kalender auf Heute - Re: AW: Kalender auf Heute

Nach oben
       Version: Office 2003

jens05 - 02. Okt 2010, 17:41 hat folgendes geschrieben:
Hallo,
nutze wie bereits im gelinkten Beitrag erwähnt, das Ereignis "Beim Laden"
Code:
Private Sub Form_Load()
    Me!Calendar0.Value = Date
End Sub


Hallo Jens.
Danke für deine Nachricht und deine Ausdauer....
Heul. Hab es genau so schon eingetragen, beim Form, was den Kalender enthält, müßte in meinem Projekt auch genau so drinnstehen (Hoffe ich). Geht nicht.
Ich habe mal versucht, es über umweg zu machen (date=heute, und dann in verschiedenen arten Me!Calendar0, mal mit value, mal ohne, besonders witzig fand ich das, was ich in meiner letzten nachricht geschrieben habe:
Me!Calendar0=Date
20.04.2010 = 02.10.2010

Date hatte den wert Datum von heute, Calendar0 den alten. Ich hab en bischen Ahnung von VB aber das verstehe ich nicht.

Gruß aus Göttingen und gute Nacht, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
derArb
getting better


Verfasst am:
03. Okt 2010, 13:07
Rufname: derArb
Wohnort: Berlin

AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo,

Du solltest mal in jedem Formularkopf einsetzen:
Code:
Option explicit

Dann Debuggen und Variablen nachdimensionieren.
Dann brauchst Du in den Verweisen:
Zitat:
Microsoft Office xx.0 Object Library

Bei mir war ein Verweis nicht vorhanden. Den hab ich rausgenommen.
In Formular Kalender steht nun Jens05 Code.

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.



UDL_Neu1.zip
 Beschreibung:
mdb

Download
 Dateiname:  UDL_Neu1.zip
 Dateigröße:  729.39 KB
 Heruntergeladen:  29 mal

shadowbat
Access-Newbie/schon älter


Verfasst am:
03. Okt 2010, 14:05
Rufname: Holger
Wohnort: Göttingen


AW: Kalender auf Heute - AW: Kalender auf Heute

Nach oben
       Version: Office 2003

Hallo Jens, Hallo DerArb.

Ich habe wohl völlig auf dem Schlauch gestanden und Jens immer wieder geschrieben, das ich es ja so gemacht habe, wie er es vorgeschlagen hat. Danke Arb, ich habe beim Durchsehen des Codes den Schlag auf die Nase gespührt. Danke euch beiden für die Hilfe und die Ausdauer. Jetzt funzt es und ich kann an das nächste Problem gehen. Mein Code sieht sicher sehr Ruppig aus, aber da ich Newbie bin, lerne ich beim arbeiten daran, Version 2 wird dann besser.

Danke euch beiden.
Gruß aus Göttingen, Holger

_________________
Interpunktion und Orthographie dieser Nachricht ist frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage kleiner als 1 Jahr von Heute 3 NikolausNad 108 21. Feb 2013, 12:32
NikolausNad Abfrage kleiner als 1 Jahr von Heute
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Datum < Heute 1 Sarek 210 06. Okt 2012, 10:42
KlausMz Abfrage: Datum < Heute
Keine neuen Beiträge Access Tabellen & Abfragen: Kalender nicht immer ersichtlich 2 sunshine5 196 07. Okt 2011, 06:02
sunshine5 Kalender nicht immer ersichtlich
Keine neuen Beiträge Access Formulare: Aktualisierung eines Datumsfeldes nach Auswahl ü. Kalender.. 1 aquarius1000 5181 29. Apr 2008, 22:36
Sparlampe Aktualisierung eines Datumsfeldes nach Auswahl ü. Kalender..
Keine neuen Beiträge Access Formulare: Kalender Time and Date Picker von Microsoft 2 Transputor 2722 02. Feb 2008, 19:15
Transputor Kalender Time and Date Picker von Microsoft
Keine neuen Beiträge Access Formulare: Kalender bei Datumseingabe als Hilfe erscheinen 46 Mthielemann 23686 02. Dez 2007, 08:04
stpimi Kalender bei Datumseingabe als Hilfe erscheinen
Keine neuen Beiträge Access Formulare: Datumsfeld, Kombobox mit Kalender? geht das? 2 sandygenator 714 31. Jan 2007, 14:13
sandygenator Datumsfeld, Kombobox mit Kalender? geht das?
Keine neuen Beiträge Access Formulare: Kalender Steuerelement in Formular einbauen 1 it´s only me 3329 11. Apr 2006, 11:03
stpimi Kalender Steuerelement in Formular einbauen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Formulare: Datum Eingabe über Kalender 1 Mthielemann 14487 03. Apr 2006, 11:44
stpimi Datum Eingabe über Kalender
Keine neuen Beiträge Access Formulare: Formular: Doppelklick Datum von heute hinzufügen! 4 Max01235 808 20. Feb 2006, 15:54
Gast Formular: Doppelklick Datum von heute hinzufügen!
Keine neuen Beiträge Access Formulare: ActiveX Kalender 0 schuetzejanett 3439 12. Jan 2006, 20:06
schuetzejanett ActiveX Kalender
Keine neuen Beiträge Access Formulare: Kalender zeigt in jedem Monat aktuellen Tag!? 5 Gast_ 1913 28. Nov 2005, 17:12
gusc Kalender zeigt in jedem Monat aktuellen Tag!?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe