Click A Command Button When "ENTER" Is Pressed In A Text Box?

Question

shena 0 Junior Poster in Training

13 Years Ago

Hi all,
I have two textboxes only in a form. At textbox1, upon pressing enter/carriage return it suppose to setfocus to textbox2 instead it's performing textbox2's keypress event by calling a command button. How to handle this? Where am i doing wrong? Please help.

Private Sub txtSNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'if ENTER or carriage return then move to next text box
    txtRMANo.SetFocus
End If
End Sub

Private Sub txtRMANo_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Chr(13) Then 'if ENTER or carriage return then call print command button
    Call cmdPrint_Click
End If
End Sub

visual-basic-6

4 Contributors
13 Replies
2K Views
1 Week Discussion Span
Latest Post 13 Years Ago Latest Post by AndreRet

All 13 Replies

cguan_77 8 Nearly a Posting Virtuoso

13 Years Ago

have you tried taking out the if else statement on txtRmano command button? try below:

Private Sub txtSNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'if ENTER or carriage return then move to next text box   
 txtRMANo.SetFocus
End If
End Sub

Private Sub txtRMANo_KeyPress(KeyAscii As Integer)
'If Chr(KeyAscii) = Chr(13) Then 'if ENTER or carriage return then call print command button
    Call cmdPrint_Click
'End If
End Sub

Edited 13 Years Ago by cguan_77 because: n/a

cguan_77 8 Nearly a Posting Virtuoso

13 Years Ago

actually, you want to programatically click the button or what?
or you can try this:

Private Sub txtSNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'if ENTER or carriage return then move to next text box    
'txtRMANo.SetFocus instead of set focus try this
'i assume that the button is under a form named form1

form1.controls("txtRmano").value = True

End If

End Sub

robert_c_guy 12 Newbie Poster

13 Years Ago

Also, Have you set the KeyPreview property of the form to true? (in the properties dialog of the gui or directly in the *.frm file under "Begin VB.Form" set "KeyPreview = -1" for true) otherwise, I believe, the KeyPress events get digested before they can filter through to the handlers for individual objects on the form.

AndreRet 526 Senior Poster

13 Years Ago

Call the command print by its value.

Private Sub txtRMANo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'if ENTER or carriage return then call print command button
    cmdPrint.Value = True
End If
End Sub

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

shena 0 Junior Poster in Training · Answer 1 · 2010-11-25T15:06:45+00:00

Hi guys, thanks a lot for the replies. I found out the actual problem. It's due to the barcode scanner which scans and then executes "ENTER" twice (2X of carriage returns) at the first textbox (txtSNO). So, that's reason why it calls print command once i scan. Is there any way to stop such an execution? I would like to run the program logic as it is. How to accomplish this?

AndreRet 526 Senior Poster · Answer 2 · 2010-11-25T17:14:50+00:00

Why does it execute the print event twice? It must be in your code somewhere where you have a call to the print event as well as under your textbox change event.

Post us some code, let's have a look.:)

shena 0 Junior Poster in Training · Answer 3 · 2010-11-26T06:53:48+00:00

Not the print event, but "ENTER" twice.
This is the whole thing:

Private Sub cmdPrint_Click()
Dim sno As String

    If (Me.txtSNO.Text = "") Then
    MsgBox "Please scan the Serial Number!"
    txtSNO.SetFocus
    Exit Sub
    ElseIf (Me.txtRMANo.Text = "") Then
    MsgBox "Please enter RMA#!"
    txtRMANo.SetFocus
    Exit Sub
    End If
    
    sno = Me.txtSNO.Text
    
    strSql = "select * from MODEL_MASTER where PARTNUMBER like '" & sno & "'"
    Set rs = New ADODB.Recordset

    Call ConnectDB
    rs.Open strSql, DB, adOpenStatic, adLockOptimistic

    If rs.RecordCount <> 0 Then
        getPartNumber = rs.Fields!PartNumber
        getModel = rs.Fields!model_name
    Else
        MsgBox "The corresponding part number doesn't exist! ", vbInformation
        txtSNO.Text = ""
        txtSNO.SetFocus
        Set rs = Nothing
        Exit Sub
    End If
    
    Call Print_Label
    
End Sub

Sub Print_Label()

Dim serialNumber, RMANo As String

serialNumber = txtSNO.Text
RMANo = txtRMANo.Text

'Open the port:
Open "LPT1" For Output As #1

'Print directly to it:
    Print #1, "^XA^FO60,20^BY2^B3N,N,56,N,N^FD" & getPartNumber & "^FS^FO140,80^ADN,36,20^FD" & getPartNumber & _
              "^FS^FO15,127^BY2^B3N,N,56,N,N^FD" & serialNumber & "^FS^FO110,187^ADN,36,20^FD" & serialNumber & _
              "^FS^FO95,234^BY2^B3N,N,56,N,N^FD" & getModel & "^FS^FO135,296^ADN,36,20^FD" & getModel & _
              "^FS^FO121,341^BY2^B3N,N,56,N,N^FD" & RMANo & "^FS^FO241,401^ADN,36,20^FD" & RMANo & _
              "^FS^FO121,401^ADN,36,20^FDRMA" & "^FS^XZ"

'Close the port:
Close #1

Me.txtSNO.Text = ""
Me.txtRMANo.Text = ""

Me.txtSNO.SetFocus

End Sub

Private Sub txtSNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'if ENTER or carriage return then move to next text box
    txtRMANo.SetFocus
End If
End Sub

Private Sub txtRMANo_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Chr(13) Then 'if ENTER or carriage return then move to next text box
    Call cmdPrint_Click
End If
End Sub

Could it be that i need to remove one carriage return/line feed from the scanned value? Because i tried scanning at text file and the cursor jumped 2 lines. So, in my case the first carriage return focuses txtRMANo textbox and the second carriage return calls the cmdPrint_click i guess. Whenever i scan at txtSNO textbox, i get prompted with "Please enter RMA#" message as you can see in my code.

cguan_77 8 Nearly a Posting Virtuoso · Answer 4 · 2010-11-26T14:09:03+00:00

hi shena, if your scanner scans and executes enter twice, i guess you might need to make some logic in your code. Please check code below but not so sure whether this one will work, but maybe you can get idea from this:

Private Sub txtRMANo_KeyPress(KeyAscii As Integer)
Dim i As Integer

If Chr(KeyAscii) = Chr(13) Then 'if ENTER or carriage return then move to next text box

i = i + 1 

If i = 1 then  'check if enter has been pressed once else don't execute print
    Call cmdPrint_Click
 Else
End If   

End If

End Sub

AndreRet 526 Senior Poster · Answer 5 · 2010-11-26T14:20:08+00:00

If rs.RecordCount <> 0 Then
getPartNumber = rs.Fields!PartNumber
getModel = rs.Fields!model_name
Else
MsgBox "The corresponding part number doesn't exist! ", vbInformation
txtSNO.Text = ""
txtSNO.SetFocus
Set rs = Nothing
Exit Sub
End If
Call Print_Label

Change the code above to this -

If rs.RecordCount <> 0 Then
        getPartNumber = rs.Fields!PartNumber
        getModel = rs.Fields!model_name

        Call Print_Label
        Exit Sub
    Else
        MsgBox "The corresponding part number doesn't exist! ", vbInformation
        txtSNO.Text = ""
        txtSNO.SetFocus
        Set rs = Nothing
        Exit Sub
    End If

Let me know if it worked.:)

shena 0 Junior Poster in Training · Answer 6 · 2010-11-26T16:02:45+00:00

Hi cguan, i tried adding the checking method, but no difference. It still calls the cmdPrint once i scan.

AndreRet, i changed the code and it just prints as usual and executes the "ENTER" twice.

Any idea guys?

AndreRet 526 Senior Poster · Answer 7 · 2010-11-26T23:13:26+00:00

I'll see if I can solve this for you tomorrow. WEEKEND YAHOOOO!!!:)

AndreRet 526 Senior Poster · Answer 8 · 2010-11-29T16:21:35+00:00

As a matter of interest, why are you using LPT1 port and not just "Printer.Print"?

AndreRet 526 Senior Poster · Answer 9 · 2010-11-29T16:24:39+00:00

Also try the code when you remove the "" from "LPT1"

Click A Command Button When "ENTER" Is Pressed In A Text Box?

Recommended Answers Collapse Answers

All 13 Replies

Recommended Answers