Search results

Sure - right after the Case 3011 line you could save Err.Description to a memo field in a table. Let me know if you need details on how to do that. I'm no expert programmer, but I'm sure we could come up with something that would work for you. Larry

I'm glad you got it working the way you wanted it to Erik. Larry

When you are in the code window, there are two drop boxes near the top. Select Detail in the first one and Format in the second one. Larry

You need to put Me.Lastname=Ucase([Me.LastName]) in the Detail_Format event of your report. Larry

Erik - try your code in the Detail_Format event of your report. Larry

OK, so put the following code in the function where you have the transfertext stuff: Funtion ImportTextFiles() --this would be whatever your function name is On Error Goto Err_ImportTextFiles *your transfertext stuff goes here* Exit_ImportTextFiles: Exit Function Err_ImportTextFiles...

Sorry Jen, I don't know anything about VBScript. Hopefully another user can help you with that. Larry

What's the error number that pops up when the file isn't found? Larry

I would do it something like this: Private Sub NewAmount_AfterUpdate() Dim rst as ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "SELECT * FROM OfficeProducts WHERE OfficeProduct = '" & Me.OfficeProduct & "'", Application.CurrentProject.Connection, adOpenKeyset, adLockOptimistic If...

I think what you'll probably need to do is in the onformat event of the report section put an if/then such as: If me.txtCriteria1="" And me.txtTypeNum=1 then do some formatting here like changing colors or fonts or whatever end if Larry

Well, if the fields on your report were unbound textboxes, then on the report's onopen event you could determine which columns from the table you want and just set me.textbox1=fieldfromtable. Larry

I first set the focus to some other control, then set it to the one you want. Larry

Glad you got it sorted! Larry

I'm betting that it has to do with the subform. See here for some possible clues: http://www.databaseadvisors.com/newletters/newsletter032004/0310ReferenceGuide/SyntaxForSubs.htm Larry

Sorry, I still don't understand completely what it is you need your form to do. Larry

I'm not sure what exacly it is that you are trying to do, but I'll give it a shot. You have 3 controls on the form: A combo box for weight, a combo box for product ID, and a text box for product description. The user chooses a product ID and a weight, and the description is filled in...

Sure it's possible. You would just have to have some code check to see if there are any records with the conditions necessary for them to be included in your report. Lets say the report prints out items that have a field Pending=true. In the form's On Open Event you can search the table to...

Firstly, you should not have a field named 'Date'. Call it rcdDate or something. You can run a findnext like: Dim rs as object Set rs = me.recordset.clone rs.FindNext "rcdDate = #" & myDate & "# AND No_Employee = " & myEmployee & " AND No_Project = " & myProject if not rs.eof then do...

Here's how I do it. On opening the database I hide all menu bars using GHudson's code: Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = False Next i Then in the report's declarations area I have: Dim i As Integer Dim rpt As Integer Then on report open I run this...

See the article here: http://www.mvps.org/access/general/gen0005.htm Larry