Recent content by Jimbob

Maybe a table of problems is the way forward, if you haven't got one already. That way in a query you could base the 'Problem' criteria on the combo box on your form. When linking the 'Problems' table to the 'Calls' table in the query make sure you specify the join type as "Show all records...

Unfortunately you have to give the control focus for it to be the activecontrol. ie by click ing on it. Just had a thought though.... Maybe you could somehow use the On MouseOver event to set the focus to the control...thus making it the screen.activecontrol... I haven't got time to try this...

maybe because the subform won't automatically pick up the new column. I think you would have to go into design view and add that column to your subform

duplicate [This message has been edited by Jimbob (edited 05-21-2002).]

In access help look up the following functions: Mid, InStr, Left, Right. You might be able to do something with these OR, go to the help index and type 'String' and look under the sub heading 'Manipulation'

Try screen.activecontrol This refers to the control that currently has focus e.g. screen.activecontrol.enabled = false [This message has been edited by Jimbob (edited 05-21-2002).]

"Forms![frmanimalinfo]![AName].SetFocus" try Forms!frmManinamInfo.Form!AName.setfocus

I'm a bit confused about your rule, it's not too clear to me, but you might want to check out the InStr function in Access help

Try; If IsNull(Me!cboSelectClient) etc Use an exclamation when referencing the value in a control as opposed to a full stop which you use when referencing the Property of a control(I think)

Realise you can change the message body to whatever you want. You can make the message body part pre entered text, part references to fields on frmEmail If you want an example of this let me know...

Check this out: http://www.utteraccess.com/forums/postlist.php?Cat=&Board=access_any_version&page=2&view=expanded&sb=5&o=0

PS, you could modify that to open a table or a form.....

say your combo box is called cboForms, go to the Afterupdate event of cboForms and paste in the following between the Private sub and end sub lines: Dim strfrm As String strfrm = Me!cboForms.Value If IsNull(Me!cboForms) Then MsgBox "Choose a form first!" Exit Sub Else DoCmd.OpenForm...

Here is a loop for you..... Will open a recordset and delete and movenext until .EOF (end of file) Dim DB As DAO.Database Dim RS As DAO.Recordset Set DB = CurrentDb Set RS = DB.OpenRecordset("Select * FROM TableName WHERE OrderID = " & formOrderID) With RS Do Until .EOF .Delete...

If Me!Premium > 0 Then Docmd.OpenForm "Form2" end if If Me!Premium = 0 Then Docmd.OpenForm "Form2" end if