Microsoft access VBA communication with RS232 Peripherals

Microsoft access VBA communication with RS232 Peripherals

• 1.
  Bill Redirect Send datadirectly in your Microsoft Access Documentation: 18/11/2008 Use this documentation with the product : Bill Redirect 5.0J and more Software configuration and integration service It's free, fast, and efficient ! Submit your case to [email protected] and receive a customized answer ! Our Internet site: http://www.billproduction.com/ Email: [email protected]
• 2.
  This documentation demonstratehow Bill Redirect can sent Serial Scanner (Barcode, Proximity, scale… ) Reader numbers directly in Microsoft Access
• 3.
  Step #1 Download and install Bill Redirect software http://www.billproduction.com/Bill_COMtoKB.ZIP Step #2 Disable all except the Serial Port and File section Set the Serial Port switch to: OFF Set the File switch to: Write
• 4.
  Step #3 Click on button: Configuration Enter the Serial Port Number where your Peripheral is connected Chose the Serial Port Configuration corresponding to your peripheral If the data sent by your peripheral ends with a [ENTER], then enter 13 in the optional field otherwise leave it blank
• 5.
  Step #4 Click on button: Configuration In the field “File:” enter: C:BillProduction.cfgDATETIMESEQ.OUT Click on button: OK Click on button: Save Configuration
• 6.
  Step #5 Microsoft Access Configuration You can download this example via this link: (MS Access 2003 and more) http://www.billproduction.com/MSAccess01.zip The following demonstrates how you can receive Bill Redirect data in Microsoft Access via a timer. 1. Create a sample database Sample.mdb 2. Create a table with 3 fields: Field Name Data Type ID_Barcode Text ID_Date Date/Time ID_Time Date/Time Save this Table to: BillRedirect * Important: Use no Primary Key ! 3. Create a new form and open it in “Design view” 4. Add on this form 3 Text Box: Each Text Box Properties Form example Name Data / Control Source TextBoxBarcode ID_Barcode TextBoxDate ID_Date TextBoxTime ID_Time 5. Set Form properties Data / Source: BillRedirect
• 7.
  Step #6 6. Insertthe following source code: Private Sub Form_Load() Me.TimerInterval = 100 End Sub Public Sub Form_Timer() Call RX_BillRedirect End Sub Public Sub RX_BillRedirect() On Error GoTo BillRedEnd Const TheDirectory = "c:BillProduction.cfg" Dim TheFile As String Dim TheData As String TheFile = Dir(TheDirectory & "*.OUT") If TheFile <> "" Then Open TheDirectory & TheFile For Input As #1 Line Input #1, TheData 'The data is in the variable: TheData '...HERE... ADD COMMANDS TO APPEND DATA TO YOUR TABLE '----[Example]-------------------------------------------- DoCmd.GoToRecord , , acNewRec TextBoxBarcode.SetFocus TextBoxBarcode.Text = TheData TextBoxDate.SetFocus TextBoxDate.Text = Date TextBoxTime.SetFocus TextBoxTime.Text = Time '----[Example]-------------------------------------------- Close #1 Kill TheDirectory & TheFile End If Exit Sub BillRedEnd: Debug.Print Err.Description Close #1 End Sub 7. Close and save the form 8. Open the form in mode “Form View” At this step if your configuration is correct you can see the data received by your serial peripheral appear in Microsoft Access For more information, consult the product manual: http://www.billproduction.com/Bill_Redirect_Manual.pdf Software configuration and integration service It's free, fast, and efficient ! Submit your case to [email protected] and receive a customized answer !