Search results

Hi Arnelgp, I had just found that one out and got it all working, unfortunately I am now stuck at the final stage. I have placed a tick box on my main form and if it is ticked I want to refresh the subform with just data that has that field with 8 characters, for the form load I have: Private...

Yes, the LIKE works but I am now still left with it not functioning in a sub-form:confused:

Interestingly: Private Sub Form_Load() DoCmd. ApplyFilter , "[Field] = '????????'" Doesn't work loading the subform on it's own (no records found) but the following does: Private Sub Form_Load() DoCmd. ApplyFilter , "[Field] = 'ABC12345'" This pulls all records with ABC12345 but the question...

I have this working now, well sort of. It works in an independent form but not when used as a sub-form.

I am looking to apply a filter to a recordset on loading a form, for some reason I just cannot get the syntax. Private Sub Form_Load() DoCmd. ApplyFilter , "[Field] = "????????"" I am trying to remove items that have more or less than eight characters. Any help with an addled brain would be...

Quickest way of all is to just put up with it. Import the spreadsheet with all the empty rows and once complete just run a query to delete all blank rows from your table.

Actually I just did it in the autoexec macro, many thanks for your help:D

Many thanks missinglinq, you got me thinking. I see now the simple logic of loading from the start but cannot get it to work due to a similar problem. If I set the form to open invisible in the on load code of the welcome screen the welcome screen does not load until the other form has done...

I have a welcome form that closes on a timer event and then opens another form, prior to opening the form it has to run a very slow query. Private Sub Form_Timer() DoCmd.Close DoCmd.OpenForm "Scan Data", acNormal, "", "", , acNormal I would like to change the mouse or stick up a message whilst...

So you are suggesting a climber starts at the top:D:D:D

If you want a really good laugh, the WYSIWYG Web Builder site has a lot of tutorial videos, a number of them are done by an Indian lady who might be very good but you cannot really tell because within a few seconds her baby starts crying. The longer the video the worse it gets as the baby seeks...

You should try Wolfenstein instead of Weinstein :D

For anybody interested, I solved this as follows: Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo eWM If Not Me.Dirty Then If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord...

Just to add to the problem, I have used the previously mentioned code and it works perfectly, however I have a secondary sub-form showing part of the record. The sub-form updates using the Form_Current event: Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo...

Yes, mine is the same, but if you click in the gaps above and below the scroll bar it will move quickly rather than using the wheel, one record at a time, and getting a sore finger.

Many thanks, I was aware I could error trap it but still cannot see a good reason for it to error. It's sometimes not a good idea to think too deeply about oddities in Microsoft:D

Just to demonstrate the database attached errors out.

It's either the form footer showing and you need to set the height to zero or you have the form area smaller than the window when you save it from design view.

Tried this and it works fine except for one thing. I have to set a form to allow additions or it will scroll normally all the way to the last record and then error out.

For anybody who watches the TV series Vikings, my wife can genuinely trace herself back to Rollo Rolf, that is going all the way back to 860 :cool: