show messagebox on duplicate date

[Spoeser]

Hee everyone,


i have this working userform

Please Login or Register  to view this content.

but now i want a messagebox to popup when there is a duplicate date entry
and a messagebox when the date entry went successful

could somebody show me the way?

thx in advance

[Sintek]

Hi Spoeser

What must be date entry i.e. Me.DTPicker1.Value be compared to to see if there is a duplicate.

[Sintek]

Something like this

Please Login or Register  to view this content.

[Spoeser]

hee sintek

the DTPicker1.Value is a datestamp i.e. 01-04-2017

i want a messagebox to popup when i already have a value on that day
does that make sense

thx in advance

[Sintek]

Hi Spoeser

Not sure what you mean

i already have a value on that day

What are we comparing to.....Where would the date value be indicated to make the check. Would it be in the date column on the row before lastrow?

[Sintek]

If That is the case then this will work

Please Login or Register  to view this content.

[Spoeser]

im sorry for the bad discription but i have a hard time to explain my issue

that last code almost worked for me, but i tested it more and found that its not.

as you can see below there is a duplicate date in column E (13-04-2017) and it still says "Date entry succesful"




messagebox.jpg


i also want when there is a duplicate date the session is closed after the "Duplicate Date" msgbox and no data is saved from the userform.

is this possible??

thx in advance

[Winon]

Naand Spoeser,

Please could you attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate.

Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Baie Dankie.

[Spoeser]

i have atteched a sample of my userform.

also 2 pictures of how the situation is right now and how i whould like it to be

i hope this make sense with the rest of my story above

thx guys

[bakerman2]

Try this one.

Please Login or Register  to view this content.

[Sintek]

@bakerman2

Nice one

[Winon]

My machine runs with Windows 7 Office 2010, and I don't have DTPicker available.

[Spoeser]

Try this one.

Please Login or Register  to view this content.

This was what i was looking for

thx Bakerman2

[bakerman2]

You're welcome and thanks for rep+.