Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Kontrollkästchen Access 2000





Frage

Hallo Leute habe folgendes Problem Bastle gerade an einer Arbeitszeiterfassung und habe darin ein Kontrollkästchen namens Urlaub Problem 1, Wenn ich das "KK" aktiviere soll es den Urlaubstand um eins runterzählen, beim deaktivieren soll der Urlaubsstand wieder den Wert von vorher haben. Problem 2 Ich erfasse jeden tag und jeder tag hat das "KK" Urlaub also wenn ich z.B am 27.2.06 Urlaub habe solle es um eins runterzählen und am 28.02.06 auch. dank im voraus mfg skypig

Antwort 1 von Bubbelup

Hallo

Zu Frage 1
Wenn ich das richtig verstanden habe brauchst du sowas:

Private Sub Urlaub_AfterUpdate()
If Me.Urlaub Then
Me.Tage = Me.Tage - 1
Else
Me.Tage = Me.Tage + 1
End If
End Sub


Wobei Me.Tage ein Formluarfeld in dem die Urlaubstage stehen und Me.Urlaub das ´KK´ ist.

Zu Frage 2
Wie sieht deineDatenbank aus? In welcher Tabelle wird was gespeichert? Die Urlaubstage in einer anderen als das Datum? Wenn das so ist, kommt es auf deine Formularart an (einzeln oder fortlaufend)

Bitte mehr Info

Gruss

Antwort 2 von Skypig

Danke für die rasche Antwort.

die DB ist so aufgebaut:
-Zeitpunkt [Monat, Jahr] => einzel Formular (hier sollte der aktuelle Urlaubsstand angezeigt werden, eigenes Textfeld?)
- Datum [Tag, Datum,Urlaub(KK)] => einzel Formular
- Arbeitszeit [Projekt, Tätigkeit, Arbeiststunden] => Datenblatt

Im UF Datum ist auch noch eine Abfrage eingebettet deren Aufgabe es ist die Gleitzeit, Überstunden und die gesamten Arbeitsstunde auszugeben.

2 weitere Abfragen sind für die Monatssumme und die Projektstunden zuständig (im Formulat Zeitpunkt)

Antwort 3 von Skypig

p.s hoffe ich habs einigermaßen geschafft den
Aufbau zu beschreiben

dank im voraus

mfg
skypig

Antwort 4 von Bubbelup

Hallo,

Zitat:
-Zeitpunkt [Monat, Jahr] => einzel Formular (hier sollte der aktuelle Urlaubsstand angezeigt werden, eigenes Textfeld?)


Ja, eigenes Textfeld. Und den Namen dieses Textfeldes schreibst du in das o.g. Beispielanstelle Me.Tage.

Gruss

Antwort 5 von skypig

Danke ,hat soweit ganz gut geklappt wenn ich im selben formular bleibe,

jedoch habe ich ein problem:
das "kk" befindet sich nicht im selben formular wie das textfeldes des urlaubs
der debugger wirft mir immer aus das er das feld nicht finden kann.
habe schon die versch. variationen versucht
zB.: Formulare![abc]![def] usw

Private Sub Urlaub_AfterUpdate()
If Me.Urlaub Then
Me.Tage = Me.Tage - 1
Else
Me.Tage = Me.Tage + 1
End If
End Sub

mfg skypig