Group:  Microsoft Word ยป microsoft.public.word.vba.userforms
Thread: Dtpicker commands

DotNetBag
.NET Development Newsgroups

HTVi
TV Discussion Newsgroups

Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Rising Antivirus 2006

Dtpicker commands
chris.sommerville[ at ]zinifex.com 06.07.2006 02:57:08
Hi All I am trying to link 2 dtpickers so that the From date
(dtpicker1) can never be bigger than the To date (dtpicker2), which is
defaulted to Now on Worksheet_activate.

SO i am wondering if there is a on change command for the dtpicker so
that when a change is made if dtpicker1.value<dtpicker2.value then
msgbox....... set dtpicker1.value = dtpicker2.value.

Regards

Stopher

Re: Dtpicker commands
"Charles Kenyon" <wordfaq[ at ]nospam.addbalance.com> 06.07.2006 16:16:48
You might want to ask this in an Excel newsgroup rather than a Word
newsgroup.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!

My criminal defense site: http://addbalance.com
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.


<chris.sommerville[ at ]zinifex.com> wrote in message
news:1152154628.902316.119620[ at ]j8g2000cwa.googlegroups.com...
[Quoted Text]
> Hi All I am trying to link 2 dtpickers so that the From date
> (dtpicker1) can never be bigger than the To date (dtpicker2), which is
> defaulted to Now on Worksheet_activate.
>
> SO i am wondering if there is a on change command for the dtpicker so
> that when a change is made if dtpicker1.value<dtpicker2.value then
> msgbox....... set dtpicker1.value = dtpicker2.value.
>
> Regards
>
> Stopher
>


Re: Dtpicker commands
Helmut Weber <nbhymsjxdgcn[ at ]mailinator.com> 07.07.2006 11:10:27
Hi Stopher,

Private Sub DTPicker1_Change()
If DTPicker1.Value < DTPicker2.Value Then
DTPicker1.Value = DTPicker2.Value
End If
End Sub

or am I missing something?

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"


Home | Search | Terms | Imprint | Contact
Newsgroups Reader - provided by WiredBox.Net