Date manipulation

[Daisy509th]

If IsNull(Me.Combo203) Then Exit Sub


strPresentation = "D:\Users\druss\Lauren Concrete\Digtal Libary-DOT Paperwork\Drivers" & Me.Combo203 & "" & DatePart("yyyy", #3/17/2018#) & "TS" & ".pdf"
Me.Text229 = strPresentation

the datepart is returning what i asked it to do which is the year "2018". My problem is I need to return "3172018". DatePart("m""d""yyyy", #3/17/2018#) and this doesnt work.

I also need to be able to do this from an unbound textbox with a datepicker.

Thanks

[isladogs]

If you are hard coding the date, you may as well write the value 3172018 yourself.
Otherwise use

Format([DateField],"mdyyyy")

[Daisy509th]

DatePart("yyyy", Textbox197) I am trying to pull this from a textbox because the user will be picking different dates.I need "3172018" and the next time it maybe "412018". This is the naming nomenclature for the .pdf

[isladogs]

I assumed that was the case.
DatePart function are used to pull one section of a date field e.g. DatePart("yyyy", Textbox197) ; DatePart("m", Textbox197)
As already explained, to modify the order of the whole date field, use

Format([DateField],"mdyyyy")

[Micron]

I think what's wanted is like this (modified so as to not make one looonnnnngggg expression

Dim strMonth As String, strDay As String, strYear As String

strMonth = Month(#3/17/2018#)
strDay = Day(#3/17/2018#)
strYear = Year(#3/17/2018#)

strPresentation = "D:\Users\druss\Lauren Concrete\Digtal Libary-DOT Paperwork\Drivers" & Me.Combo203 & ""
strPresentation = strPresentation & strDay & strMonth & strYear & "TS" & ".pdf"

not that I get the reason for concatenating an empty string. I think the functions I used are a bit more succinct than DatePart.

[Daisy509th]

Private Sub cmdTeamSummaryDates_Click()


Dim strMonth As String, strDay As String, strYear As String, strPresentation As String


strMonth = DatePart("m", Me.Combo197)
strDay = DatePart("d", Me.Combo197)
strYear = DatePart("yyyy", Me.Combo197)


If IsNull(Me.Combo233) Then Exit Sub


MsgBox Me.Combo233
strPresentation = "D:\Users\druss\Lauren Concrete\Digtal Libary-DOT Paperwork\Drivers" & Me.Combo233 & "" & ""
strPresentation = strPresentation & strMonth & strDay & strYear & "TS" & ".pdf"
Me.Text229 = strPresentation




End Sub

Thanks for the help

[Micron]

I take it that problem is solved.
Interesting that you stuck with the DatePart function. Just a matter of preference, I suppose.
Wondering - 6 months or maybe longer from now, will you be able to quickly differentiate between combo197 and combo223 without having to read through your code to figure out which is holding what info? You might want to consider using a more intuitive naming convention.

[Daisy509th]

Dim strMonth As String, strDay As String, strYear As String


strMonth = Month(#3/17/2018#)
strDay = Day(#3/17/2018#)
strYear = Year(#3/17/2018#)


strPresentation = "D:\Users\druss\Lauren Concrete\Digtal Libary-DOT Paperwork\Drivers" & Me.Combo203 & ""
strPresentation = strPresentation & strDay & strMonth & strYear & "TS" & ".pdf"

I couldn't get this to work. I put me.Combo197 where #3/17/2018# was but it didnt return part of the date.
You are also correct about the naming so I am going through and naming things with a more intuitive name.
I dont know if you can help me with error correction but I have just read I need to be doing that also

[Micron]

I put me.Combo197 where #3/17/2018# was but it didnt return part of the date.

Always post what you tried if you want help or info about it, and be specific about where you tried it, otherwise, we're just guessing. When using this function in vba, you can do what you did as in
Msgbox Year(Me.Combo197), but in sql, delimiters are usually required when using references whose data type is a date or text. However, what I see doesn't appear to be sql, but rather is a string variable that represents a file path, so I don't see date delimiters being required. Note also that if you have created a variable for something, it's usually more efficient to use it rather than a control reference. Meaning you have strYear, or strMonth, or strDay so why use Me.Combo197 instead?

strPresentation = "D:\Users\druss\Lauren Concrete\Digtal Libary-DOT Paperwork\Drivers" & strYear & ""...

Don't know what you mean by "error correction". You mean error trapping?