WCM Forum - ACCESS: Formular öffnen msg-box

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - ACCESS: Formular öffnen msg-box (http://www.wcm.at/forum/showthread.php?t=166603)

zaphod

23.05.2005 15:02

ACCESS: Formular öffnen msg-box

Hallo, liebe Access-Freunde!

Ich möchte, dass beim Öffnen eines Formulares Datumsfelder verglichen werden.
Feld 1 = Monat laufend
Feld 2 = Monat letzter Abschluss
Wenn der Monat laufend 1 Monat größer ist, als der Monat letzter Abschluss, dann soll eine msg-box erscheinen.

Wie ist die korrekte Syntax in vba - oder gibt´s auch eine Lösung mit einem Makro?

Danke im Voraus
Robert

testi

23.05.2005 17:08

Also für VBA:
Formular in der Entwurfsansicht öffnen, dann auf Ansicht->Eigenschaften->Reiter Ereignis->"Beim Laden" auf die ... klicken
->Code Generator.
Angenommen in den Feldern 1 und 2 steht ein Datum und das Monat wird mit 31 Tagen angenommen

Code:

Private Sub Form_Load()

If Feld1.Value > Feld2.Value + 31 Then 

    MsgBox "Monatsabschluss"

End If

End Sub

Sollte so funktionieren

mfG
Testi

zaphod

24.05.2005 08:16

DAAAAAAANKE!!!!

Danke Testi!
Genau das hab ich gesucht.
Wenn ich statt der msg-Box ein Formular öffnen möchte
_____________________________
Private Sub Form_Load()
If Feld1.Value > Feld2.Value + 31 Then
open form "Mein Forular"
End If
End Sub

wäre dass so richtig?

lg
Robert

testi

24.05.2005 09:30

Wird nicht funktionieren.
Machs statt open form.... lieber so:

Code:

DoCmd.OpenForm "Forular"

Nach "Forular" kanns Du dir noch aussuchen wie es geöffnet werden soll.
z.B.: im Fenstermodus

Code:

DoCmd.OpenForm "Formu2", acNormal, , , , acDialog

mfG
Testi

Alle Zeitangaben in WEZ +2. Es ist jetzt 02:03 Uhr.