Search results

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...

The very last thing! as JANR posted: JANR and I suggest you use OPTION EXPLICIT in all of your modules to trap undeclared variables. You can have the VBA editor automatically place the OPTION EXPLICIT in all of your modules by... opening the vba editor, click Tools, select options and...

As far as your orignal error: "Else without If"... As JANR posted: And back to your original code, you wrote: Private Sub Command15_Click() If IsNull(Me.txtname) Then MsgBox "write your name" 'etc... End Sub Notice that the MsgBox statment in your code is on the same...

Try writing the original code: Set infodb = CurrentDb().OpenRecordset("info") If Me!nametxt = "" Then MsgBox "write your name!" Else infodb.AddNew infodb!no = Me!infodb_txt myrec.Update End If All I did was change: If Me!nametxt =...

Hi, Can you show the query that the main report is based on? (the record source for the report.) Richard

I'm not at all knowledgeable about programming email and all that. In the past I have had problems accomplishing a task because speed would not allow a task to complete before the next iteration in a loop. My solution was to place a "Timer Loop" inside the main loop and that changed the...