Comments by Member 10804809

Member 10804809 15-Feb-17 7:22am View

Finally I got this step.
I made textbox character length to 7 as every barcode contains 7 character and I put this code in TextChanged Event.

If A1TextBox.Text.Length = 7 Then
A2TextBox.Focus()

End If

So presently not having issue unless the barcode characters are changed.

Member 10804809 15-Feb-17 1:38am View

My scanner mentioned on it."Laser version complies with 21CFR"
Does it seems any relation with the code?

When I scan the barcode with this scanner in Excel, it moves automatically to next row.

Member 10804809 15-Feb-17 1:32am View

The length of the text in textbox may be 5 or 6 or 7 or 8.
So suppose I have A- of 7 character and B of 8 character.
So if I keep it 7 character length then it will capture 7 of A and 1 of B with remaining 7 in next textbox

Another thing how can I know the whether the scanner is having CR or LF or CR-LF?

Member 10804809 14-Feb-17 15:05pm View

Another solution is inserting this code, but the no. in the textbox is always the same-

If A1TextBox.Text.Length = 8 Then
A2TextBox.Focus()

End If

Member 10804809 14-Feb-17 14:58pm View

I got one hint to add Tab key at end of the scan.

How to add Tab key at the end of scan?

I went to this link: https://www.experts-exchange.com/questions/28391135/Scanned-Barcode-to-Visual-Basic-Textboxes-Change-Textbox-Focus-with-Javascript.html

Member 10804809 14-Feb-17 14:49pm View

The each textbox contains a no. e.g. 12345
How can i modify my code (vbCrLf)?

Member 10804809 14-Feb-17 14:23pm View

I tried this method in textbox changed event, but its not shifting to textbox2

Private Sub A1TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A1TextBox.TextChanged
If A1TextBox.Text.EndsWith(vbCrLf) Then
Me.SelectNextControl(A1TextBox, True, True, False, False)
End If
End Sub

Member 10804809 14-Feb-17 10:58am View

Got.

Thanks Bro
Worked fine

Member 10804809 14-Feb-17 10:35am View

I have developed this code but how can apply to all 60 textbox?
If A1TextBox.Text = IDtxt.Text Then
A1TextBox.BackColor = Color.Red
Else : A1TextBox.BackColor = Color.White

End If

Member 10804809 14-Feb-17 7:04am View

Thanks, It worked fine.
One modification-is it possible to highlight the searched value in respective Textbox as I m using 60 Textbox in one form.

Member 10804809 13-Jun-14 3:19am View

Ok I got it.
I am trying to convert my whole project in SQl (SDK) file based.
Hope you please help me in that.
One more thing , is there any way to use my application in common share between three pcs?

Member 10804809 13-Jun-14 3:17am View

Its not the problem with the database file.
How can i share with above mentioned SMB access?
Please tell me the method for this.

Member 10804809 7-Jun-14 8:14am View

I have same question- I have vb.net application and OLeDb database.
I want to Share the database between 3 pc and any pc can update the database by LAN connection.
So is this possible this method-

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\SIS-JES4MPANRS0\C:\Users\Satyam\Documents\Pathology.accdb")

Member 10804809 2-Jun-14 14:18pm View

pl tell me what to do

Member 10804809 31-May-14 8:01am View

Can u just please rewrite my complete code, as i did as per ur suggestion but not able find help.
I just re-write my code as below but it said error as- Name 'conn' is not declared.
my new code as below

Dim commandText = "SELECT COUNT(*) AS FROM ESRRegister WHERE ID = '" & IDtxt.Text & "'"
Using (conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Satyam\Documents\Pathology.accdb"))
Using ("select = New OleDbCommand(commandText, conn)")
conn.open()
Dim count = Convert.ToInt32("select.ExecuteScalar()")
If count > 0 Then

MessageBox.Show("Already Exists!", "ALI ENTERPRISES", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'Your insert code
cmd.CommandText = "insert into ESRRegister (Dt,ID)VALUES ('" & Dttxt.Text & "' , '" & IDtxt.Text & "')"
queryResult = cmd.ExecuteScalar()
MsgBox("Added Successfuly")
End If
End Using
End Using

Comments by Member 10804809 (Top 15 by date)