Search results

I wish you Happy Independence day there in a America

Another thing to check for is the criteria fields you are using have indexes

Found this on the net: This sample will show you how to disable the little 'X' close button found on the upper right of every window. To do this what we will do is use a couple of API calls to remove the Close menu item from the windows system menu. Doing this will disable the close button...

'1 - Delete Table contents first '2 - Compact Database '3 - Store this function in a module and call via debug window e.g. ReSetAutoNumber "YourTableNameHere", "AutoNumberField", 0 This will restart the autonumber field at 0 ReSetAutoNumber "YourTableNameHere", "AutoNumberField", 2000 This...

Found this function on the net a long time ago, dont know who's code it was originally but it might be worth giving it try (I've not had an occassion to use it yet) Public Function WorkingHours(datBegin As Date, datEnd As Date) As Double ' Beginning and end of the day Const tmecDayStart...

edit: Glad its worked for you, just posted this with indentions but you beat me to it. Create the following Table Application_Table_Field_Definitions txtField_Name (text 65) txtTable_Name (text 65) intSequence (integer) txtDescription (text 100) fPkey (yes/no) txtType (text 35) intLength...

Try the following link, http://www.access-programmers.co.uk/forums/showthread.php?p=448673#post448673

Create the following two tables:- table 1: Application_Database_Locations Fields: txtDatabase_Path txtDatabase_Name table 2: Application_Table_Connection_Location Fields: txtDatabase_Path txtDatabase_Name txtTable_Name txtTable_Connection Copy the...

In the control source of an Unbound text box add your criteria there i.e. =iif([discount was approved for that customer]=true, "Discount approved", "") Replace '[discount was approved for that customer]' with the appropiate field.

When you write to a text box using the .Text extension, you are actually updating the control source of the text box directly, therefore only use this method with a bound control.

Hi try the following, as the text box is unbound: Private Sub lstFileList_Click() On Error GoTo zz txtReviewComments = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" exit sub zz: MsgBox "Error in function SizeRequestingTeamArray - " & Err.DESCRIPTION End Sub

Below is the code I use to switch from a live area and a development area, in this example the FE Db connects to two diff live backend databases. The code simply looks for the live backend location and changes its to the development backend area. Obviously you need to create the opposite...

Under form properies change the 'Record Selectors' option to No

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) try the following Select Case KeyCode Case vbKeyEscape docmd.close acForm, me.formname End Select End Sub

use the Format command, format([DateEntered]+15 , "dd/mm/yy")

Place it in the forms On Current event as well

Try removing the double quotes from around the variable: IIf([Forms]![frmMainMenu]![qFiscal]>0,DLookUp(deptstr,"qryFiscalCalendar","[Fiscal_ID] = #" & [Forms]![frmMainMenu]![qFiscal] & "#"),0)

Use the select statement after setting them all to false, using the if else statement you keep changing the value from one user level to another. ie if User.AccessID=1 then you change them all to true but then because his is not User.AccessID=2 you then disenabled Me.cmdIad1 etc...

Sorry for any confusion I caused, don't know why I typed 'module' instead of 'function'

Heres one that you can use: - Calculating a person's age in years, months and days To accurately calculate a person's age in years, months and days, and (optionally) return that age in words, use the following syntax: AgeYMD(DateSerial(1956,11,5), Date(), True, True, True) Public...