Search results

Change it to: If MsgBox("My prompt?", vbYesNoCancel, "Title") = vbYes Then DoCmd.OpenReport MyReport, acPreview, "MyReportFilter" Else DoCmd.OpenReport MyReport2, acPreview, "MyReportFilter2" End If

Or Dim accapp As Access.Application Set accapp = New Access.Application accapp.OpenCurrentDatabase ("C:\GEM\Gem Backups\OptimumDesign\OptimumDesign.mdb") accapp.Visible = True accapp.RunCommand acCmdAppMaximize DoCmd.Maximize

Place this code in The form load event, on the opening form of the second database. DoCmd.Maximize DoCmd.RunCommand acCmdAppMaximize This will give you a maximise application and form

DELETE * FROM YourTableNameHere WHERE YourTableNameHere.FieldNameToApplyCriteriaTo Not Like "* *"; However I would advise you to backup your table first, just in case you accidently delete all data ie if you missed the space between the two asterisks all records will be deleted..

I know what your saying Mike, but i've never had a problem opening up another database from the one I'm calling from. Its possible and reliable, can't post any code that will help until Monday, I'm going away for the weekend.

Try putting docmd.maximise in the events 'On Current or On Active' of the form your opening via the Db.

I agree, thats what i use on the opening form of the Db edit But it only maximises the form to the size of the access applications window thats opened, I'm on a pc thats has'nt got a copy of access at the moment but there is code that will maximise the access application to go full screen (I'm...

Are you sure linked the sheet, because if accidently imported it will not update.

I dont think there is property connected to a table showing when data was last updated. You could put a field in your table to store the date when a record was added/modified and use that for your criteria.

Hit the Total button in query build mode, this will then give the the option to group, sum etc. See image for where the Total button is

Use the Totals function within the query. Group on associates, sum on Training credits with a criteria >=16

James, I thought I'd test to see if its works after Mikes comments, ignore the code its wrong. It should have been: Dim dtmHoldDateTime as Date 'Delay code 1 sec dtmHoldDateTime =DateAdd("S", 1, Now()) While Now() < dtmHoldDateTime Wend Tested it but as Mike says, it chewed up all the...

James, If its only the total that you want after the requery action, then build a text box in the form footer of the sub form. Make the control source of the Text Box =sum([TheFieldYouWishtoTotal]), and then in the field on your main form set the control source =...

To be honest Mike, I've never tried using this method. Thats why I said :)

Check the following link http://www.tech-archive.net/Archive/Access/microsoft.public.access.formscoding/2006-02/msg00888.html

If the control needs to be invisible when the form is opened, then set its visible property to false in design mode.

try this and see if it works: subYourSubFormHere.requery 'Delay code 1 sec While Now() < DateAdd("S", 1, Now()) Wend Ideally though, you need to pass the value to the main form, from the subform on completion of requery.

I have the same problem, but I just use the cancel button and Access 2000 then loads. Not got round to seeing if this can be stopped. There are several utilities out there for launching a Db to the correct version, usually called Dashboards. Here is a link to one of them...

It would be faster to base the subform on a query, as using a lot of dlookups can slow your database down.

A text field can hold a number, and requires the use of apostrophes. if you use a text box/variable from your form/code then Text fields are enclosed using apostrophes and double quotes ie DLookup("FieldName", "TableName", "Criteria = '" & forms!FormName!ControlName & "'") for a fixed value...