Search results

The error handler can only handle one error at a time. Are you clearing the error handler by executing a Resume, Exit Sub, Exit Function, or Exit Property statement? If the error handler is not cleared by running one of these statements before another error is encountered then that error will...

Well, the page footer always prints at the bottom of the page, so you can put them in the page footer and then hide the footer on all but the last page. You cannot actually sum in a page footer. You have to add a report footer with a textbox for the sum, say txtSum. Then in the page footer...

The shell statement requires the name and path of the application use to open the file: RetVal = Shell("c:\program files\musicplayer.exe " & strSong, 1)

Just put double quotes around it: rst.FindFirst "description = """ & Me!Text1 & """" This will find the first record were descrption equals the text in Text1 whether it has an apostrophe in it or not.

My solution is somewhat complex (4 queries). If you would like to post your email address I will send you a sample database illustrating the solution I came up with.

:[yourdate]+7-Weekday([yourdate],7)

NewExp: DateSerial(Year([expdate])+1,Month([Expdate]),Day([Expdate])+7)

What I do is use a UDF to return a multiline string to a textbox on my report. I can then put a border around the textbox that shrinks and grows with the textbox. Here is the UDF: Function NoBlanks$(L1, L2, L3, L4) Function NoBlanks$(L1, Optional L2, Optional L3, Optional L4) Dim A1$...

Not too hard to do. Just create a small table. Call is something like "SequentialNumbers". This table will have only one number field, let's call it "Num". Enter sequential numbers into this table, from 1 to as many packages as you will ever send to one person. Now, create a query on your...

I don't know. If you want to sent me a copy of your db I could play with it a bit. c_pod@hotmail.com

The only other thing that comes to mind is, did you change the name of your command button after your wrote the code? - Does your button still have the name cmdView?

I would guess that the line where you set your breakpoint is never being reached. Try setting the breakpoint earlier and stepping through your code line by line. You will then be able to see what your code is doing and why your line of code is never reached.

Try this: dbs.Execute "Insert Into ArcHD Select * From Holiday_Details WHERE (((Date_of_Departure)<=" & "#" & D & "#" & " AND (HolidayID)>" & 1 & "));"

Can you get a readable image of the report on the screen horizontally? There is a utility - SnagIt - that pans down and captures the entire document vertically. It is at smithtech.com. It was free when I downloaded it. If it's not free anymore let me know and I can send you me copy...

You refer to a field in a recordset using a variable: val_low = rsScore(strWHATEVER & "_LOW") If strWHATEVER="ScoreField" then this will reference the field "ScoreField_LOW".

You have to check field in the textbox. Something like this in the AfterUpdate event of your textbox: Dim int1 As Integer, int2 As Integer, int3 As Integer If IsNull(Me!YourTextboxName) Then Exit Sub int1 = Left(Me!YourTextboxName, 4) int2 = Mid(Me!YourTextboxName, 6, 2) int3 =...

In the OnPrint event of your detail section put something like this: Me!Image1.Visible = False Me!Image2.Visible = False Me!Image3.Visible = False Me!Image4.Visible = False Select Case your criteria Case Is Me!Image1.Visible = True Case Is Me!Image2.Visible = True . . . End Select

Any nonliteral criteria must be concatenated to the sql string. Try this: If the value from your form is a number: "Select Data_Basedata.* From Data_Basedata WHERE (((Data_Basedata.Surname) Is Not Null) AND ((Data_Basedata.promssuppression)=" &[Forms]![Form-basedata-quick-update].[control2]))...

You have to total the field from you detail section. If the field you are totaling is say "Sales", then in the regional footer you have a textbox with: =Sum([sales]) Now, to get a grand total, you add a report footer and a textbox with: =Sum([sales])

First, make sure the proper references are set for ADO. Then: Dim MYdb As ADODB.Connection Dim MYrs As New ADODB.Recordset Set MYdb = CurrentProject.Connection MYrs.Open "select * from UploadInventory",Mydb, adOpenDynamic, adLockOptimistic