Moin zusammen,
wo liegt mein Problem? Im folgenden werden Daten als Excel ausgeleitet, jedoch ist das Format für das Feld "E-Uhrzeit" ein Standarddatum, d.h. dd.mm.yyyy hh:mm. Ich möchte aber nur die Uhrzeit "hh:mm".
In der Tabelle ist das Format noch richtig, d.h. "Zeit 24h".
Was muss ich machen?
Private Sub oplAuftrag_Click()
'On Error GoTo Err_Abwicklung_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim a As String, b As String, c As String
Dim d As String, E As String, f As String
Dim g As String, h As String, i As String
Dim j As String, k As String, l As String
Dim DatNew(3) As String
Dim str_dat As String
Dim str_datum As String
Dim str_sql As String
Dim qry As DAO.QueryDef
Set qry = CurrentDb.QueryDefs("A_OP_Liste_Aufträge")
str_dat = InputBox("Geben Sie das Datum ein", "Offene Posten", Date)
If IsNull(str_dat) Or str_dat = "" Then
MsgBox "Bitte ein Datum eingeben"
Exit Sub
Else
DatNew(1) = Day(str_dat) 'Tag
DatNew(2) = Month(str_dat) 'Monat
DatNew(3) = Year(str_dat) 'Jahr
str_datum = "#" & DatNew(2) & "/" & DatNew(1) & "/" & DatNew(3) & "#"
'#2/24/2011#
End If
a = " SELECT Ware.HandlingUnit AS [Handling Unit], Ware.KundeAuftrag AS [Lief Nr], "
'"" "" AS [LPR Positions Nr], "
b = " Auftrag.ErledigtDatum, Auftrag.ErledigtUhrzeit AS [E-Uhrzeit], Auftrag.Statuscode AS [LPR Statuscode], "
c = " T_RückCodes.ADACodes AS [ADA Statuscode]"
d = " FROM (Auftrag LEFT JOIN Ware ON Auftrag.Auftragsnr = Ware.Auftragsnr) LEFT JOIN T_RückCodes ON Auftrag.Statuscode = T_RückCodes.LPRLiefercodes"
E = " WHERE (((Auftrag.ErledigtDatum) = " & str_datum & "))"
f = " ORDER BY Ware.HandlingUnit;"
str_sql = a & b & c & d & E & f
qry.SQL = str_sql
stDocName = "F_OP_Liste_Aufträge"
DoCmd.OpenForm stDocName
Form_F_OP_Liste_Aufträge.ErlDat = str_dat
Exit_Abwicklung_Click:
Exit Sub
Set qry = Nothing
Err_Abwicklung_Click:
MsgBox Err.Description
Resume Exit_Abwicklung_Click
End Sub
Wer kann mir helfen?
Vielen Dank im Voraus
Andreas
Hallo Andreas,
in der Tabelle steht auch das volle Datum mit der Uhrzeit. Das sieht man aber nicht da das auf Uhrzeit formatiert ist.
(Formate sind immer Schall und Rauch wenn es um die echten Daten geht).
Du kannst aber mit Format(E_Uhrzeit,"hh:mm") die Zeit übergeben.
Bitte keine - in den Namen
Gruß
Johann
....vielen Dank für die schnelle und kompetente Hilfe......