Bar Code Scanner
May 16, 2005I'm in the US military. I would like to use the bar code on the back of the military IDs to populate an access database. Can you point me in the right direction as to how to get started?
Thanks in advance
ADVERTISEMENT
Using A Barcode Scanner
Sep 5, 2006Yep, I'm a newb.
I have a Symbol long range barcode scanner. Works great. I need to drop this in access and have it update as input (without hitting enter every time). I am reading barcodes with serial numbers and part numbers.
Anybody got anything to help?? Pweeease?
Thanks in advance!
RevJohnny
Barcode Scanner Drivers
Nov 25, 2005Help!!
Does anyone know where I can obtain a driver for a barcode scanner that has model details:
Metrolgic MS951 KB Wedge
If anyone knows a specific website that has the drive it would be much appriciated if you could post it here.
Many thanks
Regards
Jason_Hyde
Business Card Scanner
Nov 17, 2006I want to use a business card scanner, and use the data for my Access 2000 order database. Most card scanners, can send data to Outlook, can you go from Outlook to Access? Any advise would be appreciate it . . . THANKS!:o
View 2 Replies View RelatedBarcode Scanner Input Question
Jun 17, 2006OK... Did some searching and posted one question on forms... But still have one important question that has not been answered. First let me say I want to use a scanner connected via USB. ( I need to be able to use this app on a laptop, so keyboard wedge is not possible) Found a quote on a site "TalTech"... Something like that...... This one..
"1) Keyboard Wedge output or USB output
If your bar code scanner has Keyboard Wedge output or USB output you will not need special data collection software. Both these outputs will dump the data right into the foreground application on your PC wherever the cursor is flashing, as if it were being typed in. You do not usually get much control except for the addition of a trailing keystroke, such as an ENTER key, to your data. But these methods are very simple and work fine for many people."
Question is...... Is this true??? Will the USB input directly to the field I want it to?? I just need someone with some experience in this to let me know for sure.
Thanks
Curtis
Search For Barcode With Scanner As Input
Oct 26, 2004I have created a form that I would like to search for a barcode by using a scanner as an input device. Does anyone know how to go about doing this?
The form basically holds a subform of textboxes that have barcodes. I want the user to be able to scan a barcode which will then find that barcode in the subform and assign it with a DateOut = Date() ...
Forms :: Using A Scanner To Populate A Form
Oct 22, 2013I have a table which contains 2 fields. UserID and FullName..Each employee is assigned a barcode (UserID) and what I would like is when they scan their barcode into the form their name comes up. There is a second table containing records of documents and I am hoping that this form will allow an employee to scan their ID, their name comes up, scan a document and the title of the document comes up, there would be a current date box and then that whole transaction is saved as a record in another table. Long story short I want to know who is accessing what records and to have it logged.
View 5 Replies View RelatedForms :: Text Box With Barcode Scanner
Apr 11, 2013This question is related to a restaurant POS system design. Is there a way to allow a text field in a form to be filled by a scanner only, unless an event is triggered? Rather than using a magnetic strip ones for gift cards, we're thinking of using the bar code version. However, to prevent employees from fraudulently entering the six digit code, the code must be inputted by a scanner. We do also would like to allow user input with keyboard in case scanner malfunctioning, but would require a "manager" login first.
View 3 Replies View RelatedGeneral :: Integrating Scanner Into Inventory DB?
Aug 7, 2015I have scanner (Unitech MS335-1G) and my end goal is to scan a product number bar code on a box into a field on a form. Then from what is scanned into the box run a query on another table that has all the info on the product. Then populate other fields on the form.
View 2 Replies View RelatedNeed Quick Answer To Barcode Scanner Question...
Jun 15, 2006Didn't know where to post this one...... But forms seemed logical..... I am doing some experimenting with using a barcodes. I can create them now, no problem. My next step is using a scanner to input to a textbox...... Problem isn't with the forms..... But more with the scanners. I thought if someone has done one of these DB's they might know.
So........ I need a cheap scanner to test with.... Found a few on Ebay. The cheapest being a Symbol- "Hotshot" LS2100-I000.Says it has "DB9" plug. The ebay ad says "comes with NO software". Only thing I am wondering about are drivers. I've read in a couple places claims that this scanner "Needs NO drivers"
So my question is.... Would this scanner work with Access on a Windows XP system? No drivers needed?
Hope this question isn't too "off the subject" But I am dealing with Access and hoping someone has done this.
Thanks
Curtis
Forms :: Barcode Scanner To Launch Another Form
Mar 7, 2014Still working on an meeting registration app in Access. I have a Main menu which contains buttons that allow search by Name, Phone Number, or Account Number. We are using barcode scanners if they have a registration card.
Currently I have an account button which pops up a query prompt window and when they scan the code it fills the prompt with their account number and a carriage return, pulling up an account registration form with their info.
What I would like to do is from the main form, if a barcode is scanned, to automatically lauch the account form passing the scanned account number.
Modules & VBA :: Scan PDF Document From Scanner And Attach It To Field
Oct 12, 2014I have hp scanner whose twain driver has the option to scanning in the pdf document.
Microsoft WIA 2.0 have save scanned document only to graphical format.
I want automated (on click any button control) to scan multipage document from glass source or ADF to pdf document and attach it to attachment field.
I'm found VB Module for accessing TWAIN compatible scanner but it is call twain software and scan to bmp format with assigned name of file.
Me need it also only use the pdf format .
Forms :: Barcode Scanner Stopped Updating Form
Nov 17, 2014I am using Access 2003 and there is a from with barcode scanner to update the shipping data. This form has a sub-form which is working perfectly fine and updating data but the barcode scanner assigned with main form stopped working today. I tried different scanner too and different system too but its not working.
View 5 Replies View RelatedGeneral :: Text Box Event Coding - Jump To Next Field After Using Barcode Scanner
May 20, 2015I am creating a inventory database for work. I am trying to get the cursor to jump to the next text box for data entry using a barcode scanner. I have a limit on how many characters there can be in this field but yet even after it is all filled the cursor stays in that same field. I am fairly new to access, especially in code building. Do I use "After Update" under "Event" in the "Property Sheet"?
Capture.PNG
Capture1.PNG
Capture2.PNG
Capture3.PNG
Please Review This Code, (simple Code) New With Codes
Feb 16, 2006Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
Using Code To Unprotect And Protect Viewing Code
Jan 14, 2007I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Thanks
SHADOW
Code Help Please!
Apr 27, 2005I have a button that runs a macro to insert NOW() into a text box.
This is how it is coded;
Private Sub Start_transferred_job_button_Click()
On Error GoTo Err_Start_transferred_job_button_Click
Dim stDocName As String
stDocName = "Start transfered job"
DoCmd.RunMacro stDocName
Exit_Start_transferred_job_button_Click:
Exit Sub
Err_Start_transferred_job_button_Click:
MsgBox Err.Description
Resume Exit_Start_transferred_job_button_Click
End Sub
How do I write the code to populate the [start Time] text box with NOW() when the button is clicked without using a macro???
Need Help With Code
Nov 22, 2005Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error.
My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String
stDocName = "Qry-Makes Table"
DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then
MsgBox " There is no data for this time frame to chart. Please re-enter your Date range"
Exit Sub
Else
Thanks
jon
Need Help With Code
Nov 22, 2005Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error.
My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String
stDocName = "Qry-Makes Table"
DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then
MsgBox " There is no data for this time frame to chart. Please re-enter your Date range"
Exit Sub
Else
Thanks
jon
Code Help?
May 19, 2006I use the code below on a search form. I would like for the results of the list box search to populate a report instead of the list box. Is it possible to take the the sql and move it to a report? Thanks..
Dim strsql As String, strOrder As String, strWhere As String
Dim dbNm As Database
Dim qryDef As QueryDef
Set dbNm = CurrentDb()
strsql = "SELECT SiteIssues_tbl.IssueID, SiteIssues_tbl.SITE_ID, SiteIssues_tbl.IssueID, SiteIssues_tbl.AdminDate, SiteIssues_tbl.Occurring, SiteIssues_tbl.Issue, SiteIssues_tbl.Administrative, SiteIssues_tbl.Technical, SiteIssues_tbl.IssueComments, SiteIssues_tbl.CandidatesAffected, SiteIssues_tbl.RecordCreated, SiteIssues_tbl.User, SiteIssues_tbl.DateModified " & _
"FROM SiteIssues_tbl"
strWhere = "WHERE"
strOrder = "ORDER BY SiteIssues_tbl.AdminDate;"
'Set the WHERE clause for the QueryDef if information has been entered into a field on the form
If Not IsNull(Me.txtIssue) Then '<--If the textbox txtCenterName contains no data THEN do nothing
strWhere = strWhere & " (SiteIssues_tbl.Issue) Like '*" & Me.txtIssue & "*' AND" '<--otherwise, apply the LIKE statment to the QueryDef
End If
If Not IsNull(Me.txtAdminDate) Then
strWhere = strWhere & " (SiteIssues_tbl.AdminDate) Like '*" & Me.txtAdminDate & "*' AND"
End If
If Not IsNull(Me.txtSite) Then
strWhere = strWhere & " (SiteIssues_tbl.SITE_ID) Like '*" & Me.txtSite & "*' AND"
End If
'Pass the SQL to the RowSource of the listbox
Me.lstSearchResult.RowSource = strsql & " " & strWhere & "" & strOrder
With Me.lstSearchResult
If .ListCount > 0 Then
GetListCount = .ListCount - 1 'Headings count
Else
GetListCount = 0 'Headings don't count if no items listed!!
End If
Me.Text31 = .ListCount - 1
Dim ctl As Control
End With
If Me.Text31 = -1 Then
Me.Text31.Value = 0
Me.lstSearchResult.RowSource = ""
DoCmd.RepaintObject acForm, "SitesIssues_qry"
Me.Requery
MsgBox "No Records Found."
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then
ctl.Value = Null
DoCmd.RepaintObject acForm, "SitesIssues_qry"
Me.lstSearchResult.RowSource = ""
Me.Requery
End If
Next ctl
End If
VBA Code
Jun 1, 2006I have written the code below, which should work, however I am receiving an Error: Run Time Error '13' Type mistmatch on line:
Set cn = Application.CurrentProject.Connection.
Can anyone help?
Option Compare Database
Option Explicit
Private Sub cmdRun_Click()
Dim NICode As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim strSQL As String
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
NICode = "txtLetter"
strSQL = "SELECT " & NICode & "1a, " & NICode & "1b, " & NICode & "1c, " & NICode & "1d & NICode & "1g & NICode & "1h FROM [WorkPlace NI Breakdown]"
rs.Open strSQL, cn
If Not (rs.EOF And rs.BOF) Then
MsgBox rs.Fields(NICode & "1a")
MsgBox rs.Fields(NICode & "1b")
MsgBox rs.Fields(NICode & "1c")
MsgBox rs.Fields(NICode & "1d")
MsgBox rs.Fields(NICode & "1g")
MsgBox rs.Fields(NICode & "1h")
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
A Code
Jan 3, 2007Hi all,
I have code bellow which is bringing a tab called Heffalump from the excel spreadsheet into table. Now, what I need is to create a text box where I will be typing PI1228131313 and it's going to be changed in the code bellow.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test Import Specification", "K:FIDCPGCCGPI1228", True, "Heffalump!"
THANKS,
B
A Code
Jan 3, 2007Hi All,
I have a code bellow which takes data from Excel spreadsheet and puts it into table in access. I want to see this code in txtbox and be able to change the path's.. Please advice. I tried typing.. Me.mytextbox.value = but for some reason doesn't work..
Should I use Ufter Update or something like that..?
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test Import Specification", "K:FIDCPGPI1206", True, "Heffalump!"
Any Help With My Code;
May 3, 2007Hi,
I 've converted the code to ADO method. It was working fine in DAO but know I get the following error and i can't figure it out the soloution.
Run-time error ‘3265’
Item cannot be found in the collection corresponding to the requested name or ordinal
Function ChangeQuantUnit(Material, quant_a, unit_a, unit_b)
Static M As New ADODB.Recordset
Static Mat_SQL As String
ChangeQuantUnit = 0
Mat_SQL = "SELECT SAP_Materials.Material, SAP_Materials.K, SAP_Materials.Base_K, SAP_Materials.KG, SAP_Materials.Base_KG, SAP_Materials.MTR, SAP_Materials.Base_MTR, SAP_Materials.ST, SAP_Materials.Base_ST FROM SAP_Materials WHERE (((SAP_Materials.Material)=""" + Material + """));"
M.Open (Mat_SQL), CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If unit_a = "LB" Then
ChangeQuantUnit = (quant_a / 2.2)
Else
If M(unit_a) * M("BASE_" + unit_b) > 0 Then 'this is the line that crashes
ChangeQuantUnit = quant_a * M(unit_b) * M("BASE_" + unit_a) / (M(unit_a) * M("BASE_" + unit_b))
End If
End If
M.Close
End Function
Can Anyone Help With This Code Please
May 8, 2007Can anyone help with this code please. I keep getting Error 13, type mismatch on the on click event of a Command button.
Private Sub Command6_Click ()
Dim tmpFilePath AS String
tmpFilePath = Me!Text1
DoCmd.DeleteObject acTable, "Expire"
DoCmd. TransferDatabase_ acImport,"MicrosoftAccess",acTable,"tmpFilePath","Expire","Expire",False
End Sub
What I am trying to do is delete a table and replace it with a table of the same name in another db. the path to the file is stored in Text1. The delete part works OK then the error message arrives, when I run it with a static file path it worked ok, but I want to pick up the path stored in Text1 on my form.:confused:
Thanks for your help
To Code Or Not To Code.
Mar 21, 2007In the database I am creating a table that houses “subjects’ names” and their “unique IDs”, which are both indexed with no duplicates. The Unique ID is used as a FK to connect all the tables that contain information from the subject. When subjects are enrolled in one of our studies they are assigned a “Unique ID”, which is assigned sequentially. The IDs are alphanumeric, and consists of 4 characters with the first character being a letter:
A001, A002…A999, B001, B002…C001 etc.:
To help avoid data entry errors, I would like to automate the process of assigning these Unique IDs as much as possible. So my question is:
Is it better to manually insert all the possible Unique IDs into this table upfront and then use a code that allows the user to assign the next Unique ID to the subjects they are enrolling (ie search the subject names column for the first null field and enter value there)? Or would it be better to set up a code that looks through the IDs that are already in the list and then automatically generates and assigns the next sequential ID to the person they have entered.
Also, where might I find some pre-established code to get me heading in the right direction?
Thanks in advance!:D :confused: :confused: