Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datum überprüfen
zurück: Daten aus Zwischenablage anhängen weiter: Automatisches Ausfüllen von Feldern einer Tabelle Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast
Gast


Verfasst am:
29. Aug 2004, 16:45
Rufname:

Datum überprüfen - Datum überprüfen

Nach oben
       

hallo an alle

habe ein kleines problem und schaffe es einfach nicht auf eine geeignete lösung zu kommen, hoffe jemand von euch kann mir helfen

ich habe eine kleine tabelle mit dem feld AbfrageJahr und nur einem Datensatz. Bei jedem Start meiner Datenbank soll automatisch überprüft werden ob der Wert in dem Feld mit dem aktuellen Jahr übereinstimmt. Sollte dies nicht der Fall sein, soll der Wert des aktuellen Jahres eingetragen werden und das Makro "Rückstände" gestartet werden.

mfg

tobi
Ammannd
VB.NET Programmierer


Verfasst am:
29. Aug 2004, 22:36
Rufname:


AW: Datum überprüfen - AW: Datum überprüfen

Nach oben
       

Das kannst du sicher mit VBA lösen. Frag mich nicht genau, wie, aber ich stelle mir das so vor: Sobald die Datenbank aufgerufen wird, startet z.B. ein Makro, das den Eintrag mit dem aktuellen Jahr vergleicht. Je nach Bedingung wird dann das andere Makro gestartet und der neue Wert in das Feld eingetragen. Sollte eigentlich nicht allzu schwierig sein. Trotzdem sorry, dass ich dir nicht genauer helfen kann!!
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Aug 2004, 10:30
Rufname:

AW: Datum überprüfen - AW: Datum überprüfen

Nach oben
       

hi tobi,
du erstellst ein neues makro mit dem namen "autoexec" (wird automatisch bei start der mdb aufgerufen.
dort schreibst du unter aktion "ausführenCode" unten hin =jahr_pruefen() [dies ist der name eines allg. moduls].
nun erstellst du eines neues allg. modul mit folgenden code:
Code:
Option Compare Database
Option Explicit

Public Function jahr_pruefen()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("DeineTabelle", dbOpenDynaset)
    rs.MoveFirst            'liest ersten (u. einzige) Satz
    If rs![jahr] = Year(Date) Then      'jahr in tab = akt. jahr
        DoCmd.RunMacro "Rueckstaende"   'ruft makro auf, namen möglichst ohne umlaute
      Else
        rs.Edit                                     'edit der tab vorbereiten
           rs![jahr] = Year(Date)          'jahr in tab ersetzen durch akt. jahr
        rs.Update                                 'tab schreiben
    End If
    rs.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
End Function

der code muss natürlich noch an deine umgebung angepasst werden.
code ist nicht getestet und kompiliert.
hilft dir das weiter?
bruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Ammannd
VB.NET Programmierer


Verfasst am:
30. Aug 2004, 12:44
Rufname:

AW: Datum überprüfen - AW: Datum überprüfen

Nach oben
       

Sieht meiner Meinung nach ganz gut aus! Einzig die IF-Abfrage müsste geändert werden, denn Tobi möchte ja, dass das Makro nur aufgerufen wird, wenn das Jahr in der Tabelle NICHT mit dem aktuellen Jahr übereinstimmt. In deinem Code-Beispiel wird es immer aufgerufen, wenn das Jahr übereinstimmt.
Ich glaub, jetzt lern ich sogar noch VBA... Wink
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Aug 2004, 13:11
Rufname:


AW: Datum überprüfen - AW: Datum überprüfen

Nach oben
       

@ammannd,
hast natürlich recht, die zeile
docmd.runmacro ....
muss eingefügt nach zeile
rs.update
da in diesem fall datum nicht gleich.
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
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: SQL-String mit Datum .... !? 2 DoMe 1129 07. Feb 2005, 14:03
DoMe SQL-String mit Datum .... !?
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinierte Abfrage (Datensatz mit neuestem Datum) 16 Gelezun 2165 05. Feb 2005, 19:53
Gelezun Kombinierte Abfrage (Datensatz mit neuestem Datum)
Keine neuen Beiträge Access Tabellen & Abfragen: Datum im Formularkopf 6 didide 822 06. Jan 2005, 17:19
lothi Datum im Formularkopf
Keine neuen Beiträge Access Tabellen & Abfragen: [Abfrage] Datum älter 30 Tage 14 bilki 1583 05. Jan 2005, 17:46
Willi Wipp [Abfrage] Datum älter 30 Tage
Keine neuen Beiträge Access Tabellen & Abfragen: Alter auf Basis akt. Datum ausrechnen 2 jomei 1635 22. Dez 2004, 09:15
jomei Alter auf Basis akt. Datum ausrechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Datum nur als Monat und Jahr aus geben? 6 IV 1143 17. Dez 2004, 10:54
IV Datum nur als Monat und Jahr aus geben?
Keine neuen Beiträge Access Tabellen & Abfragen: Datum abfragen bericht anzeigen // Artikel usw. suchen 2 mr@ 1260 10. Okt 2004, 20:03
mr@ Datum abfragen bericht anzeigen // Artikel usw. suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Abfrage eingrenzen? 3 Gast 2564 06. Okt 2004, 12:33
Skogafoss Datum in Abfrage eingrenzen?
Keine neuen Beiträge Access Tabellen & Abfragen: filter nach datum 9 Piet 1046 30. Aug 2004, 17:14
Willi Wipp filter nach datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum berechnen 1 kdl 1146 09. Aug 2004, 06:10
TommyK Datum berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: änderungsabfrage mit datum läuft nicht 1 gast 829 05. Aug 2004, 16:23
Willi Wipp änderungsabfrage mit datum läuft nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000 Abfrage Textfeld in Datum umwandeln 3 Register 5100 05. Jul 2004, 16:22
Willi Wipp Access 2000 Abfrage Textfeld in Datum umwandeln
 

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