Search results

Rich has pointed you to the mvps web site in an earlier reply. You need to copy the code example given to your form's keydown event.

Having now seen Rich's original response, I use the same approach. Change the code from Case 33, 34, 9, 18 to Case 33, 34

You could try the form's cycle property. To disable page up and down I use the form's keydown event and check for the keycode. I think they are 126 and 127, or may be 33, 34. Hope this helps.

You could try the Kill statement, e.g. Kill "C:\myFolder\mySubFolder\*.Txt" to delete all txt files in the subfolder. Hope this helps

You could try using a hyperlink, e.g. Dim myDb as string myDb = "C:\MyFolder\MyDatabase.mdb" Application.FollowHyperlink myDb Hope this helps

I am not sure about Access97 but for Access2000 the problem is only resolved at SR1a, "ACC2000: An MDE File That References Another MDE File Cannot Run Code After Both Are Moved to Another Folder"

The answer is yes but I thing you will benefit if you look at the sample databases that Access provides including NorthWinds.mdb

The following should work Dim hypAdd as string hypAdd= "C:\MyFolder\MyDb.mdb" Application.FollowHyperlink hypAdd Docmd.Quit

You may consider setting a reference within the first Db to the second which will enable you to use the forms etc of Db2. Write a Function in Db2 Function Start_Db2() docmd.openform myForm end function in db1 call the function, e.g. dim intReturn as integer intReturn =...

First get the date by starting at January 1 for whatever year and adding the number of days, e.g. myDate = #1/1/2001# + myNumber Then use the DatePart function if you need elements of the date. Hope this helps.

You could try setting the forms Recordset type to Dynaset(Inconsistent Updates) Hope this helps.

I achieve a similar thing for the horizontal scroll bar using the same approach as you have described. I hide the control by using the same back and fore color as the form. On the control's on enter event I set the focus to a control further up the form for presentation purpose. I hope this...

Try something like dim ctl as control For each ctl in Me.Controls if ctl.tag = "WhateverValue" then ctl.visible = true end if next

Try =IIF(IsNull([First Name]),[Last Name],[Last Name] & ", " & [First Name])

Hi Gail I tried what you are doing with slightly different code and it works fine both in full A2k and as a packaged mde. Try replacing the "AfterUpdate" event of each cbo with Me.Filter = "[FieldName] = " & me!cboFieldName Me.FilterOn = True If it still doesn't work let me know and I can...

Hi Gail I do now understand your problem. I am not sure I know the answer. The blank screen suggests that you have no hits in your recordset after the second filter which further suggests that the "Show all records" command isn't working properly. Have you tried using Me.Requery instead of...

In the AfterUpdate event of the 'all' checkbox Dim ctl as control If me![all checkbox name here] = true then For each ctl in me.controls If ctl.controltype = acCheckBox then ctl.value = true end if next end if

Before you apply the second and subsequent filters you need to refresh the underlying recordset otherwise you are filtering on an already filtered recordset. Look at the ShowAllRecords action.

Using the Form_Error sub try If dataErr = 3022 then msgbox "Please enter another value" Response = 0 me![myControl].setfocus end if

An alternative approach is to use error trapping, e.g. on error goto errLabel errLabel: if error = whateverItIsForDuplicateIndex then display message as described by Talismanic. This method means the code is only being performed when there is an error not every entry.