Office: (Office 2013) VBA Code in der Terminvergabe

Meine Frage bezieht sich auf das Vorhaben (https://www.ms-office-forum.net/foru....php?t=369165).

In den letzten Tagen bin ich mit der Bearbeitung der Datenbank direkt beschäftigt. Für die Terminvergabe benutzte ich das Video .

Meine Adaptierungen:
Tabelle Appointments entspricht tblTermvergabe
Tabelle Schedule entspricht tblBerater
DocotrsID entspricht BeraterID
AppointTime entspricht Terminzeit
AppointDate entspricht Termindatum
mainform entspricht frmTerminvereinbarung
ClientID entspricht KlientID
cboClient enspricht cboclient
txtAppointDate entspricht TextAppointDate
Kombofeld "cboTime" bleibt gleich. für Datensatzherkunft habe ich eine tlkpZeit erstellt, Herkunftstyp Tablle/Abfrage ausgewählt

So schauen meine adoptierte Codes aus:

Option Compare Database
Private Sub cboTime_Enter()
Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String
Dim dLowerbreak As Date, dUpperBreak As Date, dDuration As Date
Dim dLowerPrecision As Date, dUpperPrecision As Date
cboTime.RowSourceType = "Value List"
cboTime.RowSource = ""
If IsNull(Start) Then Exit Sub Else i = Start
If Me.NewRecord = True Then
DoCmd.RunCommand acCmdSaveRecord
End If
sSQL = "SELECT BeraterID, Termindatum, Terminzeit"
sSQL = sSQL & " FROM qryTerminvergabe"
sSQL = sSQL & " WHERE BeraterID= " & Me.ID & _
" AND Termindatum=#" & Me.TextAppointDate & "#"
Set oRS = CurrentDb.OpenRecordset(sSQL)

dDuration = TimeValue("00:30")
dLowerbreak = Pause - TimeValue("00:30") 'Break is a field
dUpperBreak = Pause + TimeValue("00:30")

If oRS.RecordCount = 0 Then
Do
If i = dUpperBreak Then
cboTime.AddItem i
End If
i = i + dDuration
Loop Until i >= txtEnd
Else
Do
If i = dUpperBreak Then
dLowerPrecision = i - TimeValue("00:00:05")
dUpperPrecision = i + TimeValue("00:00:05")
oRS.FindFirst "[Terminzeit] Between #" & dLowerPrecision & "# And #" & dUpperPrecision & "#"
If oRS.NoMatch Then cboTime.AddItem i
End If
i = i + dDuration
Loop Until i >= txtEnd
End If
oRS.Close
End Sub

Private Sub cboTime_AfterUpdate()
SubForm.SetFocus
DoCmd.GoToControl "Terminzeit"
DoCmd.GoToRecord , , acNewRec
SubForm.Form.Controls("Terminzeit") = Me.cboTime
SubForm.Form.Controls("Termindatum") = Me.TextAppointDate
SubForm.Form.Controls("cboclient").SetFocus
SubForm.Form.Controls("cboclient").Dropdown
End Sub

Private Sub TextAppointDate_BeforeUpdate(Cancel As Integer)
If CDate(TextAppointDate)

:)

 

Bitte Code stets in Code-Tags einschließen. Nutze die zweite Schaltfläche/Icon in der Fensterleiste des Nachrichtenfensters.
Code:

 

Moin,

deutet auf einen falschen oder nicht vorhandenen Feld-/Tabellennamen hin ...
Guck dir am besten mal per Debug.Print das Ergebnis von sSQL im Direktfenster (öffnen mit strg+g) an:
Code:

Wie liegen denn die Daten in cboClient vor und wo genau ist das Problem bei der Anpassung?

maike

 

Hier ist Debugwert

 

cboclient:
Steuerelementinhalt: KlientID
Datensatzherkunft: SELECT tblKlient.KlientID, IIf([Mittelname]"",[Mittelname] & (" "+[Nachname]),[Vorname] & (" "+[Nachname])) FROM tblKlient ORDER BY IIf([Mittelname]"",[Mittelname] & (" "+[Nachname]),[Vorname] & (" "+[Nachname]));

Im Code:
Code:

oRS!ClientName = NewData muss in meinem Fall anders sein. Da ich das Feld "ClientName" (hier das Feld beide Vor- und Nachname hat) nicht habe. Stattdesen habe ich den Klientename auf mehrer Felder (Titel, Vor- Mittel und Nachname) aufgeteilt. Ich weiß aber nicht wie ich diese Anweiseung( oRS!ClientName = NewData) an meinen Felder anpassen kann.

Vielen Dank.

 

Zu 1: Ich möchte den Wert von Debug.Print aus dem Direktfenster sehen, wie beschrieben.
Das ist dann der komplette SQL-String, so wie er erzeugt wurde.

Äh, ja *wink.gif* .
Wenn du beispielsweise "Herr Max Müller" in das Kombifeld eingetippt hast:
Code:

Link zu Stringoperationen: vb@rchiv · Befehlsreferenz · Left-Funktion

Da das aber ziemlich frickelig werden kann mit dem Auseianderklauben von mehreren Vornamen und Doppelnamen und ... würde ich die Möglichkeit 2 aus diesem Beispiel nutzen und ein eigenes Formular zur Eingabe öffnen lassen:
donkarls Access-Seiten Da hast du dann mehr Kontrolle über die Einträge.
maike

 

sSQL = "SELECT BeraterID, Termindatum, Terminzeit"
sSQL = sSQL & " FROM qryTerminvergabe"
sSQL = sSQL & " WHERE BeraterID= " & Me.ID & _
" AND Termindatum=#" & Me.TextAppointDate & "#"
Debug.Print sSQL
SELECT BeraterID, Termindatum, Terminzeit FROM qryTerminvergabe WHERE BeraterID= 1 AND Termindatum=#04.08.2020#

 

Ok,
wachst Du selber bei der Meldung auf????

 

Guck mal bei donkarl.com

 

In Ergänzung zu fraeser.
Das Datum muss für SQL formatiert werden:
donkarls Access-Seiten
maike

 

vielen Dank für den Hinweis.
Ich habe den folgenden Code für Termindatum eingegeben.
Code:

Leider keinen Erfolg

 

An der Stelle ist das ja auch völlig sinnfrei ... *rolleyes.gif*
Du erzeugst einen SQL-String und sonst nix. Zumindest grob sollte man schon verstehen, was der Code so tut.

Bau das an der richtigen Stelle ein und formatiere den richtigen Wert (Me.TextAppointDate).

maike

 

vielen Dank. Es scheint, das diese Fehlerrückmeldung gelöst zu sein. Zumindest bekomme ich diesbezüglic keinen Fehler mehr. Allerdings das Terminzeit-Auswahl Dropdownoption für die verfügbare Zeiten ist nun leer. Das Dropdownfeld öffnet sich in voller Länge aber ist leer.

 

Code:

Dafür habe ich eine Tabelle tlkpZeit mit Feldname tsTime benutzt. Hier habe ich ab 07:30 mit halbstündigem Interval bis 20:00 eingegeben.

 

Schau Dir die Eigenschaften des Kombifeldes an:
Da gibt es
Anzahl Spalten
Spaltenbreiten (auch 0 möglich, mit Semikolon getrennt)
gebundene Spalte