Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,986
Default ((( WARNING ))) Pass it on if you have the courage. €*

I thought Moveon.org had its on web site.

" wrote:

((( WARNING ))) Pass it on if you have the courage. €*

American Soldiers are being killed by our own [[[ Coverment ]]]


9/11 was a inside job, The Iraq War is staged !!!


They need a excuse to stay in Iraq to steal the OIL.


Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil
Barons.


It's NOT a WAR on TERROR ! It's a WAR for OIL !


Sometimes the TRUTH is so ugly we do not want to believe it.
And sometimes the TRUTH is stranger then fiction!
If we do nothing, then we deserve it. Protect your Families.

Form Militia's !!!

" WE MUST RESIST TYRANNY "



Start Calling Our Boys Home from Iraq Right Now !


Our Love Ones are slaughtered for the lack of knowledge !!!


Long Live The Republic. We Must Resist Tyranny.


Sons of Liberty Militia
Tim Stine
312 S. Wyomissing Ave.
Shillington, Pa. 19607 U.S.A.
610-775-0497



The revolution has started !!!
It's time to start over.


http://tinyurl.com/yrk23j


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 155
Default ((( WARNING ))) Pass it on if you have the courage. €*

Hi again,

This works great. One little glitch. If i enter numeric values, all is
well. if i enter non-numeric values, an error fires.

Problem: if i enter data, then remove it, the non-numeric error message
fires. Not good. I want the user to be able to leave the field blank if
they do not have the information.

Suggestions?

Thanks again for your help, i really appreciate it. Code below:


Private Function EvaluateText(anyEntry As String) _
As Boolean

EvaluateText = False ' all is well
If Not IsNumeric(anyEntry) Then
MsgBox "This field accepts numeric data only. Please revise your entry
and try again."
EvaluateText = True ' to be copied to Cancel
Exit Function ' exit with True
End If
'if it makes it to here, it is numeric and
'EvaluateText will be False, which will NOT
'trigger the Cancel in the calling routine, so
'you should move on to the next control now.
End Function


--
Carlee


"JLGWhiz" wrote:

I thought Moveon.org had its on web site.

" wrote:

((( WARNING ))) Pass it on if you have the courage. €*

American Soldiers are being killed by our own [[[ Coverment ]]]


9/11 was a inside job, The Iraq War is staged !!!


They need a excuse to stay in Iraq to steal the OIL.


Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil
Barons.


It's NOT a WAR on TERROR ! It's a WAR for OIL !


Sometimes the TRUTH is so ugly we do not want to believe it.
And sometimes the TRUTH is stranger then fiction!
If we do nothing, then we deserve it. Protect your Families.

Form Militia's !!!

" WE MUST RESIST TYRANNY "



Start Calling Our Boys Home from Iraq Right Now !


Our Love Ones are slaughtered for the lack of knowledge !!!


Long Live The Republic. We Must Resist Tyranny.


Sons of Liberty Militia
Tim Stine
312 S. Wyomissing Ave.
Shillington, Pa. 19607 U.S.A.
610-775-0497



The revolution has started !!!
It's time to start over.


http://tinyurl.com/yrk23j


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 52
Default ((( WARNING ))) Pass it on if you have the courage. ?

Hello Carlee,

I think you have replied to a message in a different thread. I don't
imagine many people will be reading this one for some reason!

MH

"Carlee" wrote in message
...
Hi again,

This works great. One little glitch. If i enter numeric values, all is
well. if i enter non-numeric values, an error fires.

Problem: if i enter data, then remove it, the non-numeric error message
fires. Not good. I want the user to be able to leave the field blank if
they do not have the information.

Suggestions?

Thanks again for your help, i really appreciate it. Code below:


Private Function EvaluateText(anyEntry As String) _
As Boolean

EvaluateText = False ' all is well
If Not IsNumeric(anyEntry) Then
MsgBox "This field accepts numeric data only. Please revise your
entry
and try again."
EvaluateText = True ' to be copied to Cancel
Exit Function ' exit with True
End If
'if it makes it to here, it is numeric and
'EvaluateText will be False, which will NOT
'trigger the Cancel in the calling routine, so
'you should move on to the next control now.
End Function


--
Carlee


"JLGWhiz" wrote:

I thought Moveon.org had its on web site.

" wrote:

((( WARNING ))) Pass it on if you have the courage. ?

American Soldiers are being killed by our own [[[ Coverment ]]]


9/11 was a inside job, The Iraq War is staged !!!


They need a excuse to stay in Iraq to steal the OIL.


Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil
Barons.


It's NOT a WAR on TERROR ! It's a WAR for OIL !


Sometimes the TRUTH is so ugly we do not want to believe it.
And sometimes the TRUTH is stranger then fiction!
If we do nothing, then we deserve it. Protect your Families.

Form Militia's !!!

" WE MUST RESIST TYRANNY "



Start Calling Our Boys Home from Iraq Right Now !


Our Love Ones are slaughtered for the lack of knowledge !!!


Long Live The Republic. We Must Resist Tyranny.


Sons of Liberty Militia
Tim Stine
312 S. Wyomissing Ave.
Shillington, Pa. 19607 U.S.A.
610-775-0497



The revolution has started !!!
It's time to start over.


http://tinyurl.com/yrk23j




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Pass The Formulas Please lsmft Excel Discussion (Misc queries) 3 February 13th 06 01:00 AM
warning: cannot change part of an array. how do I by pass this? Gwyneth Excel Worksheet Functions 3 December 8th 05 11:17 AM
Pass Argument? Hal[_4_] Excel Programming 1 December 5th 05 05:19 PM
How to by-pass password ? meh Excel Programming 6 January 1st 04 05:53 PM
Pass an ADO recordset Quartz Excel Programming 5 December 31st 03 04:07 PM


All times are GMT +1. The time now is 03:06 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"