PDA

Vollständige Version anzeigen : Formular öffnen mit Datum


europower
05.10.2002, 13:19
Hallo Leute !!!!

Habe mal wieder eine Frage.

Dank Eurer Hilfe ist es mir gelungen ein Formular jeden 5.des Monats automatisch zu öffnen.
Der Code lautet:

Private Sub Form_Close()
Dim Datum1 As Date ' Variablen deklarieren.
Dim Msg
Datum1 = Date
If Day(Datum1) = 5 Then
DoCmd.OpenForm "frm_§ 57 A Überprüfung"
End If


läuft super.

Nun zu meinem 1.Problem!
Ist es möglich den Code so umzuschreiben das sich das Formular, wenn der 5. ein Samstag od. Sonntag ist, erst am Montag öffnet?

2.Problem
Ein zweites Formular müßte sich jeden Montag automatisch öffnen, kann mir Jemand auch bei diesen Code weiterhelfen?

Danke im Vorraus,
und Grüße aus Österreich!!!!!

Nouba
05.10.2002, 14:14
Hallo europower,

versuch's mal hiermit
<font face="Courier New, Courier, monospace">Private Sub Form_Close()
Dim intTag As Integer

intTag = Day(Date)

If intTag = 5 Or _
(intTag = 6 Or intTag = 7 _
And Weekday(Date) = vbMonday) Then
DoCmd.OpenForm "frm_§ 57 A Überprüfung"
End If
End Sub
</font>

erwin
05.10.2002, 18:15
besser mit Klammern ;)

...((intTag = 6 Or intTag = 7) And Weekday(Date) = vbMonday)...

sonst passiert's jeden 6. :D

*eg Erwin...