Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Verschiedenes
Autoren-Login

 

newsletter
Kontakt
English

 

 

 
  Willkommen Gast. Bitte Einloggen oder Registrieren
   
  ÜbersichtHilfeSuchenEinloggenRegistrieren  
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken
Datum in Mail umwandeln im US-style mittels Array (Gelesen: 442 mal)
Lothar
YaBB Newbies
*
Offline


Zum Glück gibt's leichteres

Beiträge: 27
Oberursel
Geschlecht: male
Datum in Mail umwandeln im US-style mittels Array
30.08.2017 um 20:02:10
 
Guten Abend veerhte Gemeinde,

aus einem Formular heraus, das auch als solches per e-mail an den Kunden gesendet wird, soll ein Datum im Text der Mail im Format "Dec-17-2017" gesendet werden. In der Funtion "Function MonatErmitteln()" wird das Datum aus dem Formular zerlegt, um den Monat zu ermitteln. Danach soll es wieder Stück-für-Stück zu einem String zusammengesetzt werden und in den Text, hier im Beisp. AA, eingefügt werden. Nur bleibt leider der Bereich leer.

DoCmd.SendObject acForm, "AuftragFormularEnglisch", acFormatPDF, ....
... "The goods will be ready for shipment as of " & AA & "..."

Function MonatErmitteln()

Dim MonatUS As Variant
Dim AA As String
Dim VerladedatumTxt As String

VerladedatumTxt = Forms![AuftragFormularEnglisch]![Verladedatum1]
'Herkunftsfeld


VerladedatumMonat = Mid(VerladedatumTxt, 4, 2)
'Monat ermitteln


MonatUS = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

A = MonatUS((VerladedatumMonat) - 1)

AA = A & "-" & Left(VerladedatumTxt, 2) & "-" & Right(VerladedatumTxt, 4)
'das Datum wieder zusammenbauen


End Function

Wenn ich vor dem Ende der Funktion mir das Ergebnis mit "MsgBox AA" anzeigen lasse, ist das Ergebnis "Dez-17-2017"; im Text jedoch ""(leer, nix, nad, njende)

Wass habe ich falsch gemacht?

Gruß
Lohar



Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4151
Geschlecht: male
Re: Datum in Mail umwandeln im US-style mittels Array
Antwort #1 - 30.08.2017 um 21:49:26
 
Hallo,

die Variable "AA" ist (lokal) nur  in der Funktion deklariert und außerhalb unbekannt.

Entweder wird sie in einem Standartmodul als "Public" deklariert oder der Wert wird der ebenfalls als Public deklarierten Funktion selber zugewiesen, wobei die Funktion dann im Sendobject-Body-String aufgerufen wird.


Ansonsten ist der Code eher missverständlich programmiert.

(Variablen  ist nicht deklariert, in jeden Modulkopf "Option Explicit" einbauen)




Vorschlag:



Code:
Public Function conv2UsDate(Verladedatum As Date) As String
Dim strDate As String
Dim strMon As String
Dim MonatUS()
Dim lngMon As Long


strDate = Format(Verladedatum, "mmm-dd-yyyy")
lngMon = DatePart("m", Verladedatum) 'Monat ermitteln
MonatUS = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
strMon = MonatUS((lngMon) - 1)
conv2UsDate = strMon & Mid(strDate, 4)  'das Datum wieder zusammenbauen

End Function

 




und Aufruf:

DoCmd.SendObject acForm, "AuftragFormularEnglisch", acFormatPDF, ....
... "The goods will be ready for shipment as of " & conv2UsDate(Me!Verladedatum ) & "..."
Zum Seitenanfang
« Zuletzt geändert: 30.08.2017 um 21:59:29 von df6gl »  

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Lothar
YaBB Newbies
*
Offline


Zum Glück gibt's leichteres

Beiträge: 27
Oberursel
Geschlecht: male
Re: Datum in Mail umwandeln im US-style mittels Array
Antwort #2 - 31.08.2017 um 12:38:43
 
Ja super! Funktioniert einwandfrei! Vielen Dank!  Durchgedreht
Es gibt in Access Dinge, die werde ich wohl nie kapieren  Traurig

Gruß
Lothar
Zum Seitenanfang
 
 
IP gespeichert
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken