Office: Zeitraumüberprüfung

Donner77 · 6. September 2003

Hallo zusammen,

hab jetzt den ganzen tag herumprobiert, doch ich schaff es einfach nicht! Hab im Anhang mal die Ausgangsversion angehangen.

Also nachdem ich das Formular MitarbeiterÜbersicht aufgerufen habe, mir dort dann durch klick einen namen ausgewählt habe, und dann auf abwesenheit klicke komme ich zu dem formular um das es geht.

Hier werden mir nun vorhandene abwesenheitszeiten angezeigt, ich kann diese löschen oder auch neue anlegen. um letzteres geht es, dank arne der sich sehr viel mühe gegeben hat ist es schon fast perfekt. das einzige problem nur noch ist, dass wenn eine neue abwesenheit angelegt wird, der zeitraum bzw tag überprüft werden soll ob an diesem tag schon eine abwesenheit vorliegt, wenn ja soll durch mitteilung an den user in form einer msgbox auf den fehler aufmerksam gemacht werden und der satz darf auf keinen fall gesichert werden.

Hab jetzt den ganzen Tag herumversucht aber es einfach nicht hinbekommen.

Hoffe ihr könnt mir helfen, vielen dank schonmal...

:)

jmc · 8. September 2003

Hi Donner

...Hab im Anhang mal die Ausgangsversion angehangen.
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und wenn du das nun auch noch wirklich anhängst, dann kann man deine Beschreibung auch nachvollziehen und vielleicht weiterhelfen ... *wink.gif*

Donner77 · 8. September 2003

grad vergessen *Smilie *Smilie *Smilie man wird alt... also hier bitteschön:

Arne Dieckmann · 8. September 2003

Lege im Modul des Abwesenheitsunterformulares folgende Funktion an (bitte Code kopieren, nicht abschreiben! *wink.gif*):
Code:

Public Function ControlZR() As Boolean

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sqlstring As String

sqlstring = "SELECT ID, Start, Ende FROM Daten "
sqlstring = sqlstring & "WHERE "
sqlstring = sqlstring & "(ID=" & Me!ID & " AND Nr" & Me!Nr & " AND Start "
sqlstring = sqlstring & "Between " & Format(Me![Start2], "\#yyyy\-mm\-dd\#") & " And " & Format(Me![Ende], "\#yyyy\-mm\-dd\#") & ") OR "
sqlstring = sqlstring & "(ID=" & Me!ID & " And Nr" & Me!Nr & " AND Ende "
sqlstring = sqlstring & "Between " & Format(Me![Start2], "\#yyyy\-mm\-dd\#") & " And " & Format(Me![Ende], "\#yyyy\-mm\-dd\#") & ");"

rs.Open sqlstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Not rs.EOF And Not rs.BOF Then
ControlZR = True
Else
ControlZR = False
End If

rs.Close
Set rs = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anschliessend ändere das Ereignis "Vor Aktualisierung":
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strCName As String
Dim ueberschneid As Boolean

'kontrolliere die Textfelder mit der Marke x
'(s. Eigenschaften/Andere):
strCName = tk_ControlsNull(Me, "x")

If strCName "" And Not delOverride Then
If MsgBox("Die Felder 'Abwesenheitsart', 'Von' und 'Bis' müssen ausgefüllt sein. Datensatz trotzdem speichern?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Fehlende Eingaben") = vbNo Then
DoCmd.GoToControl strCName
Cancel = True
End If
Else
ueberschneid = ControlZR()
If ueberschneid Then
MsgBox "Es gibt Überschneidungen"
Cancel = True
End If
End If

delOverride = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Donner77 · 8. September 2003

also ersteinmal wieder vielen dank. bei arnes lösung kommt jetzt allerdings folgende fehlermeldung wenn ich einen neuen abwesenheitszeitraum eingetragen habe und ihn dann doch löschen möchte, hat jemand von euch eine lösung?

MRR · 8. September 2003

Hi Donner77,
könnte es sein, dass das Feld start2 keinen Wert enthält, wenn die Funktion aufgerufen wird?
Dann könnte man vor ueberschneid = ControlZR() noch prüfen:
If Not IsNull(start2) And start2"" Then ueberschneid = ControlZR()

???

Arne Dieckmann · 8. September 2003

\@Matthias: Das könnte nicht nur so sein, das ist wohl auch so (anscheinend sind beide Datumsfelder leer - s. Fehlermeldung). *wink.gif*

@Donner77: Sorry, war wohl wieder mal ein bisschen zu schnell gepostet - diese Vorgehensweise hatte ich nicht getestet. *frown.gif*

Evtl. ist es so auch noch sicherer:

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strCName As String
Dim ueberschneid As Boolean

'kontrolliere die Textfelder mit der Marke x
'(s. Eigenschaften/Andere):
strCName = tk_ControlsNull(Me, "x")

If strCName "" And Not delOverride Then
If MsgBox("Die Felder 'Abwesenheitsart', 'Von' und 'Bis' müssen ausgefüllt sein. Datensatz trotzdem speichern?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Fehlende Eingaben") = vbNo Then
DoCmd.GoToControl strCName
Cancel = True
End If
Else
If Not IsNull(Me!Ende) And Not IsNull(Me!Start2) Then ueberschneid = ControlZR()
If ueberschneid Then
MsgBox "Es gibt Überschneidungen"
Cancel = True
End If
End If

delOverride = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Donner77 · 8. September 2003

ihr beiden, klappt prima. @arne brauchst dich nicht zu entschuldigen, hast ja wohl schon genug gemacht...

recht herzlichen dank!!!@all

Ach arne was dagegen wenn ich dich in meine icq liste setze?

Arne Dieckmann · 8. September 2003

Du kannst mich gerne in Dein ICQ aufnehmen (bitte mit Hinweis auf das Forum). Ich werde Dich dann als ICQ-Kontakt akzeptieren, allerdings leiste ich "Support" nur hier im Forum.

Donner77 · 8. September 2003

werd das dann heut nachmittag mal in angriff nehmen :-)

hab da noch eine frage zu meiner (besser eurer:-)) db.

ich hätte gerne afu dem unterformular mitarbeiterübersichtuf ein label (kann man wenigstens grafisch gestalten) das sich dann ja logischerweise automatisch neben jeden einzelnen mitarbeiter setzt.

durch klick auf dieses label soll der ma gelöscht werden sowie all die dazugehörigen abwesenheitseintragungen! Hatte da am wochenende mal herumgetrickst bin aber wie so oft kläglich gescheitert, den ma löscht er mir zwar jedoch nicht die dazugehörigen abwesenheitseinträge!

schon mal wieder vieln dank für eure super hilfe!!!

Arne Dieckmann · 8. September 2003

Wenn Du zwischen den Tabellen Beziehungen mit Löschweitergabe erstellst, sollten beim Löschen des Mitarbeiters (auf der "1"-Seite) alle Detaildatensätzen (auf der "n"-Seite) ebenfalls gelöscht werden.
S. dazu Extras/Beziehungen

Donner77 · 8. September 2003

Arne, noch mal langsam für die Anfänger unter uns (also mich:-))

Arne Dieckmann · 8. September 2003

Also noch einmal:

Gehe im Datenbankfenster auf Extras/Beziehungen. Dort wählst Du zunächst die Tabellen "Mitarbeiter" und "Daten" aus. Anziehend erstellst Du mittels Ziehen der Maus eine Verbindung zwischen Mitarbeiter_ID (in Tabelle "Mitarbeiter") und ID (in Tabelle "Daten") eine Beziehung (s. 1).

Anschliessend wird die Art der Beziehung eingestellt (s. 2 und 3).

Wenn dann eine Fehlermeldung kommt (Beziehung kann nicht erstellt werden, dann musst Du in "Daten" die Datensätze entfernen, die keinem Mitarbeiter zugeordnet werden können). Am besten machst Du das vielleicht schon vorher ...

Über "Ansicht/Tabelle anzeigen" (auch im Screenshot markiert) könnte man noch mehr Beziehungen aufbauen.

Donner77 · 8. September 2003

das habe ich, nur irgendwie habe ich mein code verhauen und der läuft nicht mehr, hab neben jedem datensatz ein button (alles im unterformular) auf dem sich folgender code befindet:

Private Sub loeschen_Click()
Dim db As DAO.Database

If MsgBox("Soll die Auswahl mit all Ihren dazugehörigen Daten wirklich gelöscht werden?", vbYesNo + vbQuestion, "Löschen") = vbYes Then
Set db = CurrentDb()
db.Execute ("Delete * From Mitarbeiter Where Mitarbeiter_ID= " & Me.MitarbeiterÜbersichtUF!ID)
Me.MitarbeiterÜbersichtUF.Form.Requery

End If
End Sub

da kommt fehlermeldung über fehlermeldung, wie lösche ich den markierten datensatz? ich verzweifel echt, krieg auch agr nichts alleine hin, obwohl ich das schon mal hatte

Arne Dieckmann · 8. September 2003

Warum machst Du denn die Umweg über die Abfrage? Kopiere doch einfach den Code zum Datensatz löschen aus dem Abwesenheitsunterformular ...

Oder teste mal diesen Code (ohne DAO.Database ...) :
Code:

If MsgBox("Soll der Mitarbeiter gelöscht werden?", vbYesNo, "Löschen") = vbYes Then
CurrentDb.Execute ("Delete * From Mitarbeiter Where Mitarbeiter_ID= " & Me.MitarbeiterÜbersichtUF!Mitarbeiter_ID)
Me.MitarbeiterÜbersichtUF.Requery
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

BTW: Es geht doch eigentlich um den Lösch-Button im Mitarbeiter-Übersichtsformular, oder?