Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Arbeiten mit Datumsvergleich
zurück: Zuordnung bestimmter Datensätze zu einem Datensatz weiter: PreView Bitmap 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
Gast



Verfasst am:
11. Aug 2008, 15:49
Rufname:

Arbeiten mit Datumsvergleich - Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

Hallo liebe Freaks,
hab wieder mal nen Problem, was sicher recht einfach zu lösen ist, aber ich kriegs nicht hin:

Ich habe zwei Felder mit einer Datumsangabe.
"Beginn" und "Ende"
sowie zwei Kontrollkästchen: "Aktiv" und "InPlanung"

Wenn weder Beginn noch Ende einen Eintrag enthält, soll man durch Klick in "Planung" kenntlich machen können, dass es um ein geplantes Projekt handelt.
Soweit so gut.

Nun zu den Funktionen:
a) Wenn ein Beginndatum vorhanden ist (und kleiner gleich heute) dann soll das Aktivhäkchen = True sein. Aber nur, solange das Ende-Datum nicht gesetzt wurde, oder in der Zukunft liegt.

b) Das Aktivhäkchen soll automatisch entfernt werden, wenn der Endtermin bereits erreicht ist.

c) Und wenn man auf Planung klickt, sollen alle Datumsfelder gelöscht werden und das Aktivhäkchen ebenfalls.

Ich hab's mit folgenden "If then" probiert, aber irgendwo hab ich eine Blockade um das Ding funktionstüchtig zu machen. Könnt Ihr mir helfen?

Aktivhäkchen
Code:
Private Sub Beginn_BeforeUpdate(Cancel As Integer)
    If Me!Beginn < Date + 1 And Me!Ende = Empty Or IsNull(Me!Ende) Or Me!Ende > (Date) Then
        Me!Active = 1 And Me!InPlanung = 0
      Else
        Me!Active = 0 And Me!InPlanung = 0
    End If
End Sub
Planungshäkchen:
Code:
Private Sub InPlanung_BeforeUpdate(Cancel As Integer)
    If Me!InPlanung = 1 Then
        Me!Beginn = Null And Me!Ende = Null And Me!Active = 0
      Else
        If Me!Beginn < Date + 1 And Me!Ende = Empty Or IsNull(Me!Ende) Or Me!Ende > (Date) Then
            Me!Active = 1 And Me!InPlanung = 0
          Else
            Me!Active = 0 And Me!InPlanung = 0
        End If
    End If
End Sub
Herzlichen Dank!
Viele Grüße
woamo
maike kaluscha
gesundes Halbwissen in Access und VBA


Verfasst am:
11. Aug 2008, 18:57
Rufname:
Wohnort: Bremen


AW: Arbeiten mit Datumsvergleich - AW: Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

Code:
Private Sub Beginn_BeforeUpdate(Cancel As Integer)
    If Me!Beginn <= Date Then
        If IsNull(Me!Ende) Or Me!Ende > Date Then
            Me!Active = True
            Me!InPlanung = False
          Else
            Me!Active = False
            Me!InPlanung = False
        End If
    End If
End Sub

Private Sub InPlanung_BeforeUpdate(Cancel As Integer)
    If Me!InPlanung Then
        Me!Beginn = Null
        Me!Ende = Null
        Me!Active = False
      Else
        If Me!Beginn <= Date Then
            If IsNull(Me!Ende) Or Me!Ende > Date Then
                Me!Active = True
                Me!InPlanung = False
              Else
                Me!Active = False
                Me!InPlanung = False
            End If
        End If
    End If
End Sub
So, ich hoffe, ich habe keine Fehler eingebaut, kann's grad nicht testen.
maike

_________________
Access 2000 und WinXP - Bitte PNs nur nach Absprache.
Gast



Verfasst am:
12. Aug 2008, 09:09
Rufname:

AW: Arbeiten mit Datumsvergleich - AW: Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

Maike,
herzlichen Dank!! Sieht perfekt aus, aber eine Sache funktioniert leider immer noch nicht: Beispiel:

Beginn: 01.01.01
Eingabe bei "Ende": 01.01.05

Lt. Code müsste jetzt das Aktiv-Häkchen verschwinden. Und das tut es nicht. Weißt Du warum?
Lieben Dank!
woamo
option07
betatester


Verfasst am:
12. Aug 2008, 09:38
Rufname:
Wohnort: Berlin

AW: Arbeiten mit Datumsvergleich - AW: Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

hi,

was hälst du von dieser lösung?
Code:
    If Not IsNull(Me!t_endefeld) Then
        'h_haeckchenfeld deaktivieren
      Else
        'h_haeckchenfeld aktivieren
    End If

gruß
daniel
maike kaluscha
gesundes Halbwissen in Access und VBA


Verfasst am:
12. Aug 2008, 12:48
Rufname:
Wohnort: Bremen

AW: Arbeiten mit Datumsvergleich - AW: Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

Hallo woamo,
ich schätze, du musst auch bei Veränderung des Endtermins bzw. im Formular selbst den Code nochmal durchlaufen. Im Moment wird die Prozedur ja nur aufgerufen bei Eingaben in das Feld Beginn bzw. Setzen/Löschen des InPlanung-Häkchens.
maike

_________________
Access 2000 und WinXP - Bitte PNs nur nach Absprache.
woamo
Access VBA Einsteiger


Verfasst am:
14. Aug 2008, 09:04
Rufname:


AW: Arbeiten mit Datumsvergleich - AW: Arbeiten mit Datumsvergleich

Nach oben
       Version: Office 2003

Hab ich übersehen. Maike!
Vielen Dank für die schnelle Hilfe Maike und Daniel!
Beste Grüße
woamo
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 Tipps & Tricks: Grundlagen zum Arbeiten mit DAO.Recordsets 3 neusel 41220 03. März 2014, 10:02
FIAE Grundlagen zum Arbeiten mit DAO.Recordsets
Keine neuen Beiträge Access Programmierung / VBA: Probleme : Datumsvergleich mit Recordsets 1 moehre67 308 22. Jun 2011, 17:44
Marmeladenglas Probleme : Datumsvergleich mit Recordsets
Keine neuen Beiträge Access Programmierung / VBA: Datumsvergleich des wochentages in einer abfrage 10 muththomas 303 06. Feb 2011, 17:45
muththomas Datumsvergleich des wochentages in einer abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Datenvergleich, Datumsvergleich, Einsatzplanung 113 pokemontheo 6500 24. Nov 2010, 23:26
Pokemon Datenvergleich, Datumsvergleich, Einsatzplanung
Keine neuen Beiträge Access Programmierung / VBA: Namen eines Feldes zum Datumsvergleich verwenden 12 Wolfgang 1958 501 12. Feb 2009, 15:02
Wolfgang 1958 Namen eines Feldes zum Datumsvergleich verwenden
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsvergleich zweier Tabellenfelder mit Nettoarbeitstagen 0 MeisterLampe22 381 16. Jul 2008, 08:05
MeisterLampe22 Datumsvergleich zweier Tabellenfelder mit Nettoarbeitstagen
Keine neuen Beiträge Access Formulare: Arbeiten mit Unterformular 0 Jenny245 407 14. Jun 2008, 18:25
Jenny245 Arbeiten mit Unterformular
Keine neuen Beiträge Access Programmierung / VBA: Datumsvergleich und Backup in einem recordset 11 MeineKleineWolke 604 12. Dez 2007, 10:26
MeineKleineWolke Datumsvergleich und Backup in einem recordset
Keine neuen Beiträge Access Hilfe: Mit welcher Access-Version arbeiten? 3 Accesbeginner 391 23. Okt 2007, 18:26
Accesbeginner Mit welcher Access-Version arbeiten?
Keine neuen Beiträge Access Hilfe: Weiß nicht wie ich verknüpfen soll und weiter arbeiten soll? 1 Deathack 690 30. Jun 2007, 20:57
Nouba Weiß nicht wie ich verknüpfen soll und weiter arbeiten soll?
Keine neuen Beiträge Access Tabellen & Abfragen: Arbeiten in der Datenblattansicht von Access 2 Eichhorn 715 12. März 2007, 12:07
Eichhorn Arbeiten in der Datenblattansicht von Access
Keine neuen Beiträge Access Tipps & Tricks: Arbeiten mit Dateien aus ACCESS heraus..für Anfänger 1 derArb 5342 20. Aug 2006, 00:50
stpimi Arbeiten mit Dateien aus ACCESS heraus..für Anfänger
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln