Search results

No - but it's not a popup. Should I then?

Hi - thanks for replying. I'm not wanting to do this on every form, (although it may be helpful). I have code on the particular form in question, If IsNull field on a subform AND If IsNull field on another subform Then MsgBox "You haven't entered information here. Please go back and fill it...

... please! Just thought I'd push this up to the top again just in case it's been missed.

Deleted some more bits and managed to get it to 99kb! Go to frmCustomer and click Add Stores Order. This will take you to an order form. Add the first couple of fields Delivery Note no and date and try to move to the next record and the error will appear. Have noticed that Customer No is...

Yes I did compact, deleted tables etc, compacted, deleted, compacted and zipped every time, but still too big. Will have a look at the tables and post back. Thanks.

I've got the following error message, but cannot for the life of me work out why I'm getting it. I've tried attaching the db, but can only get it to 130kb, which is still too big. Does anyone know why I'm getting it please? "The changes you requested were not successful because they would...

I've used the function as discussed in this post but am not getting quite what I need. It's disabling the use of the x in the database window, but not in the forms I need it. The database window is not visible to the users, and I would generally need to use this x button. I am wanting to...

Have you seen Mile-O's post on Main and subform syntax?This will probably answer your question. If not, post back.

Have you looked at the Nz function? This allows you to state what you need entered if the value is null. This may be what you need (although someone else may come up with a better solution)!

In design view of your query, on the toolbar, there's a dropdown box that by default says "All". If you click that choose, (or overwrite it) with 20. Providing your query is sorted in the correct order, this will then only display the top 20 records! HTH

You'll need the visible property. On the OpenEvent and CurrentEvent of the main form put: Me.NameOfSubform1.Visible = False Me.NameOfSubform2.Visible = False Me.NameOfSubform3.Visible = False OnClick of your command buttons put: Me.NameOfSubform1.Visible = True etc etc...

I can't guarantee anything, but can you post some more info such as: What tables you have and what information they hold. How do you know how many parts go into the finished product? Have you got that information held in a table? If not, you'll probably need to. Is there more than one type of...

HI - Hmmm. Sounds a bit confusing!! :) Not very good at visualizing things from descriptions. If you don't get any response from anyone, are you able to post a dummy copy of the db or some screen shots?

On exit of the field or close of the form, (wherever you want) you'll need something along the lines of: [code]If IsNull([Me.FieldName]) then Msgbox "Field is empty .... etc etc" Set the focus back to that field so that the user is not allowed to move off of it until it's filled. Else...

In the query that feeds your subform, you can select how many values to show in a drop down box that by default says "All". In here you can select or enter a number of your choice, ie 1. You'll need to make sure that you have a sort by (ie date descending) to ensure that the most recent order is...

Did you manage to get anywhere with this please?

I think you need to change the default value in your original table design to Null. That way it shouldn't throw up an error when deleted.

Yes you could probably do 3 combo boxes. You'd need to do a similar thing with moving the columns around so that your desired field was visible in the first column, or not having them visible at all. You would also probably need three "Add" buttons to add it to your subform, as that's what I...

I'm not 100% sure exactly what you need because at the moment there's hardly any data in your Checkdate and InCharge fields but if you wanted to search by eg InCharge, you need to change the field order in your combo box. -Go to design view of the form. -Click on the combo box and open...

Private Sub cmdAddICD_Click() On Error GoTo lerror Dim bx1 As Variant, x As Integer, y As String, z As Variant, r As Recordset Dim db As Database, aa As Variant, bb As Variant, cc As Variant Set db = CurrentDb Set r = db.OpenRecordset("PtICD10") 10: x = Me.EpisodeID.Value y =...