Search results

Good spot sneuberg, So add an AND to check for whole numbers, like.. ((([cbv]-Int([cbv]))*100)/25)=Int(((([cbv]-Int([cbv]))*100)/25)) And (Int([cbv])<>[cbv]) sneuberg & arnelgp whilst your solutions would provide the answer, I did not think custom functions could be used in validation rules.

The validation rule would be ((([cbv]-Int([cbv]))*100)/25)=Int(((([cbv]-Int([cbv]))*100)/25)) where [cbv] is the name of your number field. I am sure this can be simplified with MOD but i can not get MOD to work :banghead:

Just for clarity, are you talking about custom modules (functions and procedures) OR Class Objects (the code that runs from form event - OnClick, AfteUpdate etc) OR Both? I ask because your use of the word "Modules" in the OP would imply the custom modules as would the fact they are visible in...

Hi Use a query as the RecordSource for the form that uses the search control as its criteria for each of the fields. If you want to only find exact matches, the criteria would be of this form: Forms![name of form].[name of control] The important thing is to put the criteria on different...

You could replace with a Select Case, but it would be a little convoluted. You would either need to run a select case, set a flag, run another select case cross referencing the first Select Case etc... OR nest Select Case's. If you want to be able to return a value as a function, just use your...

Hi Aman You want to use the Weekday() function. One way to implement this would be to use the AfterUpdate event of the selection textbox. use Weekday() to determine the day number of the date, then use a select case to set the other textbox to the day name.

I think you have explained that very well. Using a separate ImportTable is pretty much the standard practice IMHO. Where would the 'virtual' data come from? If it is on the clipboard you could use paste manually (or use DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70 from a...

Hi Pete OK, so only 1 form in use? txtAuthority ControlSource would be =Dlookup("[Authority]","[tblAuthority]","[ID]=" & me.ID) IF ID is available on frmViewer.

You would probably need to create a custom function for this or you could do it with a query and nested iif() statements. Custom function would be simplest. The below is a suggestion, but untested. Public Function ActiveMonths(StartDate As Date, EndDate As Date) As String Dim ThisMonth As Date...

Hi If you are using a separate form that is only used for viewing from this first form, set the textbox's controlsource as Forms!MainFormName.ComboBoxName.column(1) - if the Title is the second column in the combobox If the form is opened form multiple points, either set the textbox value after...

Hi The 'error' is actually a prompt box ot enter a parameter, so it does not understand SetArea as a defined field. Try me.SetArea. You mention SetArea is an integer but is SelectArea a number? Is the format of SetArea combobox set as a number?

Importing goes into 1 table - tblImport. Stored data goes in another table - tblMain. tblImport contains all the fields in your source documents AND the field Source. When importing through TransferSpreadsheet an error will be generated as there is no [Source] field but you can work around that...

Hi Have a look at this topic, it may answer the issue.

Hi and welcome The answer is to have one table used for importing including the extra Source field (fields, not columns:p). Then your update query is essentially correct, replace TableName with the import table name. Include an APPEND SQL to add the import table data to the master table AND a...

Hi Chris The proper way (well my way anyway:p) to handle this sort of scenario starts with a query that acts as the datasource for your form. Easy Option If you provide filter options on the form (eg comboboxes, textboxes etc) include those as criteria in your query. You can then use this...

Hi Sam 3 questions for you. ReportTbl has a field called ClientName, is there a separate field that stores the 3 character code ~ DIA, TRA ~ or is that just the first 3 letters of ClientName? Little confusion over the control type you are using on the Main form for the identity/serial number...

Hi Wrighty Welcome to (one of) the biggest bugbear in MS Office. Dates are stored as double-precision, floating-point numbers. What you see is dependent on the format(s) in place. However whenever you do something like copy paste, the formatting 'runs home to momma' and reverts the formatting...

I just noticed i did not declare the variable type of intAge, so change that to Dim intAge as Integer DateSerial(Year(Date), Month([DOB]), Day([DOB])) is correct as you want to return the value of the day this year that the birthday is on. OK, lets put in some simple checks. Put a breakpoint...

Hi Sam Set the rowsource for the combobox to something like; SELECT [ReportTbl].[Field1], [ReportTbl].[Field2] etc... FROM ReportTbl WHERE (((Left([ReportTbl].[MatchingField],3))=Mid([Forms]![FormName]![SelectCombo],8,3))); Forms!FormName!SelectCombo is the form and combobox that the user...

OK, so we just need to review the date 'function'. [Forms]![Client Demographics]![DOB] =>Date() and <Date()-6570 (or [Forms]![Client Demographics]![DOB] =>Date() and [Forms]![Client Demographics]![DOB]<Date()-6570) is asking if [DOB] equal to or greater the current date and < current date -...