Nein bei jedem Feld wird nur eine dieser Berechnungen ausgeführt.
Dahinter liegt VBA-Code, am Ende dieser Antwort werde ich einmal den Code von einer der abfragen mitgeben, vielleicht hilft dies ja weiter.
Ob die "?"-Parameter einer speziellen Zelle zugeordnet sind, kann ich leider nicht sagen, dies müsste ich selbst nachprüfen lassen.
Zugegriffen wird auf eine Firebird-Datenbank.
Hier der Code der zweiten SQL-Abfrage:
Public Function NumRein(aAviseDate As Date, aZielland As String) As Integer
' Anzahl avisierter Sendungen nach Datum und Land
'
' Abgegrenzt wird nach Tag und Uhrzeit, wobei für jedes Land ein anderer Zeitpunkt verwendet wird, so daß nach Tagesabschluß
' avisierte Sendungen zum folgenden Arbeitstag gezählt werden. Fällt der vorangehende Arbeitstag auf ein Wochenende, wird ab
' Freitag nach Tagesabschluß gezählt.
'
'declare ADO Connection, Command, Parameter and Recordset
Dim cnDB As New ADODB.Connection
Dim Cm As New ADODB.Command
Dim Pm1, Pm2 As ADODB.Parameter
Dim rsRecords As ADODB.Recordset
'Open the ODBC Connection
cnDB.Open ("HVS32 live")
'Command for select
Cm.ActiveConnection = cnDB
Cm.CommandText = "select count(*) from ((select lieferungnr from lieferung " & _
"where speicherdatetime between ? and ?) as lf " & _
"join teillieferung tl on lf.lieferungnr = tl.lieferungnr " & _
"join versandeinheit ve on tl.versandeinheitnr = ve.versandeinheitnr " & _
"join abrechnungseinheit ae on ve.abrechnungseinheitnr = ae.abrechnungseinheitnr) " & _
"where zieladrlkz = ? and vestatus is null and labelname <> 'NeutralSpedition'"
Cm.CommandType = adCmdText
'use parameter objects to deal with data types
Select Case aZielland
Case Is = "DE"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("16:00")
dtUntil = DateValue(aAviseDate) + TimeValue("16:00")
Case Is = "AT"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("15:00")
dtUntil = DateValue(aAviseDate) + TimeValue("15:00")
Case Is = "CH"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("14:00")
dtUntil = DateValue(aAviseDate) + TimeValue("14:00")
Case Is = "NL"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("13:00")
dtUntil = DateValue(aAviseDate) + TimeValue("13:00")
Case Is = "FR"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("12:00")
dtUntil = DateValue(aAviseDate) + TimeValue("12:00")
Case Is = "GB"
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("11:00")
dtUntil = DateValue(aAviseDate) + TimeValue("11:00")
Case Else
dtFrom = DateValue(WDay(aAviseDate, -1)) + TimeValue("16:00")
dtUntil = DateValue(aAviseDate) + TimeValue("16:00")
End Select
Cm.Parameters.Append Cm.CreateParameter("Avise", adDBTimeStamp, adParamInput, 0, dtFrom)
Cm.Parameters.Append Cm.CreateParameter("Avise", adDBTimeStamp, adParamInput, 0, dtUntil)
Cm.Parameters.Append Cm.CreateParameter("Land", adVarChar, adParamInput, 3, aZielland)
'Open the command with the Recordset
Set rsRecords = Cm.Execute
'Temp - Result
Dim Result As Integer
'read field value
If Not IsNull(rsRecords.Fields.Item(0)) Then
Result = rsRecords.Fields.Item(0)
Else
Result = 0
End If
'close all
rsRecords.Close
cnDB.Close
'Set the return value of the function (same name)
NumRein = Result
End Function
