Recent content by johndoh!!

Don't i feel stupid!! Those darn DLookup()'s will kill you won't they!!!!!!!!!!! I had two of them for each line in a subreport that would have the highest number of hits to the db, dead slow!! So for the rest of us noobs don't use DLookup() !!! Sorry for making a mess of this great board...

My database is split FE/BE, the BE being located on a local server. I have a report with a subform that also has it's own subform and it can take a very long time to print. The windows task manager will say not responding but if i wait it will eventually print. This same report used to print...

Thank you!! Thanks for the help, i will give it a try.

I have a access db that uses vba and works great on seven workstations, but does not function on the eighth. The database window opens with the switchboard visable, the buttons that open other forms from the switchboard work fine, but none of the vba (search records form, data entry form) work...

I have a few fields that are required in thier tables and have set the "Validation Rule" and "Validation Text". When i use a form that has these fields in them and break the "Validation Rule" i am getting the Access error message not my "Validation Text". I have gone so far as to enter the same...

Here is my question: 1.) I have a database (duh!!) which we use in our showroom for order entry. We then back up the db to CDRW and bring it to our wharehouse (weekly) to use for creating purchase orders, delivery tickets etc... The copy we use at the wharehouse only has one field that we...

Thank you Pat, I understand perfectly!! D'oh!!

I changed it like this and it works: strFilter = "Sku='" & rst!Sku & "'" x = DLookup("Sku", "PrintPO", strFilter) If x = rst!Sku Then Else Dim rst2 As Recordset Dim strSql2 As String strSql2 = "SELECT Quantity FROM qryPrintPO WHERE OID = " & OID...

Can anyone tell me why the following doesn't work? Dim db As Database Dim rst As Recordset Dim strSql As String OID = 415 strSql = "SELECT * FROM qryPrintPO WHERE OID = " & OID Set rst = CurrentDb.OpenRecordset(strSql) rst.MoveFirst Do Until rst.EOF strFilter = "Sku='" & rst!Sku & "'"...

Doh!!!!!! D'oh!!!!!!!!!!!!!!!! Thank you, thank you, thank you!!

I am trying to use the following: Dim db As Database Dim rst As Recordset Dim strSql As String OID = 415 strSql = "SELECT * FROM qryPurchaseOrder WHERE OID = " & OID & " ORDER BY Line" Set db = CurrentDb Set rst = db.OpenRecordset(strSql, dbOpenSnapshot) rst.MoveFirst Do Until rst.EOF...

Here i go again, i post a question and just about that fast i find the answer! If your interested here it is: Forms![frmChange]![DSP Lighting Inc - New Order Details].SetFocus Forms![frmChange]![DSP Lighting Inc - New Order Details].Form![OrdersDetails].SetFocus Forms![frmChange]![DSP Lighting...

I am trying to move the focus to a text box on a subform using the onClick event from another subForm. Here is the code that does not work, any ideas? Forms![frmChange]![DSP Lighting Inc - New Order Details].Form![OrdersDetails].SetFocus Forms![frmChange]![DSP Lighting Inc - New Order...

I may be wrong (or so my wife tells me) but if you set the "Allow Additions" property to "NO" they will not see a blank record even if they do press the >* button.

Hey i can answer that!! Cuz i'm dumb!! The button was set to open the form in readonly!! Why do i find the answer less than a minute after posting my stupidity to the world? D'oh! <-- That says it all!!