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
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)
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
Aufbau zu beschreiben
dank im voraus
mfg
skypig
Antwort 4 von Bubbelup
Hallo,
Ja, eigenes Textfeld. Und den Namen dieses Textfeldes schreibst du in das o.g. Beispielanstelle Me.Tage.
Gruss
Zitat:
-Zeitpunkt [Monat, Jahr] => einzel Formular (hier sollte der aktuelle Urlaubsstand angezeigt werden, eigenes Textfeld?)
-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
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