Replies

Yes, it worked then, thanks!

See the MoveSize method of the DoCmd object in VBA. The measurements are in Twips. The help says there are 567 twips in a centimeter. However, I have found it to be a trial and error to get it set like you want it, depending on screen size and resolution.

I don’t know much about postal bar codes. The one I had in mind is the one like Woody put into the WOPR Enveloper.

I use the DoCmd.MoveSize command on the On Open event or something like that to size the form. Then DoCmd.Restore on close. Check out the Help on MoveSize for more info.

I am makeing a purchase order/inventory program where they wanted either to manually enter a po number or have the system assign one. I have a table called LabelFile and used this code on my PurchaseOrder entry form to assign a number. So far it works, haven’t tested in a multi-user situation, though. Here is the code:

Private Sub PONumber_Exit(Cancel As Integer)
If Me!PONumber = 0 Then
Dim intPONumber As Integer
Dim db As DAO.Database
Dim rst As Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset(“Labelfile”)
intPONumber = rst!PONumber + 1

With rst
.Edit
!PONumber = intPONumber
.Update
End With

I suppose the problem will be when a PO number is entered that is already in the system, or the system tries to assign one that is already on file.

rst.Close

Me!PONumber = intPONumber
End If

I’m assuming your tblCust and tblCustAddrShip have a common field such as CustID with a one to many relationship. And that you are using a combo drop down box to select your ship-to address. In the properties for that ship-to combo box, in the Row Source ad hoc query insert the criteria for the CustID field to be the CustID of the tblCust. Maybe there is a better way to say this. Maybe someone else has another idea.

I don’t think so…go into Relationships and delete them, delete the tables, import the new tables w/same names and then recreate the relationships.

The way I would do it, delete the linked tables, and import the ones from the server–and name (or rename) them exactly how the linked tables were named.

Bart, I tried the following code:

Dim strSKUDesc As String
strSKUDesc = DFirst(“invdesc”, “tblinventory”, “invdesc = ‘ ” & Me![cmbSKUDescription] & “‘”)

But I get this error: Run-time error ’94’: Invalid use of Null

I don’t understand…

Thanks JamesB, that’s exactly what I was looking for!

Thanks so much Rory, I probably would have looked forever for a solution to that problem. Earlier applications where I have used that code were started in Access for W95 and some are still there. Thanks again!

Rory, where do you specify ADO or DAO? As far as I know, I haven’t specified either. Where would I insert this code:
Dim db as DAO.Databse
Set db = CurrentDB()

I want an automated way to pass the fax number, etc into Winfax from a customer table in my database.