I don´t think you have to run the keyboard through the wedge.
You just put the wedge from scanner in the PS2 keybord connector on computer and the keyboard to USB.
When I changed the line
Dim stSQL As String = "SELECT DISTINCT T1, T2, T3 FROM [" & SheetName& "C:E]"
to
Dim stSQL As String = "SELECT DISTINCT * FROM [" & SheetName & "C:E]"
I don't need to have headers in the columns anymore.
The worksheet has ~20000 rows in 8 columns, only columns C, D...
I'm working on an application that need to read info from a Excel-file. The file is distributed to a number of clients where the application should run. I can´t affect the file before distribution. If the sheet I want to read is named Sheet1 everything is fine but if the sheet is named Sheet 1 i...
I have a set of functions to do calculations on date, holidays and date spanns.
The function WrkDate test if a given date is a Working day or (swedish) public holiday/weekend.
The function Endday takes a startdate and a spann to calculate the Endday
Public Function WrkDay(ByVal InDate) As...
The easiest way is to create a database with the information and an IDNumber to all records, The badge or what you want to print has a bar code that only includes the IdNumber. When you scan the bar code you lookup the extra info in the database. To do that you need a computer with access to the...
I have for along time used Citrix Clients for connecting to a Citrix server. This has worked well in both Windows and Linux. Ubuntu has been my primary OS for over a year.
When Kubuntu 8.10 where released some time ago I tried it and decided to use it as my primary OS. As there is no 64-bit...
How do you generate the values to be printed on the label?
Perhaps you can create two fields on the label, one barcode without human readable and a separeta textfield. When you send the values you first send the value for the barcode and then the barcode value again only the last X characters.
Select A1 > Select columns A:B > Start entering you values. They will appear in A1, B1, A2, B2, A3 ...
The lue is to have the columns selected when you enter the values.
In the documentation to the scanner you should have a page with codes to scan to make changes in the scanner setup. With these codes you can add prefix and suffix as CR Tab and others like changing beep levels.
Try
qry$ = "SELECT OEORDHDR_SQL.ord_no, OEORDHDR_SQL.shipping_dt FROM OEORDHDR_SQL WHERE OEORDHDR_SQL.ord_no >= '" & macForm.StartingOrderNo.Text & "' AND OEORDHDR_SQL.ord_no <= '" & macForm.EndingOrderNo.Text & "'"
RS.Open qry$
That makes four '
I need help with trapping events in two different VBA-projects.
1. I have form in Access with an (Microsoft) ActiveX-control MonthView.
How to trap the event when a user change month?
2. In MS Outlook I want to run a routine when a new appointment is added to the calendar.
I have a database in a .mde file (Access XP format) on a network drive G:\...\...\xxx.mde. The database contains ~10 forms with VBA code and ~10 tables linked to two other .mdb files. Up to four users at each time use the .mde file true Citrix MetaFrame with Win 2000.
During the first 3 months...
Outlook XP and some mailservers block .mdb-files and some other attachments. A workaround is to zip the database. You can set outlook to accept .mdb-files see http://www.winguides.com/registry/display.php/929/
When I open a form fAccepted should under some conditions another form fChanges open. With access 2000 I use this code.
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 0, 0, 15300, 10000
If DMax("RevDate", "tVersion") >= DLookup("LastAccess"...
You don't tell us how the table(s) are design, but if everything is in one table tTable with fields training, date (and name) this will do what you want.
SELECT DISTINCT training, date from tTable
rDodge and I calculate the easterday in two totaly different ways. I used something called Gauss easter algorithm. They seem to give the same result. At http://members.chello.nl/~h.reints/easter/index.htm there is an explanation of different algorithms.
If you add or change the 'fixed' holiday...
Something is wrong in your calculation of easterdag. Easter can be in April. In my version I hav not translated the way yur handel dates. In Sweden we have a different order like 2003-11-24.
My function translated should be
If F <= 31 Then
EasterDay = CDate("03-" & F & &...
Before you link the tables, you should drop the old links.You can use a routine like this.
Public Sub DropAllLinks()
Dim Lnk As DAO.TableDef
For Each Lnk In CurrentDb.TableDefs
If Lnk.Attributes = dbAttachedTable Then
CurrentDb.TableDefs.Delete Lnk.Name
End...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.