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>
