Recent content by rapsr59

Aman, In my previous post, I suggested using the PrintOut command to achieve printing x copies of each page of a report, then continuing to next page. I had not had a chance to test my programming. Today I tested the code at work and it did exactly what you are trying to achieve. It printed x...

You might try opening the report in "Preview" mode. Then set a global variable to the number of pages in your report. Set up the global variable in a module in the declarations section Option Compare Database Option Explicit Public gblPagesInReport As Integer You can then set the global...

Hi You All! Thank you for looking. I’ve found a way to programmatically “Shunt the unwanted input to ground!” (Cancel the unwanted input from the scanner.) Here’s how I did it. The following example shows how input from a scanner and keyboard can be cancelled and only input from the...

Try this. Left(fldname, 4) & " " & Mid(fldname, 5, Len(fldname) - 4)

HI everyone! I’ve developed a cash register system for my business. An input device that is connected to a USB port scans the UPC codes, for products sold. A second USB port has a keyboard connected for manual entry of the amount tendered at the completion of the sale. As is, when the...

Hi ListO I don’t think you should have any problem using a Goto Statement within nested If/Then statements. I never have. I’ve programmed Basic since 1985 using Abasic in the 80’s and VBA since 1996 and, as I said. I’ve never a encountered a problem using Goto’s to exit an If / Then statement...

Hi! What is the row source for the combo box Combo121? If your combo box has more than one column, which is the design of many combo boxes, then there is a possibility that by referencing it as “Me.Combo121” you may not be picking up the column value that is needed for the OpenForm Method’s...

You might try this. In the After Update event of the control that contains the entered password: Dim t As Integer Dim blnNumber As Boolean Dim blnLCaseLetter As Boolean Dim blnUCaseLetter As Boolean 'Check Length If Len(txtPassword) < 8 Then MsgBox...

Hi, This works. I set the Input Mask for the Part Number in the Tble-Parts History table like this: 0000\-00000;0;_ Then I used the following code in the combo box "On Not in List Event: Dim intAnswer As Integer Dim strsql As String 'Make sure the user entered a hyphen...

Hi Bluewater, Had the same error occur after programming at home, transferring the db to work on an external drive. I then returned home, re-copied the db to the same external drive, and "abracadabra" when I again installed the db on the machine at work, it worked perfectly. Strange! Have no...

Your might try this: Dim intPractitioners Dim strPrints As String Dim intPrints As Integer Dim strMsg As String strMsg = "Enter the number of practitioners " & _ "who will need a copy of the Letter." intPractitioners = 1 'Default 1 copy TryAgain...

Hi, In Texas, where I do business, I am required to send in a report showing the employees that are employed by me each quarter. The report requires the Social Security #, Employee name, and amount of gross wages each employee received for the quarter. My payroll program is the source for...

You can use the same method on the Total Items subform that I previously posted on the Total Payments sub form: Private Sub Form_Current() 'txtCount is the control on the footer of the sub form 'that counts the individual items(s) entered into 'the datasheet sub form controls...

Hi, This works. In the current event of the sub form(s) place the following code. Private Sub Form_Current() If Me.RecordsetClone.RecordCount = 0 Then 'txtSum is the control on the footer of the sub form 'that sums the individual amount(s) entered into 'the datasheet...

Hi, I looked over your code and there does not appear any problem with it. For some reason I've had problems in the past with some of my dbs. For some reason they would close and the .idb file would remain open and I was then unable re-open them. I would make a copy of the file and I would...