Replies

The contols are currently grouped in Layout so in design view –

Select the control, right click>slelect row

Now right click again Layout>remove Layout.

The controls are now independent.

I really like the improvements in 2010. There is nothing I don’t like about it.
I’m using the 32 bit version

Major Likes –
The ease of modifying the ribbon. You can put stuff where you want it.
Printing to PDF
I prefer Backstage to the Office button menu
In Access – The image gallery and no more memory leaks crashing reports with hundreds of images.

Dislikes –
In Access I use Rick Fisher’s Find and Replace alot. It works in 2010 but you get nags about it being A beta version.

Is it possible that your security software is blocking the images? Perhaps it is an overly aggressive privacy setting (web beacons, etc.). Or a firewall rule against some component of Outlook, or MS Word, browsing the web.

It is entirely possible and indeed most probable,

This notebook is using MS security essentials whereas my PC was using ZoneAlarm.

I’ll check it out, thanks.

Setting a forms modal property in design view is a waste of time, it just makes it hard to Switch from from view to design view.

And only opens Modally if you open it from the database window / nav pane.

If you open it with code then it opens the way you spec it in the code.

Just open it as modal as per John’s code.

Thanks

Once you’ve done what John suggests then you can use a WHERE clause to show just mother with kids or mothers without kids
eg for Mothers without kids

Code:

SELECT * FROM Mothers WHERE ChildID Is Null

if you put

Code:

MsgBox Me.Name

in the open event it will display the form name

so as RetiredGeek suggest, passing either the name of the form from the Open event

Code:

If DoWhatever(Me.Name) Then

to

Code:

Function DoWhatever(strFormName as String) as Boolean.
...Your code here...
End Function

or passing the form object itself

Code:

If DoWhatever(Me) Then

Code:

Function MyCloseRoutine(frm as Form) as Boolean.
Dim strFormName as string
  strFormName = frm.Name
End Function

Hi Jason,

I guess you have a table with the template names in it.

Now add another table with a list of variables required for each template.

Now you can have a form where the user selects the Template and a subform where they can enter the required values.

You can use the same form to enter the required variable records but then prevent the user from adding or deleting or modifying the Variable names.

Kent

The database will allow the user to modify these variables

what do you mean “modify”

Do you mean you want them to enter a value for the variables?

Or do you mean you want them to be able to change the name of the field being used?

you might like to give your button a meaningfull name instead of just leaving it as ‘Command92’.

try this

Code:

On Error Resume Next

Do Until Err.Number  0
    DoCmd.OpenReport "Agent Report Card"
    If Err.Number = 2501 Then Err = 0 ' there was no data
    DoCmd.GoToRecord , , acNext
Loop

when you get to the end of the form’s records the docmd.gotorecord will raise an error and the code will stop.

Contrary to what I previously said, and although I haven’t tried it, you can have multiple criteria in the subform links if you separate them by a semicolon.
you may like to try that.

Does it populate the BCT when you select a system?

The before insert won’t fire until you enter your first bit of data on the form.

if you need it to populate when you move to a new record then you need to use a command button to goto the new record and run the code

the variables should be module level not global as they are only used by this form.

Don’t try and set the default property at runtime, it screws up in later versions of Access.

the code behind your form should look like this –

Code:

Option Compare Database
Option Explicit

Private mstrEBC_Code As String, mlngPCM_Number As Long

Private Sub Form_AfterUpdate()

    mstrEBC_Code = Me.Select_BCT ' EBC Code
    mlngPCM_Number = Me.Select_PCMs ' PCM ID

End Sub


Private Sub Form_BeforeInsert(Cancel As Integer)

    Me.Select_BCT = mstrEBC_Code
    Call Select_BCT_AfterUpdate
    Me.Select_PCMs = mlngPCM_Number
    
End Sub

Private Sub Select_BCT_AfterUpdate()

    Me.Select_PCMs.Requery
    
End Sub

I actually put the code in cmdNew_Click not in the Form_BeforeUpdate event, see if this makes a difference.

strEBC_Code should be a module level variable and you should name it mstrEBC_Code to make this obvious in your code.

a better test for Not isnull(strEBC_Code) would be to concatenate the variable with an empty string This will tell you that it’s neither null nor an empty string.

I’m assuming that Select_PCMs uses Select_BCT as a filter

also, the current event won’t fire on a new record so you need

Code:

if strEBC_Code & ""  "" then
  Me.Select_BCT.Value = mstrEBC_Code
  call Select_BCT_AfterUpdate

now to “With these additions to the events already defined to requery the second Combo Box all controls are locked and I can not enter or change variables.”

do you mean you can’t enter values into the controls? If so I can’t see why, can you post a stripped out database with the form and just enough data for me to look at.