Scott,
Actually that would work with the lowercase. I tried this though
If me.text = "Y" or me.text = "y" then .....
cant do the key because I want the option for them to be able to
change thier mind unless
hitting enter which finalizes everything.
some bad programming in rs for case statements
I removed the case and it works now putting something like this
Only when the enter key is hit do I return true so as not to pass
that down any further,
if it is a normal key that is either y or n or that is delete or
arrows I allow that to pass through.
I dont return false at the end becasue I believe that is a default
action. You are going to make me
cry I'm broke broke broke : ( Its a same to have to buy another
version when they all should produce
good executables. You would think.
Thanks Scott for you input!
Josh
On Apr 18, 2006, at 12:24 PM, Scott Thompson wrote:
Another thing to try is something like this:
Key = Lowercase(Key)
Then only check for "y" and "n" ... maybe that will help.
Also, did you intend to Return False sometime? It looks like all
situations
Return True.
Compiling cross-platform can be tricky. I finally broke down and
just got
the Professional Version on both platforms... made my life a bit
easier
when debugging Windoze. :-(
-Scott
On Apr 18, 2006, at 11:02 AM, Joshua Demori wrote:
Yes I limit text to 1 character and there is no mask as the case
should , should yet now it doesn't check the uppercase N
yet senses a lowercase n very strange, yet i got it to work again
weird as it may sound (not for rs) is that by placing another
editfield that was not visible or is visible and put some dumb
data text into it as it is checking certain things it works or
even if I put msgboxs. Building with mac2006r2 for windows. This
is really bad programming to have these weird dependencies.
Ive spent two days sorry if Im a little upset when something
worked before.
On Apr 18, 2006, at 11:55 AM, Scott Thompson wrote:
You may want to make sure there is exactly ONE character in the
editfield.
If (somehow) you are typing 'N' and it is appending to the
previous field contents
then Case "N" will not match, etc.
Are you using an Editfield mask? I have seen some weirdness with
those across
different platforms. In particular using the "<" and ">" in the
mask in order to
force case.
BTW, which platform are you talking about here? Mac or PC or LINUX?
-Scott
On Apr 18, 2006, at 10:38 AM, Joshua Demori wrote:
Lets continue with this...
In the Case Statement In one place it sees a Capital Y
Yet in the second case it dosent see a Capital N but will only
take notice of a lowercase n
Whats going on. This is clearly an error in RS side. I would
like at least some feed back.
Thank you
Josh
On Apr 18, 2006, at 11:15 AM, Joshua Demori wrote:
ALSO ALSO
If one puts a MsgBox after the code which says if asc(key) = 13
for some reason it works
why should it have to call a message box to realize you pressed
an enter key
whats going on? Is there some evolutionary process being done
in code?
If you put a message box infront of
On Apr 18, 2006, at 10:58 AM, Joshua Demori wrote:
Hello,
Again RS has changed some functionality which worked
previously only to cause problems now.
Help. Anyone have something like this...
I make an editfield visible after the user finishes entering
information on the current window.
I then setfocus to it.
Yet when you hit enter key to accept the Y or N that was
entered I only get a beep sound. Its really got me infuriated
at this point only because it worked before. The code is
rather simple as shown bellow
It makes sure certain keys are allowed or not
then it goes to write the record.
Heres the doozer.
If I add another editfield that within that editfield displays
test conditions it works fine.
Yet by itself it doesn't do anything but beep when hitting
enter. My feeling is somehow the enter key is causing the
problem by not being recoginized correctly.
Anyone Anyone have any ideas.
Dim rs As RecordSet
Dim search_string As String
Dim test As Boolean
Dim x As Integer
test = False
//-------------------------------------//
// CHECK KEYS
Select case Key
Case "Y", "N", "y", "n"
test = True
end Select
Select case asc(Key)
Case 13, 8, 28, 29
test = True
end Select
if test = True Then
//-------------------------------------// START OF ACTION
if asc(Key) = 13 Then
Select Case me.Text
Case "Y", "y"
if verifiy_input_entry() = True Then // makes sure
form is filled out correctly
write_record() //store data
update_table_view() // change a table view
clear_input_entry() // clear form for
next data set
input_field_sub(IN_LOT).SetFocus() //set
focus to begining of form
me.Visible =
False //get rid of
this prompt a
display_correctEntry.Visible = False //
get rid of this prompt text b
Return True
Else
// did not enter all fields
MsgBox "Please Complete Nessecary Fields!"
input_field_sub(IN_LOT).SetFocus()
me.Visible = False
display_correctEntry.Visible = False
Return True
End If
Case "N", "n"
me.Visible = False
display_correctEntry.Visible = False
input_field_sub(IN_LOT).SetFocus()
Return True
End Select
End If
//-------------------------------------// END OF ACTION
Else
Return True
End If
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
