Office: (Office 2016) termin vergeben

Hallo Accessforum,

in meinem Formular frmTerminNeu wird ein Termin mit Zeit und Datum eingetragen. Danach wird abgefragt ob dieser Termin als Serientermin gespeichert werden soll.
Wenn diese Frage mit Ja beantwortet wird, wird der Nutzer aufgefordert ein Startdatum, ein Enddatum und ein Intervall für den Serientermin einzutragen.
Danach werden die Daten geprüft und dann sollte der Serientermin (Serientermine) mittels Schleife erzeugt werden.

Meine Vorstellung:
Erzeuge einen neuen Datensatz solange bis das Enddatum gleich dem Startdatum ist, wobei der Zeitpunkt und die Person beibehalten werden.

Ich bin bis jetzt bei meinen Versuchen kläglich gescheitert. das beste Ergebnis, dass ich erzielt habe war eine Endlosschleife.

Kann mir jemand helfen?

Vielen Dank schon mal für Eure Hilfe

JobCoach

:)

 

Code:

 

Hallo Hans Christian,

vielen Dank für deinen Denkanstoß. Habe ich wohl gebraucht.*mrcool
Mit diesem Code klappt es.

vStartdDatum = Me.txtStartDatum
If Me.cboIntervall = 1 Then
Do While vStartdDatum < txtEndeDatum + 1
rs.AddNew
rs!TermiDatum = vStartdDatum
rs!TermiZeit = Me.txtZeit
rs!TermiPersoIDRef = Me.cboPerson
rs.Update
vStartdDatum = vStartdDatum + 1
Loop
MsgBox "Serientermin wurde gespeichert", vbOKOnly + vbInformation, "Hinweis"
End If

Vielen Dank noch einmal.

JobCoach
'

 

Jetzt solltest Du Dir nur noch etwas für den Fall überlegen, dasss das Interval 1 ist - das einfachste wäre, den Wert aus dem Formular zu verwenden.

Gruß
Fred

 

Hallo Fred,

wie meinst du das? Ich bin manchmal etwas schwerfällig in meiner Denke. Die Eingabe des Intervalls wird auf 1, 2 oder 3 begrenzt.

Gruß JobCoach

 

Derzeit erhöhst Du das Datum immer +1, also um einen Tag:
Code:

Was machst Du, wenn ein Termin wöchentlich, 14-tägig oder noch anders stattfindet? Nimm doch einfach das einzugebende Intervall

statt des +1

Gruß
Fred

 

Hallo Fred,

jetzt habe ich verstanden was du meinst.
Wird umgesetzt.
Danke für den Hinweis.

Mit freundlichem Gruß

JobCoach