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>
